From a3a3b2ad646db94df0c5b878bd9ee7b797db7650 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Thu, 15 Dec 2016 20:49:50 +0100
Subject: day14: tweaks

---
 day14.k | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/day14.k b/day14.k
index d516afd..33f3168 100644
--- a/day14.k
+++ b/day14.k
@@ -1,3 +1,4 @@
+/ use q 2016.03.14
 d:"zpqevtbw"
 
 k:,/$-15!d,$:
@@ -10,7 +11,7 @@ r:()
 
 r:()
 h:(,-1)!,""
-s:{$[~""~h[x];h[x];:h[x]:2016(,/$-15!)/(,/$-15!d,$:x)]}
+s:{$[x in !h;h[x];:h[x]:2016(,/$-15!)/(,/$-15!d,$:x)]}
 {64>#r}{ t::{~|/(1=#?:)'{1_x,y}\[3#0;s x]}(1+)/x
   -1@($t)," ",($#r)
   p:: 5#s[t]@*&(1=#?:)'{1_x,y}\[3#0;s t]
-- 
cgit 1.4.1