1 files changed, 29 insertions, 0 deletions
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])