perlでfizzbuzz

$a = 3;
$b = 5;
print join "\n",map {
  my $str;
  if($_ % $a == 0){$str = 'fizz'}
  if($_ % $b == 0){$str .= 'buzz'}
  $str || $_;
} (1..100);

[参考]http://www.machu.jp/diary/20070509.html#p01

剰余を使わないで書くのは、パズル的な楽しさが確かにあるけども。
どちらかというと、その言語の特徴を使って書くとか、
言語特有の書き方で書くとかする方がいいな。
あと、独特のアルゴリズムってのもいいな。
遺伝的アルゴリズムとかすごすぎるでしょw