diff options
| -rwxr-xr-x | challenge-123/luc65r/raku/ch-1.raku | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-123/luc65r/raku/ch-1.raku b/challenge-123/luc65r/raku/ch-1.raku new file mode 100755 index 0000000000..e4df0aee54 --- /dev/null +++ b/challenge-123/luc65r/raku/ch-1.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku + +multi ugly(1 --> True) { } +multi ugly(UInt:D $n --> Bool) { + return ugly($n div $_) if $n %% $_ for 2, 3, 5; + False +} + +unit sub MAIN(UInt:D $n); + +say (1..∞).grep({ .&ugly })[$n - 1]; |