Implement read-and-confirm for extra step before re-deal

Found that I sometimes did a misinput which lead to losing a critical
card - implemented a function which asks for confirmation (with a
print out of the cards that will be redealt) before doing the redeal.

1 files changed, 15 insertions, 1 deletions

diff --git a/src/main.lisp b/src/main.lisp
index f63326d..8b8aabb 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -58,6 +58,20 @@
       (setq inp (remove-duplicates (read-integers))))
     inp))
 
+(fn read-and-confirm-valid-integers (hand) (-> nil list)
+  (let ((confirm nil)
+        inp)
+    (while (null confirm)
+      (setq inp (read-until-valid-integers))
+      (if (null inp)
+          (format t "No redeal (end of game)~%")
+          (->> (loop :for index :in inp
+                     :collect (nth index hand))
+               cardset->str
+               (format t "To redeal: ~a~%")))
+      (setq confirm (y-or-n-p "Confirm: ")))
+    inp))
+
 (defun print-hand (hand)
   (->> hand cardset->str (format t "Hand=[~a]~%")))
 
@@ -70,7 +84,7 @@
        (print-hand hand)
        (read-redeal-print hand deck)))
     (t
-     (let ((indices (read-until-valid-integers)))
+     (let ((indices (read-and-confirm-valid-integers hand)))
        (if (null indices)
            (cons hand deck)
            (destructuring-bind (hand . deck) (redeal-hand hand indices deck)