今更ながら、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…