From 89dc00913c770e76af9eee5b68242414dbf0feac Mon Sep 17 00:00:00 2001 From: Christian Neukirchen Date: Sat, 17 Dec 2016 16:26:35 +0100 Subject: day17 --- day17.k | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 day17.k diff --git a/day17.k b/day17.k new file mode 100644 index 0000000..535b495 --- /dev/null +++ b/day17.k @@ -0,0 +1,15 @@ +/ use q 2016.03.14 + +d:"veumntbg" + +b:1000#" " +w:{$[(#x)<#b;$[3 3~t:+/(-1 0;1 0;0 -1;0 1;0 0)"UDLR"?x; b::x; &/t>-1; w'x,/:"UDLR"@&"a"<,/$2#-15!x; ];]} + +w d; +(#d)_b / DDRRULRDRD + +l:0 +u:{$[&/4 4>|/t:+\(-1 0;1 0;0 -1;0 1;0 0)@"UDLR"?x; $[3 3~s:*|t; l::l|#x; $[&/s>-1; u'x,/:"UDLR"@&"a"<,/$2#-15!x;]];]} + +u d; +l-#d / 536 -- cgit 1.4.1