about summary refs log tree commit diff
path: root/day8.k
blob: cf89ef4fcee1a5a05461a7ff6ae518c981228754 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
/ use k-3.2

d:0:"day8"

ll: +/#:'d / literal length

ue:{
 s:_ssr[x;"\\\\";"z"]
 s:_ssr[s;"\\\"";"z"]
 :(#s)-2+3*+/"\\"=s
}

ml: +/ue'd / unencoded length

ll-ml

el: {2+(#x)+#&("\""=x)|("\\"=x)} / encoded length

(+/el' d)-ll