Skip to content

Instantly share code, notes, and snippets.

@desophos

desophos/clumsy.hs Secret

Last active January 28, 2021 08:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save desophos/edb68029593cd74f590a7a42f311d345 to your computer and use it in GitHub Desktop.
Save desophos/edb68029593cd74f590a7a42f311d345 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
clumsy.hs
randomChromosome :: Gen [PlayerState]
playGame :: ([Int] -> [Int]) -> [[PlayerState]] -> Int -> [Int]
dilemma :: [Int] -> [Int]
main :: IO ()
main =
let players = vectorOf 2 randomChromosome
f ps = playGame dilemma ps 3
in print =<< generate (fmap f players)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment