2008-05-06から1日間の記事一覧
perl -e '@nabe=qw/0 aho! bow! ahooown!!/; map {$n=0; $n+=1 if(!($_%3)||/3/); $n+=2 if(!($_%5)); print $nabe[$n]?$nabe[$n]:$_,"\n"} (1..40)' 5の倍数のときに犬っぽくもなる
perl -e 'print map { !($_ % 3) || /3/ ? "aho!" : $_, "\n" } 1..40' 1行では5の倍数で犬っぽくするのはしんどい