From 857a37cd8c0a5e95d22a4d70195f930c6401f4d7 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Tue, 6 Dec 2022 17:49:48 +0200 Subject: [2022] Updated template, following update to senzill --- 2022/template.cl | 29 +++++++---------------------- 1 file changed, 7 insertions(+), 22 deletions(-) diff --git a/2022/template.cl b/2022/template.cl index f33661d..ae514fb 100644 --- a/2022/template.cl +++ b/2022/template.cl @@ -1,26 +1,11 @@ + ;;; https://gitlab.com/Syndamia/senzill (require :senzill) (use-package :senzill.collections) +(use-package :senzill.io) -;;; After loading this file, if you enter a blank line, code will work on each -;;; line of input, until "end" is typed. -;;; Otherwise, the input is taken as a filename and code will be executed -;;; over each line in the file until EOF. - -(defvar *prog-input*) -(let ((ui (read-line))) - (if (equal ui "") - (setq *prog-input* *standard-input*) - (setq *prog-input* (open ui)))) - -(let - ((inpt (read-line *prog-input* NIL)) ) - - (loop until (or (string= inpt "end") (not inpt)) do - (setq inpt (read-line *prog-input* NIL))) - - (print 1)) - -(if (not (eq *prog-input* *standard-input*)) - (close *prog-input*)) - +(ask-for-stream (prog-input) + (let () + (doread-lines (inpt :read-line-options (prog-input NIL)) + ) + (print 1))) -- cgit v1.2.3