From 1ba60f272d94629dfa1219b11464596f295e5d67 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Mon, 7 Dec 2015 15:44:45 +0100
Subject: day3/5: monadic ? is uniq already.

---
 day3.k | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'day3.k')

diff --git a/day3.k b/day3.k
index f4e8791..92812cc 100644
--- a/day3.k
+++ b/day3.k
@@ -1,10 +1,9 @@
 d: *0:"day3";
 / with case z:{:[x=">";1 0;x="<";-1 0;x="^";0 1;x="v";0 -1; 0 0]}'d;
 z: (1 0;-1 0;0 1;0 -1) @ "<>^v"?/:d;
-u: {x@*:'=x};
-r: u@ +\ (, 0 0) , z;
-#r
+r: +\ (, 0 0) , z;
+#?r
 
 z2: + -1 2 # z; / alternating split
-r2: u@ ,/ +\' (,0 0) ,/: z2;
-#r2
+r2: ,/ +\' (,0 0) ,/: z2;
+#?r2
-- 
cgit 1.4.1