Raku week 123 task 1

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];