diff options
| -rw-r--r-- | challenge-245/wambash/raku/ch-1.raku | 19 |
1 files changed, 19 insertions, 0 deletions
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 +} |