aoc_1_without_types.roc

app "cli-tutorial"
    packages { pf: "examples/cli/platform" }
    imports [ pf.Stdout, pf.Task.{ await } ]
    provides [ main ] to pf


measurements = [199, 200, 208, 210, 200, 207, 240, 269, 260, 263 ]

increases = List.walk measurements { counts: 0, previousElement: None } \state, elem ->
    when state.previousElement is
        Some previousElement if previousElement < elem -> { counts: state.counts + 1, previousElement: Some elem }
        _ -> { state & previousElement: Some elem }

increasesStr = Num.toStr increases.counts

main =
    {} <- await (Stdout.line "There are \(increasesStr) increases")
    Task.succeed {}