18 lines
468 B
Haskell
18 lines
468 B
Haskell
import Cartes
|
|
import System.Random.Shuffle
|
|
import Data.Set
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
donne <- shuffleM $ toList deck
|
|
let
|
|
taz = distribuer randomizedGame
|
|
infiniteSteps = iterate singleStep taz
|
|
steps = takeWhile (not . isDone) infiniteSteps
|
|
for_ steps $ \(x,y) -> do
|
|
print (length x, length y)
|
|
putStrLn $ prettyDeck x
|
|
putStrLn $ prettyDeck y
|
|
putStrLn ""
|