From 88abb0430daab8e90f71df4ec0e5a28f45a4527c Mon Sep 17 00:00:00 2001 From: Jan Krňávek Date: Sat, 3 Jul 2021 09:48:32 +0200 Subject: solutions week 119 --- challenge-119/wambash/raku/ch-1.raku | 19 +++++++++++++++++++ challenge-119/wambash/raku/ch-2.raku | 16 ++++++++++++++++ 2 files changed, 35 insertions(+) create mode 100644 challenge-119/wambash/raku/ch-1.raku create mode 100644 challenge-119/wambash/raku/ch-2.raku diff --git a/challenge-119/wambash/raku/ch-1.raku b/challenge-119/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..b47594c4f5 --- /dev/null +++ b/challenge-119/wambash/raku/ch-1.raku @@ -0,0 +1,19 @@ +#!/usr/bin/env raku + +sub swap-nibbles ($n) { + blob8.new($n) + andthen .read-ubits(4,4)*16 + .read-ubits(0,4) +} + +multi MAIN (Int $n ) { + say swap-nibbles $n; +} + +multi MAIN (Bool :test($)!) { + use Test; + is swap-nibbles(101), 86; + is swap-nibbles(18), 33; + is swap-nibbles(255), 255; + is swap-nibbles(17), 17; + done-testing; +} diff --git a/challenge-119/wambash/raku/ch-2.raku b/challenge-119/wambash/raku/ch-2.raku new file mode 100644 index 0000000000..8a90daa9a6 --- /dev/null +++ b/challenge-119/wambash/raku/ch-2.raku @@ -0,0 +1,16 @@ +#!/usr/bin/env raku + +sub sequence-without-iter (+@n) { + @n + andthen 1,2,3 X~ $_ + andthen .grep: {!/11/} +} + +constant @sequence-without = ((1,2,3), { sequence-without-iter(|$_).cache } ... *).flat; +multi MAIN (Bool :test($)!) { + use Test; + is sequence-without-iter(''), <1 2 3>; + is sequence-without-iter(1,2,3), <12 13 21 22 23 31 32 33>; + is @sequence-without.head(15), (1, 2, 3, 12, 13, 21, 22, 23, 31, 32, 33, 121, 122, 123, 131); + done-testing; +} -- cgit