2008-02-18 あほきもちいい perl 「はてなダイアリー」で世界のナベアツ問題というのが紹介されてたのでやってみた。 #!/usr/bin/perl -w use strict; foreach (1..100) { print "$_: "; print "あほ" if $_ % 3 == 0 || m/3/; print "きもちいい" if $_ % 8 == 0; print "\n"; } FizzBuzz よりこっちの方が好きかも。好みの問題か…。