http://movapic.com/fn7/pic/305678

http://movapic.com/fn7/pic/304721

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)) …

クロージャ化：ループ変数からの独立 パラメータのハッシュ化：'fizz'を'pizz'に変えたいときでも、引数の変更で対応できる。また、2の倍数の時が増えても対応できる sub create_fizzbuzz{ my ($p) = @_; my %count; my $n = 1; return sub{ my $str = ''; f…