diff options
| author | Syndamia <kamen@syndamia.com> | 2022-12-02 10:48:38 +0200 |
|---|---|---|
| committer | Syndamia <kamen@syndamia.com> | 2022-12-02 12:08:13 +0200 |
| commit | 31f4b978338bf01e127c7332bf9af118d8f0ca9b (patch) | |
| tree | 1f70f0951edd823f922d292f0e5c884dfae2beaf /2022/Day1/part-two.cl | |
| parent | dbaf13e629982c570068256f482779fd0e4bcb38 (diff) | |
| download | advent-of-code-31f4b978338bf01e127c7332bf9af118d8f0ca9b.tar advent-of-code-31f4b978338bf01e127c7332bf9af118d8f0ca9b.tar.gz advent-of-code-31f4b978338bf01e127c7332bf9af118d8f0ca9b.zip | |
[2022/D01] Solved both tasks from day one
Diffstat (limited to '2022/Day1/part-two.cl')
| -rw-r--r-- | 2022/Day1/part-two.cl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/2022/Day1/part-two.cl b/2022/Day1/part-two.cl new file mode 100644 index 0000000..2d88791 --- /dev/null +++ b/2022/Day1/part-two.cl @@ -0,0 +1,21 @@ +(defvar *prog-input*) + +(let ((ui (read-line))) + (if (equal ui "") + (setq *prog-input* *standard-input*) + (setq *prog-input* (open ui)))) + +(let + ((cal (read-line *prog-input* NIL)) (sums '(0))) + + (loop until (or (equal cal "end") (not cal)) do + (if (equal cal "") + (push 0 sums) + (push (+ (pop sums) (parse-integer cal)) sums)) + (setq cal (read-line *prog-input* NIL))) + + (setq sums (sort sums #'>)) + (print (+ (first sums) (second sums) (third sums)))) + +(if (not (eq *prog-input* *standard-input*)) + (close *prog-input*)) |