あほきもちいい

はてなダイアリー」で世界のナベアツ問題というのが紹介されてたのでやってみた。

#!/usr/bin/perl -w
use strict;

foreach (1..100) {
  print "$_: ";
  print "あほ" if $_ % 3 == 0 || m/3/;
  print "きもちいい" if $_ % 8 == 0;
  print "\n";
}


FizzBuzz よりこっちの方が好きかも。好みの問題か…。