diff options
| -rw-r--r-- | challenge-272/mark-anderson/raku/ch-1.raku | 5 | ||||
| -rw-r--r-- | challenge-272/mark-anderson/raku/ch-2.raku | 11 |
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-272/mark-anderson/raku/ch-1.raku b/challenge-272/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..aa2c4bab50 --- /dev/null +++ b/challenge-272/mark-anderson/raku/ch-1.raku @@ -0,0 +1,5 @@ +#!/usr/bin/env raku +use Test; + +is '1.1.1.1' .subst('.', '[.]', :g), '1[.]1[.]1[.]1'; +is '255.101.1.0'.subst('.', '[.]', :g), '255[.]101[.]1[.]0'; diff --git a/challenge-272/mark-anderson/raku/ch-2.raku b/challenge-272/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..7a42ee768b --- /dev/null +++ b/challenge-272/mark-anderson/raku/ch-2.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use Test; + +is string-score("hello"), 13; +is string-score("perl"), 30; +is string-score("raku"), 37; + +sub string-score($str) +{ + [+] map { abs(.[0] - .[1]) }, $str.comb>>.ord.rotor(2 => -1) +} |