2007-04-21から1日間の記事一覧
昨日の夜やってたコマネチ大学数学科の問題。Perlで解く。自分なりに美しく書く。 #!/usr/bin/perl use strict; use warnings; use List::MoreUtils qw/all/; my @result = map $_->[0], grep { all { m/[^49]/ } @{ $_->[1] } } map [ $_, [split q//] ], 1…
昨日の夜やってたコマネチ大学数学科の問題。Perlで解く。自分なりに美しく書く。 #!/usr/bin/perl use strict; use warnings; use List::MoreUtils qw/all/; my @result = map $_->[0], grep { all { m/[^49]/ } @{ $_->[1] } } map [ $_, [split q//] ], 1…