From 0e374a69685a03a9428f2cb5bbde0cd01ab503ba Mon Sep 17 00:00:00 2001
From: Andrei Osipov <andreoss@sdf.org>
Date: Wed, 29 Apr 2015 05:09:16 -0400
Subject: [PATCH] [euler] problem 59, add back previosly removed lines

---
 categories/euler/prob059-andreoss.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/categories/euler/prob059-andreoss.pl b/categories/euler/prob059-andreoss.pl
index 9508a43..02c423f 100644
--- 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/
 	}