From 6b60c5065b55b8886285afba01021a531645bd38 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Sun, 9 Feb 2025 13:32:04 +0000 Subject: Re-implement all functions in main via fn macro. --- main.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/main.lisp b/main.lisp index 6076581..674d09c 100644 --- a/main.lisp +++ b/main.lisp @@ -20,18 +20,21 @@ (in-package :main) -(defun read-input (&optional (prompt "> ")) +(fn read-input (&optional (prompt "> ")) + (-> (&optional string) string) (format t "~a" prompt) (force-output) (read-line)) -(defun read-integers () +(fn read-integers () + (-> nil list) (->> (read-input "Enter numbers: ") (uiop:split-string) (mapcar (lambda (s) (parse-integer s :junk-allowed t))) (remove-if #'null))) -(defun read-until-integers () +(fn read-until-integers () + (-> nil list) (let ((inp (read-integers))) (while (null inp) (format t "Need at least one integer...~%") -- cgit v1.2.3-13-gbd6f