Merge pull request #4608 from luc65r/123

Challenge 123

2 files changed, 19 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];
diff --git a/challenge-123/luc65r/raku/ch-2.raku b/challenge-123/luc65r/raku/ch-2.raku
new file mode 100755
index 0000000000..40af05942a
--- /dev/null
+++ b/challenge-123/luc65r/raku/ch-2.raku
@@ -0,0 +1,8 @@
+#!/usr/bin/env raku
+
+unit sub MAIN(*@coordinate where +* == 8);
+
+my Complex @pts = map { Complex.new($^x, $^y) }, @coordinate;
+my Complex $center = @pts.sum / 4;
+my Complex $v = @pts[0] - $center;
+say +so @pts ≡ ($v, -$v, $v.conj, -$v.conj) »+» $center;