Perl6でFizzBuzz

for 1..100 {
    when $_ % 15 == 0 { say 'FizzBuzz' }
    when $_ %  3 == 0 { say 'Fizz' }
    when $_ %  5 == 0 { say 'Buzz' }
    default { say $_ }
}

FizzBuzz です。括弧がすくなくてかっこいい。

Published: 2013-04-04(Thu) 01:13