寝る前に思いついたので、fizzbuzz

perl

my @a = (undef,undef,'fizz'); my @b = (undef,undef,undef,undef,'buzz'); my $a = 0; my $b = 0; for(my $i=1;$i<=100;$i++){ my $str = $a[$a++]; $str .= $b[$b++]; $a = 0 if(@a-0 <= $a); $b = 0 if(@b-0 <= $b); print ($str || $i); print "\n"; }

2009-06-04

ポスグレでfizzbuzz

postgresql

バージョン8以降。 select case when t % 15 = 0 then 'fizzbuzz' when t % 3 = 0 then 'fizz' when t % 5 = 0 then 'buzz' else t::text end from generate_series(1,100) as t ま、無難に1行。※問題が100までの数値ということで修正w