(import "core/common")
(import "core/result")

;; utils

; convert ["a" "b" "c"] into "abc"
(let str-from-vec (\[vec]
    (foldr concat "" vec)))

;; solution

(let sample-path "examples/aoc22_1.txt")
(let sample-input (read-file! sample-path))

(print-fmt! "Read {0} characters from \"{1}\"\n" [
    (len sample-input)
    sample-path])

(let sample-vec (to-vec sample-input))

(let result1 (pipe sample-vec [
    (split-by "\n")
    (map str-from-vec)
    (split-by "")
    (map (map parse-int))
    (map (foldr + 0))
    maximum
]))

(print-fmt! "Result 1: {0}\n" [result1])

(let result2 (pipe sample-vec [
    (split-by "\n")
    (map str-from-vec)
    (split-by "")
    (map (map parse-int))
    (map (foldr + 0))
    (sort-by (* -1))
    (take 3)
    (foldr + 0)
]))

(print-fmt! "Result 2: {0}\n" [result2])