プログラミング一般論として可読性の高いコーディングが求められますが、可読性の良い悪いを判断するのが難しいケースがままあります。最近、可読性の良さについて意見が別れたことがありました。実際はもう少し複雑だったのですが、ポイントを纏めると以下…

問題各辺が10以下の整数で、辺の合計が24の直角三角形の、各辺の長さを求める。 http://learnyouahaskell.com/starting-out#im-a-list-comprehensionperlの負けっぽい。 1 use strict; 2 use Data::Dumper; 3 4 my @data; 5 6 for my $i (1..10) { 7 for my …

使う場面があるかなぁ。まぁ一応知識として。 1 #!/usr/bin/perl 2 use strict; 3 4 for (qw/first fourth fifth third/) { 5 6 /first/ && do {print "1st\n";}; 7 8 /second/ && do {print "2nd\n";}; 9 10 (/third/ || /fifth/) && do {print "3rd or 5th…

今更ながら、PerlでFizzBuzzを考えてみた。 http://ja.wikipedia.org/wiki/Fizz_Buzz FizzBuzzの判定の定義を外出しにしてみた。 use strict; use Data::Dumper; use List::Util; my $upper_num = 30; my $criteria = +{ 3 => 'fizz', 5 => 'buzz', 15 => 'f…