1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
a:{~~#{(~x[0]=x[1])&(x[1]=x[2])&x[3]=*x}#-4_(1_)\x}
a:|/({[a;b;c;d](~a=b)&(b=c)&a=d}.)'4#'-4_(1_)\
a:|/{(~*x=x[1])&x~|x}'4#'-4_(1_)\
+/{{(|/y)&~|/x}.+0N 2#0,a'x}'(,/"]"\'"["\)'0:"day07"
+/({(|/y)&~|/x}.+0N 2#0,(|/{(~=/2_x)&x~|x}'4#'-4_(1_)\)',/"]"\'"["\)'0:"day07"
/ thx zgrep
+/(0 1~|/0N 2#0,(|/{(~=/2_x)&x~|x}'4#'-4_(1_)\)',/"]"\'"["\)'0:"day07"
#(0 1~|/0N 2#0,(|/{(~=/2_x)&x~|x}'4#'-4_(1_)\)',/"]"\'"["\)#0:"day07"
#(1 0~|/0N 2#(|/{(~=/2_x)&x~|x}'4#'-4_(1_)\)',/"]"\'"["\)#0:"day07"
/ thx John Earnest
#(1 0~|/0N 2#(|/{(~=/2_x)&x~|x}'4':)',/"]"\'"["\)#0:"day07"
/ 115
+/{{|/x in\:(3#1_)'y}.,/'({x~|x}#3#'-3_(1_)\)''+0N 2#x}'(,/"]"\'"["\)'0:"day07"
+/({|/x in\:(3#1_)'y}.,/'+0N 2#({x~|x}#3#'-3_(1_)\)',/"]"\'"["\)'0:"day07"
#({|/x in\:(3#1_)'y}.,/'+0N 2#({x~|x}#3#'-3_(1_)\)',/"]"\'"["\)#0:"day07"
#({|/x in\:(3#1_)'y}.,/'+0N 2#({x~|x}#3':)',/"]"\'"["\)#0:"day07"
/ 231
\\
|
