diff options
| -rw-r--r-- | challenge-261/mark-anderson/raku/ch-2.raku | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/challenge-261/mark-anderson/raku/ch-2.raku b/challenge-261/mark-anderson/raku/ch-2.raku deleted file mode 100644 index a7d91102fa..0000000000 --- a/challenge-261/mark-anderson/raku/ch-2.raku +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/env raku -use Test; - -is multiply-by-two([5,3,6,1,12], 3), 24; -is multiply-by-two([1,2,4,3], 1), 8; -is multiply-by-two([5,6,7], 2), 2; - -sub multiply-by-two(@a, $s) -{ - my $seq := $s, $s*2, $s*4, $s*8...@a.max; - $s + (@a (&) $seq).keys.sum -} |