Merge remote-tracking branch 'upstream/master'

2 files changed, 20 insertions, 1 deletions

diff --git a/challenge-245/jo-37/blog.txt b/challenge-245/jo-37/blog.txt
index b6a9859f6a..52678991f0 100644
--- a/challenge-245/jo-37/blog.txt
+++ b/challenge-245/jo-37/blog.txt
@@ -1 +1 @@
-https://github.com/manwar/perlweeklychallenge-club/blob/master/challenge-245/jo-37/blog/Blog.md
+https://github.sommrey.de/blog/pwc/challenge-245/
diff --git a/challenge-245/wambash/raku/ch-1.raku b/challenge-245/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..01f30341c8
--- /dev/null
+++ b/challenge-245/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub sort-language (:@lang,:@popularity) {
+    @popularity Z=> @lang
+    andthen .sort
+    andthen .map: *.value
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is sort-language(:lang<perl c python>,:popularity(2,1,3)), <c perl python>;
+    is sort-language(:lang<c++ haskell java>,:popularity(1,3,2)), <c++ java haskell>;
+    is sort-language(:lang<raku ruby perl>,:popularity(2,3,1)), <perl raku ruby>;
+    done-testing;
+}
+
+multi MAIN (:@lang,:@popularity) {
+    put sort-language :@lang,:@popularity
+}