Merge pull request #5257 from arnesom/branch-for-challenge-139

Arne Sommer

6 files changed, 52 insertions, 0 deletions

diff --git a/challenge-139/arne-sommer/blog.txt b/challenge-139/arne-sommer/blog.txt
new file mode 100644
index 0000000000..cf1ef8241f
--- /dev/null
+++ b/challenge-139/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/longest-sort.html
diff --git a/challenge-139/arne-sommer/raku/ch-1.raku b/challenge-139/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..30712a251a
--- /dev/null
+++ b/challenge-139/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@n where @n.elems >= 1 && all(@n) ~~ Numeric);
+
+my @sorted = @n.sort;
+
+say + ( [<=] @n );
\ No newline at end of file
diff --git a/challenge-139/arne-sommer/raku/ch-2.raku b/challenge-139/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..20e09572a2
--- /dev/null
+++ b/challenge-139/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $count where $count > 0 = 5);
+
+my $long-primes := (1..Inf).grep( { is-long-prime($_) } );
+
+sub is-long-prime ($p)
+{
+  return False unless $p.is-prime;
+
+  my ($zero, $pattern) = (1/$p).base-repeating;
+
+  return ($pattern.chars == $p -1);
+}
+
+say $long-primes[^$count].join(", ");
diff --git a/challenge-139/arne-sommer/raku/jort-sans-sort b/challenge-139/arne-sommer/raku/jort-sans-sort
new file mode 100755
index 0000000000..30712a251a
--- /dev/null
+++ b/challenge-139/arne-sommer/raku/jort-sans-sort
@@ -0,0 +1,7 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@n where @n.elems >= 1 && all(@n) ~~ Numeric);
+
+my @sorted = @n.sort;
+
+say + ( [<=] @n );
\ No newline at end of file
diff --git a/challenge-139/arne-sommer/raku/jort-sort b/challenge-139/arne-sommer/raku/jort-sort
new file mode 100755
index 0000000000..8a574c2e4e
--- /dev/null
+++ b/challenge-139/arne-sommer/raku/jort-sort
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@n where @n.elems >= 1 && all(@n) ~~ Numeric);
+
+say + (@n eqv @n.sort);
\ No newline at end of file
diff --git a/challenge-139/arne-sommer/raku/long-primes b/challenge-139/arne-sommer/raku/long-primes
new file mode 100755
index 0000000000..20e09572a2
--- /dev/null
+++ b/challenge-139/arne-sommer/raku/long-primes
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $count where $count > 0 = 5);
+
+my $long-primes := (1..Inf).grep( { is-long-prime($_) } );
+
+sub is-long-prime ($p)
+{
+  return False unless $p.is-prime;
+
+  my ($zero, $pattern) = (1/$p).base-repeating;
+
+  return ($pattern.chars == $p -1);
+}
+
+say $long-primes[^$count].join(", ");