From d5b8ea4f4e751c853f7fab8fa0c3c41ce6127f9b Mon Sep 17 00:00:00 2001 From: Jan Krňávek Date: Sun, 30 Apr 2023 16:18:43 +0200 Subject: solutions week 214-1 --- challenge-214/wambash/raku/ch-1.raku | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 challenge-214/wambash/raku/ch-1.raku diff --git a/challenge-214/wambash/raku/ch-1.raku b/challenge-214/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..73610129a1 --- /dev/null +++ b/challenge-214/wambash/raku/ch-1.raku @@ -0,0 +1,26 @@ +#!/usr/bin/env raku +enum M (); + +multi rank-place (M(Int) $_){ $_ } +multi rank-place (Int $_ where * > 2){ $_ + 1 } +multi rank-place (+@place) { @place.map: &rank-place } + +sub rank-score (+@score) { + my %rank := @score.sort.reverse.antipairs.squish( as => *.key ).hash; + + @score.map: { rank-place %rank{$_} } +} + +multi MAIN (Bool :test($)!) { + use Test; + is rank-place(0,1,3,2,4),(G,S,4,B,5); + is rank-score(1,2,4,3,5),(5,4,S,B,G); + is rank-score(8,5,6,7,4),(G,4,B,S,5); + is rank-score(3,5,4,2) ,(B,G,S,4); + is rank-score(2,5,2,1,7,5,1),(4,S,4,6,G,S,6); + done-testing; +} + +multi MAIN (*@score) { + say rank-score @score; +} -- cgit