From 15aab5d23ae97f4dd498bf3460be1ef22e31f3b5 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Fri, 2 Dec 2022 12:10:03 +0200 Subject: [2022] Updated names of folders --- 2022/Day1/part-one.cl | 22 ---------------------- 1 file changed, 22 deletions(-) delete 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 deleted file mode 100644 index 34644c6..0000000 --- a/2022/Day1/part-one.cl +++ /dev/null @@ -1,22 +0,0 @@ -(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