Four is magic
123456789101112131415161718192021222324252627
constant %name-of =
0 => 'zero', 1 => 'one',
2 => 'two', 3 => 'three',
4 => 'four', 5 => 'five',
6 => 'six', 7 => 'seven',
8 => 'eight', 9 => 'nine',
;
multi take-magic-four(4) {
take "four is magic"
}
multi take-magic-four(UInt $num where * < 10) {
my $name = %name-of{$num};
my $len = $name.chars;
take "$name is %name-of{$len}";
take-magic-four $len
}
sub magic-four(UInt $num where * < 10) {
gather { take-magic-four($num) }.join: ", "
}
for ^10 -> $num {
say magic-four $num
}
Raku
INFO