From 90e1438863b710e9e19a6208d2e1fd953bfdec2a Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Sun, 6 Dec 2015 20:12:58 +0100
Subject: day3

---
 day3.k | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 day3.k

(limited to 'day3.k')

diff --git a/day3.k b/day3.k
new file mode 100644
index 0000000..f4e8791
--- /dev/null
+++ b/day3.k
@@ -0,0 +1,10 @@
+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
+
+z2: + -1 2 # z; / alternating split
+r2: u@ ,/ +\' (,0 0) ,/: z2;
+#r2
-- 
cgit 1.4.1