about summary refs log tree commit diff
path: root/day14.k
blob: 33f3168f34769e9671c69c2ce33a4462116122b6 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/ use q 2016.03.14
d:"zpqevtbw"

k:,/$-15!d,$:
r:()
{64>#r}{ t::{~|/(1=#?:)'{1_x,y}\[3#0;k x]}(1+)/x
  p:: 5#k[t]@*&(1=#?:)'{1_x,y}\[3#0;k t]
  $[#&{#ss[x;p]}'k't+1+!1000; r,:t;]
  t+1 }/0;
*|r	/ 16106

r:()
h:(,-1)!,""
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]
  $[#&{#ss[x;p]}'s't+1+!1000; r,:t;]
  t+1 }/0;
*|r	/ 22423