diff options
| -rw-r--r-- | challenge-243/mark-anderson/raku/ch-1.raku | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/challenge-243/mark-anderson/raku/ch-1.raku b/challenge-243/mark-anderson/raku/ch-1.raku index 7f6bd0bee2..a944777d1e 100644 --- a/challenge-243/mark-anderson/raku/ch-1.raku +++ b/challenge-243/mark-anderson/raku/ch-1.raku @@ -1,10 +1,16 @@ #!/usr/bin/env raku use Test; +use experimental :cached; is reverse-pairs(1,3,2,3,1), 2; is reverse-pairs(2,4,3,5,1), 3; sub reverse-pairs(*@a) { - + grep { .[0] > .[1] * 2 }, @a.combinations(2) + sub rp($p) is cached + { + .[0] > .[1] * 2 given |$p + } + + + @a.combinations(2).grep(&rp) } |