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

Add getSpace utility function

Browse source
This commit is contained in:
Kiana Sheibani 2021-12-28 18:15:49 -05:00
parent 64fd7d3afc
commit 42ec44a6f8
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
GOL/Engine.hs
View file

@ -24,9 +24,10 @@ gol r p s = EnvT r $ StoreT (Identity s) p
-- | Construct a 'GOL' value on a displayable space, -- | Construct a 'GOL' value on a displayable space,
-- defaulting to an initial position of @(0, 0)@. -- defaulting to an initial position of @(0, 0)@.
gol' :: DisplayableSpace f => Rule -> f a -> GOL f a gol' :: DisplayableSpace f => Rule -> f a -> GOL f a
gol' r = gol r (0,0) gol' r = gol r (0, 0)
getSpace :: GOL f a -> f a
getSpace (EnvT _ (StoreT (Identity s) _)) = s
getNeighbors :: forall f a. Space f => GOL f a -> [a] getNeighbors :: forall f a. Space f => GOL f a -> [a]
getNeighbors = experiment $ neighbors @f getNeighbors = experiment $ neighbors @f