diff options
| author | Christian Neukirchen <chneukirchen@gmail.com> | 2015-12-07 15:44:45 +0100 |
|---|---|---|
| committer | Christian Neukirchen <chneukirchen@gmail.com> | 2015-12-07 15:44:45 +0100 |
| commit | 1ba60f272d94629dfa1219b11464596f295e5d67 (patch) | |
| tree | 67b022f15bfd840d089cdfc474c8891d8fa6c2e0 /day5.k | |
| parent | aaf16ff170dfceb12c816f01ec7870f5fc285885 (diff) | |
| download | adventofcode2015-1ba60f272d94629dfa1219b11464596f295e5d67.tar.gz adventofcode2015-1ba60f272d94629dfa1219b11464596f295e5d67.tar.xz adventofcode2015-1ba60f272d94629dfa1219b11464596f295e5d67.zip | |
day3/5: monadic ? is uniq already.
Diffstat (limited to 'day5.k')
| -rw-r--r-- | day5.k | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/day5.k b/day5.k index 938d43c..09fef93 100644 --- a/day5.k +++ b/day5.k @@ -7,9 +7,8 @@ r3: {~#,/x _ss ("ab";"cd";"pq";"xy")}; / no ab/cd/pq/xy #&(r3'd)&(r2'd)&(r1'd) bg: {[s]{x;2#(x-1) _ s}'1+!#s}; / bigrams -u: {x@*:'=x}; / uniq -r4: {0<#&1<#:' x _ss u@bg x}; / duplicate bigram +r4: {0<#&1<#:' x _ss ?bg x}; / duplicate bigram r5: {0<#&(-2_ x)=(2_ x)}; / matches (.).\1 #&(r4'd)&(r5'd) |