oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Slightly clean up the example program in main

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-11 00:29:37 +00:00
parent 82875e22d3
commit 0b66ce5dc1
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
main.lisp
View File

@@ -27,7 +27,7 @@
(fn parse-integers (input) (-> (string) list) (fn parse-integers (input) (-> (string) list)
(->> input (->> input
(uiop:split-string) uiop:split-string
(mapcar #'parse-integer*) (mapcar #'parse-integer*)
(remove-if #'null))) (remove-if #'null)))
@@ -39,9 +39,11 @@
(let ((inp (read-integers))) (let ((inp (read-integers)))
(while (null inp) (while (null inp)
(format t "Need at least one integer...~%") (format t "Need at least one integer...~%")
(force-output)
(setq inp (read-integers))) (setq inp (read-integers)))
inp)) inp))
(defun start () (defun start ()
(--> (read-until-integers) (--> (read-until-integers)
(format t "~a = ~a~%" (cons '+ _) (reduce #'+ _)))) (cons '+ _)
(format t "~a = ~a~%" _ (eval _))))