From ecdedeeb483824aa331a83c353b767bbf90f9ee8 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 25 Jan 2021 10:45:18 +0100
Subject: Use an array to keep track of encoded chars.

---
 challenge-097/luca-ferrari/raku/ch-1.p6 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-097/luca-ferrari/raku/ch-1.p6 b/challenge-097/luca-ferrari/raku/ch-1.p6
index f8897ae78a..927e1b1586 100644
--- a/challenge-097/luca-ferrari/raku/ch-1.p6
+++ b/challenge-097/luca-ferrari/raku/ch-1.p6
@@ -13,7 +13,7 @@ sub MAIN( Str $S = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG",
 
     %cipher{ @alphabet[ $_ ] } = @alphabet.rotate( $N * -1  )[ $_ ] for ^@alphabet.elems;
 
-    say "Encoding $S";
-    print %cipher{ $_ }:exists ?? %cipher{ $_ } !! $_ for $S.uc.comb;
-    say "\ndone";
+    my @encoded;
+    @encoded.push: %cipher{ $_ }:exists ?? %cipher{ $_ } !! $_ for $S.uc.comb;
+    "Encoded string for text\n$S\nis\n{ @encoded.join('') }\n".say
 }
-- 
cgit