Something went wrong. Try again.
Code for the Advent of Code event
aoc advent-of-code
Something went wrong. Try again.
379 B · 23 lines
at rust
123456789101112131415161718192021222324open System.IO
let nums = File.ReadLines ("input") |> Seq.map int
let part1 = nums |> Seq.windowed 2 |> Seq.filter (fun e -> Seq.head e < Seq.last e) |> Seq.length
printfn "%d" part1
let part2 = nums |> Seq.windowed 3 |> Seq.map (fun e -> Seq.sum e) |> Seq.windowed 2 |> Seq.filter (fun e -> Seq.head e < Seq.last e) |> Seq.length
printfn "%d" part2