From 2046a883766e03e7cd477961991e1d1c81e02e5d Mon Sep 17 00:00:00 2001 From: arnesom Date: Sun, 15 Jan 2023 15:27:29 +0100 Subject: Arne Sommer | update --- challenge-199/arne-sommer/raku/ch-1.raku | 2 +- challenge-199/arne-sommer/raku/good-pairs-map-shorter | 5 +++++ challenge-199/arne-sommer/raku/good-pairs-test | 9 +++++++++ 3 files changed, 15 insertions(+), 1 deletion(-) create mode 100755 challenge-199/arne-sommer/raku/good-pairs-map-shorter create mode 100755 challenge-199/arne-sommer/raku/good-pairs-test diff --git a/challenge-199/arne-sommer/raku/ch-1.raku b/challenge-199/arne-sommer/raku/ch-1.raku index 4f1e7cf383..7df80d95a7 100755 --- a/challenge-199/arne-sommer/raku/ch-1.raku +++ b/challenge-199/arne-sommer/raku/ch-1.raku @@ -2,4 +2,4 @@ unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/); -say @list.Bag.values.map({ (" " xx $_).combinations(2).elems }).sum; +say @list.Bag.values.map({ (^$_).sum }).sum; diff --git a/challenge-199/arne-sommer/raku/good-pairs-map-shorter b/challenge-199/arne-sommer/raku/good-pairs-map-shorter new file mode 100755 index 0000000000..7df80d95a7 --- /dev/null +++ b/challenge-199/arne-sommer/raku/good-pairs-map-shorter @@ -0,0 +1,5 @@ +#! /usr/bin/env raku + +unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/); + +say @list.Bag.values.map({ (^$_).sum }).sum; diff --git a/challenge-199/arne-sommer/raku/good-pairs-test b/challenge-199/arne-sommer/raku/good-pairs-test new file mode 100755 index 0000000000..1d86cea7da --- /dev/null +++ b/challenge-199/arne-sommer/raku/good-pairs-test @@ -0,0 +1,9 @@ +#! /usr/bin/env raku + +for 1 .. 100 -> $i +{ + my $comb = (" " xx $i).combinations(2).elems; + my $sum = (^$i).sum; + + say "$i: $comb vs $sum { $comb == $sum ?? "OK" !! "NOT OK" }"; +} -- cgit