From 31f4b978338bf01e127c7332bf9af118d8f0ca9b Mon Sep 17 00:00:00 2001 From: Syndamia Date: Fri, 2 Dec 2022 10:48:38 +0200 Subject: [2022/D01] Solved both tasks from day one --- 2022/Day1/part-one.cl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 2022/Day1/part-one.cl (limited to '2022/Day1/part-one.cl') diff --git a/2022/Day1/part-one.cl b/2022/Day1/part-one.cl new file mode 100644 index 0000000..34644c6 --- /dev/null +++ b/2022/Day1/part-one.cl @@ -0,0 +1,22 @@ +(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)) (maxsum 0) (csum 0)) + + (loop until (or (equal cal "end") (not cal)) do + (if (equal cal "") + (setq csum 0) + (setq csum (+ csum (parse-integer cal)))) + (if (> csum maxsum) + (setq maxsum csum)) + (setq cal (read-line *prog-input* NIL))) + + (print maxsum)) + +(if (not (eq *prog-input* *standard-input*)) + (close *prog-input*)) -- cgit v1.2.3