市民農園を借りた。作付計画はすべてつれあいまかせ。ちょっと畝を作っただけで疲れてしまった。普段の運動不足がたたった。

普通過ぎて困ってしまうくらい普通の私が、ちょっと golf してみるのは anarchy golf 場。anarchy golf - Collatz Problemを解いていて perl と awk でまあ満足のいくスコアが出たので bc でもやってみるか、とやってみたんだが、手元の bc では動くのに gol…

Path::Class::Dir の recurse メソッドを使っていて、なぜか走査されないディレクトリがある。具体的には、サブディレクトリとして 0/, 1/, 2/, ..., e/, f/ があるのだが、0/ と 1/ と f/ の下のファイルが走査されない。試しに children で一覧してみると…

最近、一時的に必要な変数のスコープを狭めるために do ブロックを使うことが多い。たとえば、次のようなスクリプトを考える。 my ($x, $y) = (3, 5); my $diff = $x - $y; my $first = $diff ** 2; my $second = abs($x ** 2 - $y ** 2); print "first = $f…

必須の引数とオプショナルな引数の順序に悩む修行 - 昨日知ったことにて、オプショナルな引数を必須の引数の前に書くメソッドの定義はどうだろう、ということを書いた。 my $stuff = new Stuff(code => q/353/, flag => 1, $string); そういう例はみたことが…

twitter でつぶやいた NOKED をサルベージ。2009/12/29 〜 2010/03/12 分。 あ、さーっと assert ぼやっと小火 (ボヤ) 父兄が婦警 四方に至宝 ... 両手に花を越える状況 上京の状況 八世紀の発生器 尊大は損だい そーっと sort ... 壊れやすいデータだから気…

赤ちゃんにおむつはいらない:2% 赤ちゃんにおむつはいらない作者: 三砂ちづる出版社/メーカー: 勁草書房発売日: 2009/08/29メディア: 単行本購入: 3人 クリック: 12回この商品を含むブログ (13件) を見るこの本は買いだな。

anarchy golf - a prime numberに bc で参戦しようとしたけれど、bc は自動的に 70 桁で改行するつくりになっているようで、だめだった。 有効数字 70 桁なんて実用的にはありえないもんね。

外付けの HDD が届いた。2 TB。CentOS 5.4 なマシンに接続。デフォルト vfat32 でフォーマットされていて、NTFS にフォーマットし直そうかと思ったけれど、そのままでもとりあえず問題ないのでそのまま使うことにした。それにしても 2TB が 25k 円くらいで買…

ディスク容量が足りなくなったとき、容量の多いディレクトリなりファイルなりを圧縮したり、別の媒体に移したりしたくなる。そんなときには du -s で容量を調べ、容量の多いディレクトリを見つけたらそのディレクトリを対象に du -s で容量を調べ、というこ…

二つの対応した文字列がある。もっと正確に言うと、それぞれをある記号で split したときの、各要素が対応している。対応した文字列要素のペアを基にごにょごにょして新しい要素を作り、それをリストにしたい。と、ややこしく書いているが、要するに List::M…

モジュールのロードについて実験するため、A.pm と B.pm に test 関数を定義して、次のようなスクリプトを動かしてみた。 use strict; use warnings; use A; use B; B::test(); my $x = A::test(); 実行すると次のようになる。 [takeyuki@sunya ~]$ perl b.p…

*Danger* という名前のバッファが作られて、次のメッセージが表示されている。 File Edit Options Buffers Tools Help Warning: memory in use exceeds lisp pointer size Killing some buffers may delay running out of memory. However, certainly by the…

正規表現で素数判定ができる、という噂はずいーーぶん昔に聞いた。やってみたことはないので、やってみた。 Perl で書いたけれど、他の言語でも同じようなものだろう。 use strict; use warnings; my $x = 2; my $c = 0; while ($c < 10) { if (('o' x $x) !…