寝る前に思いついたfizzbuzz改
my $n = sub{0}; my @fizz = ($n,$n,sub{print 'fizz';1}); my @buzz = ($n,$n,$n,$n,sub{print 'buzz';1}); my $print_n = sub{print shift}; my $a = 0; my $b = 0; for(my $i=1;$i<=100;$i++){ ($fizz[$a++ % @fizz]->($i) + $buzz[$b++ % @buzz]->($i)) || $print_n->($i); print "\n"; }
↑個人的にはこういうのが好きだなw