Ignore whitespace in decoder

1 files changed, 5 insertions, 2 deletions

diff --git a/challenge-035/daniel-mita/perl6/Morse.pm6 b/challenge-035/daniel-mita/perl6/Morse.pm6
index 106d7b8846..b387cd9904 100644
--- a/challenge-035/daniel-mita/perl6/Morse.pm6
+++ b/challenge-035/daniel-mita/perl6/Morse.pm6
@@ -88,10 +88,13 @@ module Morse {
 
   #| Decode binary morse code
   sub decode (
-    Str $bits where *.trim.comb.all eq 1|0, #= A string containing a sequence of 1s and 0s
+    Str $bits where *.comb(/\S/).all eq 1|0, #= A string containing a sequence of 1s and 0s
     --> Str
   ) is export {
-    .return with Decode.parse( $bits.trim, :actions(Decoder.new) ).made;
+    .return with Decode.parse(
+      $bits.trans( /\s+/ => '' ),
+      :actions(Decoder.new)
+    ).made;
     X::Morse::InvalidSequence.new.throw;
   }