diff options
Diffstat (limited to 'day10.k')
-rw-r--r-- | day10.k | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/day10.k b/day10.k new file mode 100644 index 0000000..0b86ba8 --- /dev/null +++ b/day10.k @@ -0,0 +1,15 @@ +d:"1113122113" + +/ r:{o:(x=*x)?0;:[o=#x;,x;(,(o#x)),_f[o _ x]]} +r:{(0,1+&~=':x) _ x} / group consecutive elements + +l:{,/ {($#x),*x}' r x} / look-and-say, 1 step + +s:(40 l/d) + +v: #s + +s:(10 l/s) / 10 more steps +/ for some reason this takes ages... + +v: #s |