2010-02-01から1ヶ月間の記事一覧

1<<31 は 1 より大きい?小さい?

perl -e "print 1 perl -M"integer" -e " print 1 前者は1を出力、後者は何も出力されない。 C言語で32bitなint型であれば、1 しかしPerlでは型が厳しく決まっていないので、数値の演算はほとんど浮動小数点演算で行われるらしい。 integerプラグマを使うこ…

Perlで離散コサイン変換

唐突にPerlのみでJpegを解析できるようなものを作ろうと思ったわけですが、挫折しそうです。 Jpegでは量子化のために離散コサイン変換(DCT)を行います。 通常の公式をそのまま使うと結構な時間がかかるので最適化を考えます。 参考文献 画像圧縮アルゴリズ…

原動機付自転車

お下がりでもらった原動機付自転車をかれこれ4年ほど使ってます。 セルでエンジンがかからないのでキックを使っていたのですが、 とうとうキックの部分もおかしくなって、蹴っても戻ってこないし、非常にエンジンがかけづらい。 そしてなかなかエンジンがか…