Merge pull request #23 from andreoss/prob059

Fix errors in solution to Problem 59
Raku · Apr 29, 2015 · 2b08b3c · 2b08b3c
2 parents 219e6a1 + 0e374a6
commit 2b08b3c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/categories/euler/prob059-andreoss.pl b/categories/euler/prob059-andreoss.pl
@@ -65,6 +65,12 @@ sub infix:<XOR>(@cipher, @password) {
     for @chunks -> @chunk {
 
 	my @password  = @chunk[^3] XOR @word;
+	my $password  = as-word @password;
+
+	next unless $password ~~ /^^ <[a..z]> ** 3 $$/ ;
+
+	my $decrypted = as-word @cipher[$offset .. *] XOR @password;
+
 	my $count =  [+] do for @common-words.grep({$_ !~~ $w}) -> $word {
 	    elems $decrypted ~~ m:g:i/$word/
 	}