diff options
| -rw-r--r-- | challenge-286/arne-sommer/blog.txt | 2 | ||||
| -rwxr-xr-x | challenge-286/arne-sommer/raku/ch-1.raku | 9 | ||||
| -rwxr-xr-x | challenge-286/arne-sommer/raku/ch-2.raku | 33 | ||||
| -rwxr-xr-x | challenge-286/arne-sommer/raku/order-game | 33 | ||||
| -rwxr-xr-x | challenge-286/arne-sommer/raku/self-spammer | 9 |
5 files changed, 86 insertions, 0 deletions
diff --git a/challenge-286/arne-sommer/blog.txt b/challenge-286/arne-sommer/blog.txt new file mode 100644 index 0000000000..d65b583a81 --- /dev/null +++ b/challenge-286/arne-sommer/blog.txt @@ -0,0 +1,2 @@ +https://raku-musings.com/self-order.html + diff --git a/challenge-286/arne-sommer/raku/ch-1.raku b/challenge-286/arne-sommer/raku/ch-1.raku new file mode 100755 index 0000000000..4ebe9678f6 --- /dev/null +++ b/challenge-286/arne-sommer/raku/ch-1.raku @@ -0,0 +1,9 @@ +#! /usr/bin/env raku + +unit sub MAIN (:v(:$verbose)); + +my @words = $*PROGRAM.slurp.split(/\s+/); + +say ": words: { @words.map("'" ~ * ~ "'").join(",") }" if $verbose; + +say @words.pick;
\ No newline at end of file diff --git a/challenge-286/arne-sommer/raku/ch-2.raku b/challenge-286/arne-sommer/raku/ch-2.raku new file mode 100755 index 0000000000..c81060961d --- /dev/null +++ b/challenge-286/arne-sommer/raku/ch-2.raku @@ -0,0 +1,33 @@ +#! /usr/bin/env raku + +my $powtwo := (1, 2, 4, 8 ... *); + +unit sub MAIN (*@ints where all(@ints) ~~ Int && @ints.elems > 0, + :v(:$verbose)); + +my $length = @ints.elems; + +for $powtwo -> $int +{ + last if $int == $length; + die 'Wrong number of @ints. Should be power of two' if $int > $length; +} + +while @ints.elems > 1 +{ + say ":\@ints: ({ @ints.join(",") })" if $verbose; + + my @new; + my $min = True; + + for @ints -> $first, $second + { + @new.push($min ?? min($first, $second) !! max($first, $second) ); + + $min = ! $min; + } + + @ints = @new; +} + +say @ints.first; diff --git a/challenge-286/arne-sommer/raku/order-game b/challenge-286/arne-sommer/raku/order-game new file mode 100755 index 0000000000..c81060961d --- /dev/null +++ b/challenge-286/arne-sommer/raku/order-game @@ -0,0 +1,33 @@ +#! /usr/bin/env raku + +my $powtwo := (1, 2, 4, 8 ... *); + +unit sub MAIN (*@ints where all(@ints) ~~ Int && @ints.elems > 0, + :v(:$verbose)); + +my $length = @ints.elems; + +for $powtwo -> $int +{ + last if $int == $length; + die 'Wrong number of @ints. Should be power of two' if $int > $length; +} + +while @ints.elems > 1 +{ + say ":\@ints: ({ @ints.join(",") })" if $verbose; + + my @new; + my $min = True; + + for @ints -> $first, $second + { + @new.push($min ?? min($first, $second) !! max($first, $second) ); + + $min = ! $min; + } + + @ints = @new; +} + +say @ints.first; diff --git a/challenge-286/arne-sommer/raku/self-spammer b/challenge-286/arne-sommer/raku/self-spammer new file mode 100755 index 0000000000..4ebe9678f6 --- /dev/null +++ b/challenge-286/arne-sommer/raku/self-spammer @@ -0,0 +1,9 @@ +#! /usr/bin/env raku + +unit sub MAIN (:v(:$verbose)); + +my @words = $*PROGRAM.slurp.split(/\s+/); + +say ": words: { @words.map("'" ~ * ~ "'").join(",") }" if $verbose; + +say @words.pick;
\ No newline at end of file |