From fa50c09740fd8a0b160a53c307a98e2234057726 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Mon, 5 Dec 2016 14:39:53 +0100
Subject: day04: tweaks

---
 day04.k | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/day04.k b/day04.k
index 9c16683..f2ef8f6 100644
--- a/day04.k
+++ b/day04.k
@@ -3,5 +3,8 @@ n:{.:x@&~(x<"0")|x>"9"}
 +/n'm:{(1_-6#-1_x)~5#!=v@>{(+/x=*x),-*x}'v,\:v:-7_x^"-01234567890"}#0:"day04"
 / 361724
 
+/ thanks to John Earnest
++/n'm:{(1_-6#-1_x)~5#>#:'=v@<v:-7_x^"-01234567890"}#0:"day04"
+
 n@*{"north"~5#`c$"a"+26!(n@x)+x-"a"}#m
 / 482
-- 
cgit 1.4.1