Shorten shuffle and improve its randomness (previous one declusters poorly)

KoiKoi.hs

@@ -62,13 +62,8 @@ shuffle l =
   aux (length l) l
   where
     aux n [] = return []
-    aux n [a] = return [a]
+    aux n (h:t) = do
-    aux n l = do
+      cut <- randomRIO (0, n-1)
-      cut <- randomRIO (0, n - 1)
+      shuffled <- shuffle t
-      let (top, bottom) = splitAt cut l
+      let (top, bottom) = splitAt cut shuffled
-      shuffledTop <- aux cut top
+      return $ top ++ h : bottom
-      shuffledBottom <- aux (n - cut) bottom
-      reorder <- randomRIO (False, True)
-      return $ if reorder
-        then shuffledTop ++ shuffledBottom
-        else shuffledBottom ++ shuffledTop