Use an array to keep track of encoded chars.

1 files 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
 }