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