Perlメモ ナベアツ ワンライナー その2
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 '@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の倍数のときに犬っぽくもなる