2014-03-21から1日間の記事一覧

perlsubクイズ

対象は自分です。 問題1 use strict; use warnings; use feature 'say'; # ↑以降省略 say do { my $a = 100; sub { $_[0] *= $_[0] }->($a); $a; }; 問題2 say do { my @a = (1..10); sub { $_[0] *= $_[0] }->(@a); $a[0]; }; 答え合わせ 問題1 A. 10000 理…