From 21ee11d3df3000a77d5b36d3c7e0a18d9a07d599 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Tue, 6 Dec 2022 13:43:46 +0200 Subject: Add stdlib stuff, aoc22_1 example --- examples/aoc22_1.milch | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 examples/aoc22_1.milch (limited to 'examples/aoc22_1.milch') diff --git a/examples/aoc22_1.milch b/examples/aoc22_1.milch new file mode 100644 index 0000000..4170661 --- /dev/null +++ b/examples/aoc22_1.milch @@ -0,0 +1,29 @@ +(import! "stdlib/common.milch") + +;; 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)) + max +])) + +(print-fmt! "Result 1: {0}\n" [result1]) -- cgit v1.3