Advent of code 2020

adventofcode.fs

Day 1
let solve () =
    let list = File.ReadLines("input.txt") |> Seq.map (fun str -> (int str)) |> Seq.toArray
    let rec loop n rest=
        let found = list |> Array.tryFind(fun value -> value + n = 2020)
        if found.IsSome then printfn "%A" (found.Value * n)
        else loop (Array.head rest) (Array.tail rest)
    
    loop (Array.head list) (Array.tail list)