solutions/day6.fs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Solutions.Day6
open System.IO

let buf = File.ReadAllText("inputs/day6.txt")

let rec scan size str index =
    if String.length str < size then -1
    else
        let current = str[..size - 1] |> Set.ofSeq
        if Set.count current = size then index + size
        else
            scan size str[1..] index + 1

let part1 () =
    scan 4 buf 0

let part2 () =
    scan 14 buf 0