Entries from 2009-04-27 to 1 day

Perlの組み込み関数をワンライナーで取得する

perldoc perlfuncで見られるわけだから、それを解析すればいいかな、と、こんなヘボいワンライナーを書いた。 grep "=item" $(perldoc -l perlfunc) | perl -alne '$a{$&}++ if $F[1]=~/^[a-z]*/; END { print for sort keys %a }'そのあとで調べてみたら、…

任意の金額をちょうど支払うための最小硬貨枚数を計算するワンライナー

0〜999円の買い物に対して、釣り銭の無いよう支払うためには硬貨が最低で何枚必要か、という問題を考える。 最初に考えたものは、 perl -le'$a=pop;$a-=$_*($:=int($a/$_)),$b+=$:for(500,100,50,10,5,1);print$b'というもの。 $ perl -le'$a=pop;$a-=$_*($:…