From 3151981db40b1603077cb9d2eb356902b10d76f1 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Tue, 13 Oct 2020 22:53:50 +0200
Subject: #2 both ways

---
 challenge-082/markus-holzer/raku/ch-2.raku | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/challenge-082/markus-holzer/raku/ch-2.raku b/challenge-082/markus-holzer/raku/ch-2.raku
index 56d47ff51d..cc6549050e 100644
--- a/challenge-082/markus-holzer/raku/ch-2.raku
+++ b/challenge-082/markus-holzer/raku/ch-2.raku
@@ -1,3 +1,6 @@
 unit sub MAIN( Str $A, Str $B, Str $C where $C.chars == $A.chars + $B.chars );
 
-say +so grep { $C eq [~] $A.substr( 0, $^i ), $B, $A.substr( $^i ) }, ^$A.chars
\ No newline at end of file
+sub interleavable( Str $a, Str $b, Str $c ) {
+    so grep { $c eq [~] $a.substr( 0, $^i ), $b, $a.substr( $^i ) }, ^$a.chars }
+
+say +( interleavable( $A, $B, $C ) || interleavable( $B, $A, $C ) )
\ No newline at end of file
-- 
cgit