blob: 3b410658469fb2deb86da198fc5f88e7f04fe069 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
unit module Raindrops;
sub raindrop(Int $num --> Str) is export {
my Str $res;
$res ~= "Pling" if $num %% 3;
$res ~= "Plang" if $num %% 5;
$res ~= "Plong" if $num %% 7;
return $res // $num.Str;
}
|