toki/conways-game-of-life
1
0
Fork 0
Code Issues Pull requests Activity

Adjust Rule to use a more conventional list format

Browse source
This commit is contained in:
Kiana Sheibani 2021-12-20 15:24:19 -05:00
parent 0bd6719a8d
commit 74a44701e0
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
GOL/Rule.hs
View file

@ -10,8 +10,7 @@ module GOL.Rule where
-- the current cell, and returns whether that cell will be -- the current cell, and returns whether that cell will be
-- alive in the next generation. -- alive in the next generation.
data Rule = Rule data Rule = Rule
{ { -- | A predicate deciding if an alive cell
-- | A predicate deciding if an alive cell
-- will be alive in the next generation. -- will be alive in the next generation.
survive :: Int -> Bool, survive :: Int -> Bool,
-- | A predicate deciding if a dead cell -- | A predicate deciding if a dead cell
@ -19,8 +18,11 @@ data Rule = Rule
birth :: Int -> Bool birth :: Int -> Bool
} }
-- | Construct a rule by giving lists of
-- values that satisfy each predicate.
rule :: [Int] -> [Int] -> Rule
rule s b = Rule (`elem` s) (`elem` b)
-- | The standard GOL rule (S23/B3). -- | The standard GOL rule (S23/B3).
standardRule :: Rule standardRule :: Rule
standardRule = Rule (`elem` [2,3]) (== 3) standardRule = rule [2, 3] [3]