From 9ae73e4f847a4f268808cfaefef2dfc0466c4bf2 Mon Sep 17 00:00:00 2001
From: Lucas Ransan <lucas@ransan.tk>
Date: Mon, 26 Jul 2021 14:00:23 +0200
Subject: Raku week 123 task 1

---
 challenge-123/luc65r/raku/ch-1.raku | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 challenge-123/luc65r/raku/ch-1.raku

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