examples/aoc22_1.milch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

(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])