From f0e7c9f3f07b57a8a02191ea0a8d86432ab0ebea Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Fri, 14 Feb 2025 20:53:44 +0000 Subject: WIP: Making a simple re-deal program. Gives a hand from a shuffled deck to the user, asks them to provide indices for cards they wish to re-deal then does so. --- main.lisp | 27 ++++++++++++++++++++++----- 1 file changed, 22 insertions(+), 5 deletions(-) (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp index 2bd3102..53d9bec 100644 --- a/main.lisp +++ b/main.lisp @@ -32,7 +32,8 @@ (remove-if #'null))) (fn read-integers () (-> nil list) - (->> (read-input "Enter numbers: ") + (->> "Enter numbers: " + read-input parse-integers)) (fn read-until-integers () (-> nil list) @@ -43,8 +44,24 @@ (setq inp (read-integers))) inp)) +(fn is-valid-hand-index (n) (-> (fixnum) boolean) + (and (< n 5) + (>= n 0))) + +(fn read-until-valid-integers () (-> nil list) + (let ((inp (remove-duplicates (read-integers)))) + (while (not (every #'is-valid-hand-index inp)) + (format t "Need at most 5 integers between 0 and 4...~%") + (force-output) + (setq inp (remove-duplicates (read-integers)))))) + +(defun generate-hand () + (->> (make-deck) + alexandria:shuffle + (split 5))) + (defun start () - (--> var - (read-until-integers) - (cons '+ var) - (format t "~a = ~a~%" var (eval var)))) + (destructuring-bind (hand . rest) (generate-hand) + (declare (ignore rest)) + (->> hand cardset->str (format t "Hand=[~a]~%")) + (force-output))) -- cgit v1.2.3-13-gbd6f