USING: io.encodings.utf8 io.files kernel math prettyprint sequences sets ; IN: aoc.6 : input ( -- input ) "~/factor/aoc/6/6.in" utf8 file-lines first ; : find-start ( str n-uniq -- n ) [ dupd [ dupd head all-unique? ] curry [ rest ] until [ length ] bi@ - ] keep + ; : part1 ( -- n ) input 4 find-start ; : part2 ( -- n ) input 14 find-start ; : solve ( -- ) part1 . part2 . ;