From 14dda6355b6f7ee3734a67fa17f126bfc32e7efd Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 4 Apr 2022 09:41:59 +0200
Subject: Task 1 done

---
 challenge-159/luca-ferrari/raku/ch-1.p6 | 16 ++++++++++++++++
 challenge-159/luca-ferrari/raku/ch-2.p6 |  2 ++
 2 files changed, 18 insertions(+)
 create mode 100755 challenge-159/luca-ferrari/raku/ch-1.p6
 create mode 100644 challenge-159/luca-ferrari/raku/ch-2.p6

(limited to 'challenge-159')

diff --git a/challenge-159/luca-ferrari/raku/ch-1.p6 b/challenge-159/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..e8a45c1b94
--- /dev/null
+++ b/challenge-159/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,16 @@
+#!raku
+# Perl Weekly Challenge 159
+
+
+sub MAIN( Int $n where { $n > 0 } ) {
+    my $start = 0/1.Rat;
+    my $end   = 1/1.Rat;
+
+    my @farey = $start, $end;
+
+    for 2 ..  $n -> $denominator {
+        @farey.push( |( 1 .. $denominator ).map: * / $denominator );
+    }
+
+    @farey.unique.sort.map(  *.nude.join( '/' ) ).say;
+}
diff --git a/challenge-159/luca-ferrari/raku/ch-2.p6 b/challenge-159/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..4f7c3ef22b
--- /dev/null
+++ b/challenge-159/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,2 @@
+#!raku
+# Perl Weekly Challenge 159
-- 
cgit