From d7b9880ad0b157f9586797468b396e61088ac4ec Mon Sep 17 00:00:00 2001 From: Syndamia Date: Fri, 2 Dec 2022 12:08:56 +0200 Subject: [2022] Added a common lisp template --- 2022/template.cl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 2022/template.cl diff --git a/2022/template.cl b/2022/template.cl new file mode 100644 index 0000000..9ffb4a0 --- /dev/null +++ b/2022/template.cl @@ -0,0 +1,18 @@ +(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)) ) + + (loop until (or (equal cal "end") (not cal)) do + (setq cal (read-line *prog-input* NIL))) + + (print 1)) + +(if (not (eq *prog-input* *standard-input*)) + (close *prog-input*)) + -- cgit v1.2.3