RosettaCodeData/Task/FizzBuzz/Perl-6/fizzbuzz-2.pl6
2016-12-05 22:15:40 +01:00

5 lines
237 B
Raku

multi sub fizzbuzz(Int $ where * %% 15) { 'FizzBuzz' }
multi sub fizzbuzz(Int $ where * %% 5) { 'Buzz' }
multi sub fizzbuzz(Int $ where * %% 3) { 'Fizz' }
multi sub fizzbuzz(Int $number ) { $number }
(1 .. 100)».&fizzbuzz.say;