2010-05-17から1日間の記事一覧
さあて、クイズです。 #!/usr/bin/env perl sub counter_gen{ my $c = 1; return sub { return $c++; } } $c = counter_gen(); say x $c->(); # (1)実行すると1 と表示 say x $c->(); # (2)実行すると2 と表示 say $c->() x 2; # (3)実行すると33 と表示 $c-…
さあて、クイズです。 #!/usr/bin/env perl sub counter_gen{ my $c = 1; return sub { return $c++; } } $c = counter_gen(); say x $c->(); # (1)実行すると1 と表示 say x $c->(); # (2)実行すると2 と表示 say $c->() x 2; # (3)実行すると33 と表示 $c-…