perlクロージャででfizzbuzz
ほぼjavascriptと同じやんwww
sub create_fizzbuzz{ my ($a,$b) = @_; my $n = 1; return sub{ my $str = ''; if($n % $a==0){$str = 'fizz'} if($n % $b==0){$str .= 'buzz'} $str ||= $n; $n++; return $str; }; }; my $fizzbuzz = create_fizzbuzz(3,5); for(my $i=0;$i<100;$i++){ print $fizzbuzz->()."\n"; }
ま、せっかくだから。。。