day08.k


1
2
3
4
5
6
7
8
9
10
11
12
13

/ use KDB+ 3.3 2016.03.14

f: 6 50#0
r: .q.rotate

{$["rect"~*w:" "\:x;.[`f;(!.:)'|"x"\:*|w;:;1]
   "row"~w[1];f[n]::r[-.*|w;f[n:.*|"="\:w 2]]
              f[;n]::r[-.*|w;f[;n:.*|"="\:w 2]]]}'0:`day08;

+//f		/ 106
-1'" #"f;	/ CFLELOYFCS

\\