2008-05-31 perlでFizzBuzz Perl 神から。perlが一番短く書けるって。 print map { ('Fizz')[$_%3].('Buzz')[$_%5] || $_ } 1..100;