diff options
| -rw-r--r-- | 2022/template.cl | 29 |
1 files 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))) |