From 997be5bd984937177f7ee4177555662b66ae9ddb Mon Sep 17 00:00:00 2001 From: arnesom Date: Fri, 26 Jul 2024 19:36:47 +0200 Subject: Arne Sommer --- challenge-279/arne-sommer/blog.txt | 1 + challenge-279/arne-sommer/raku/ch-1.raku | 6 ++++++ challenge-279/arne-sommer/raku/ch-2.raku | 7 +++++++ challenge-279/arne-sommer/raku/sort-letters | 6 ++++++ challenge-279/arne-sommer/raku/split-string | 5 +++++ challenge-279/arne-sommer/raku/split-string-zero | 7 +++++++ 6 files changed, 32 insertions(+) create mode 100644 challenge-279/arne-sommer/blog.txt create mode 100755 challenge-279/arne-sommer/raku/ch-1.raku create mode 100755 challenge-279/arne-sommer/raku/ch-2.raku create mode 100755 challenge-279/arne-sommer/raku/sort-letters create mode 100755 challenge-279/arne-sommer/raku/split-string create mode 100755 challenge-279/arne-sommer/raku/split-string-zero diff --git a/challenge-279/arne-sommer/blog.txt b/challenge-279/arne-sommer/blog.txt new file mode 100644 index 0000000000..f8b73f7173 --- /dev/null +++ b/challenge-279/arne-sommer/blog.txt @@ -0,0 +1 @@ +https://raku-musings.com/sort-of-again.html diff --git a/challenge-279/arne-sommer/raku/ch-1.raku b/challenge-279/arne-sommer/raku/ch-1.raku new file mode 100755 index 0000000000..bdec48316f --- /dev/null +++ b/challenge-279/arne-sommer/raku/ch-1.raku @@ -0,0 +1,6 @@ +#! /usr/bin/env raku + +unit sub MAIN ($letters where $letters.chars > 0, + *@weight where @weight.elems eq $letters.chars && all(@weight) ~~ UInt); + +say ($letters.comb Z @weight).sort({ $^a.[1] <=> $^b.[1] }).map( *.[0] ).join; diff --git a/challenge-279/arne-sommer/raku/ch-2.raku b/challenge-279/arne-sommer/raku/ch-2.raku new file mode 100755 index 0000000000..b5add71ebe --- /dev/null +++ b/challenge-279/arne-sommer/raku/ch-2.raku @@ -0,0 +1,7 @@ +#! /usr/bin/env raku + +unit sub MAIN ($str where $str.chars > 0); + +my $elems = $str.comb.grep( * eq any() ).elems; + +say so $elems && $elems %% 2; diff --git a/challenge-279/arne-sommer/raku/sort-letters b/challenge-279/arne-sommer/raku/sort-letters new file mode 100755 index 0000000000..bdec48316f --- /dev/null +++ b/challenge-279/arne-sommer/raku/sort-letters @@ -0,0 +1,6 @@ +#! /usr/bin/env raku + +unit sub MAIN ($letters where $letters.chars > 0, + *@weight where @weight.elems eq $letters.chars && all(@weight) ~~ UInt); + +say ($letters.comb Z @weight).sort({ $^a.[1] <=> $^b.[1] }).map( *.[0] ).join; diff --git a/challenge-279/arne-sommer/raku/split-string b/challenge-279/arne-sommer/raku/split-string new file mode 100755 index 0000000000..08b55be341 --- /dev/null +++ b/challenge-279/arne-sommer/raku/split-string @@ -0,0 +1,5 @@ +#! /usr/bin/env raku + +unit sub MAIN ($str where $str.chars > 0); + +say $str.comb.grep( * eq any() ).elems %% 2; diff --git a/challenge-279/arne-sommer/raku/split-string-zero b/challenge-279/arne-sommer/raku/split-string-zero new file mode 100755 index 0000000000..b5add71ebe --- /dev/null +++ b/challenge-279/arne-sommer/raku/split-string-zero @@ -0,0 +1,7 @@ +#! /usr/bin/env raku + +unit sub MAIN ($str where $str.chars > 0); + +my $elems = $str.comb.grep( * eq any() ).elems; + +say so $elems && $elems %% 2; -- cgit