From 5e19826f9e3ba429e20e5b6f835a17b98ece47ce Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Wed, 14 Dec 2016 15:45:42 +0100
Subject: day13: cleanup

---
 day13.k | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/day13.k b/day13.k
index ce394ea..764fc31 100644
--- a/day13.k
+++ b/day13.k
@@ -1,9 +1,10 @@
 d:1350
 
-f:{(x*x) + (3*x) + (2*x*y) + y + (y*y)}
-
 w:~2!(+/2\{+/(d;x*x;3*x;2*x*y;y;y*y)}.)''(!50),/:\:!50
 m:w*{1 1~x}''(!50),/:\:!50
 
 -1+|/|/{~x . 31 39}{w*(x+x>0)|(+-1_'0,'+x)|(+1_'(+x),'0)|(1_'x,'0)|(0,'-1_'x)}/m
+/ 92
+
 +/+/0<50{w*(x+x>0)|(+-1_'0,'+x)|(+1_'(+x),'0)|(1_'x,'0)|(0,'-1_'x)}/m
+/ 124
-- 
cgit 1.4.1