From f06f7648d0203c34080a6ed03f1c94edf8f6d1db Mon Sep 17 00:00:00 2001 From: arnesom Date: Sun, 21 Nov 2021 21:43:12 +0100 Subject: Arne Sommer --- challenge-139/arne-sommer/blog.txt | 1 + challenge-139/arne-sommer/raku/ch-1.raku | 7 +++++++ challenge-139/arne-sommer/raku/ch-2.raku | 16 ++++++++++++++++ challenge-139/arne-sommer/raku/jort-sans-sort | 7 +++++++ challenge-139/arne-sommer/raku/jort-sort | 5 +++++ challenge-139/arne-sommer/raku/long-primes | 16 ++++++++++++++++ 6 files changed, 52 insertions(+) create mode 100644 challenge-139/arne-sommer/blog.txt create mode 100755 challenge-139/arne-sommer/raku/ch-1.raku create mode 100755 challenge-139/arne-sommer/raku/ch-2.raku create mode 100755 challenge-139/arne-sommer/raku/jort-sans-sort create mode 100755 challenge-139/arne-sommer/raku/jort-sort create mode 100755 challenge-139/arne-sommer/raku/long-primes 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(", "); -- cgit