From e73ad00f44479e3065ccf12d07ca3ae22ca1f3f0 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Tue, 6 Dec 2022 15:40:52 +0200 Subject: Remove ! from end of builtin top-level functions --- examples/aoc22_1.milch | 25 +++++++++++++++++++------ 1 file changed, 19 insertions(+), 6 deletions(-) (limited to 'examples/aoc22_1.milch') diff --git a/examples/aoc22_1.milch b/examples/aoc22_1.milch index 4170661..7a4520a 100644 --- a/examples/aoc22_1.milch +++ b/examples/aoc22_1.milch @@ -1,23 +1,23 @@ -(import! "stdlib/common.milch") +(import "stdlib/common.milch") ;; utils ; convert ["a" "b" "c"] into "abc" -(let! str-from-vec (\[vec] +(let str-from-vec (\[vec] (foldr concat "" vec))) ;; solution -(let! sample-path "examples/aoc22_1.txt") -(let! sample-input (read-file! sample-path)) +(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 sample-vec (to-vec sample-input)) -(let! result1 (pipe sample-vec [ +(let result1 (pipe sample-vec [ (split-by "\n") (map str-from-vec) (split-by "") @@ -27,3 +27,16 @@ ])) (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]) -- cgit v1.3