From 350221cfb0019d03b3ad4d78c9c443f890080c03 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Fri, 14 Feb 2025 23:26:06 +0000
Subject: Fix problem with alexandria:shuffle not being truly random

Due to the way random works, we need to see it on each run of the
binary - thus need to make a new random state.
---
 src/main.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/main.lisp')

diff --git a/src/main.lisp b/src/main.lisp
index e92b6ad..422beab 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -64,6 +64,7 @@
        (split 5)))
 
 (defun start ()
+  (setf *random-state* (make-random-state t))
   (destructuring-bind (hand . rest) (generate-hand)
     (declare (ignore rest))
     (->> hand cardset->str (format t "Hand=[~a]~%"))
-- 
cgit v1.2.3-13-gbd6f