Create GOL.Space
This commit is contained in:
parent
96cccfe750
commit
d3046d4b97
2 changed files with 15 additions and 4 deletions
9
GOL/Space.hs
Normal file
9
GOL/Space.hs
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
module GOL.Space where
|
||||
|
||||
import Data.Functor.Rep
|
||||
|
||||
class (Representable f, Rep f ~ s) => Space s f where
|
||||
neighbors :: s -> [s]
|
||||
|
||||
class (Space (Int, Int) f) => DisplayableSpace f where
|
||||
size :: (Int, Int)
|
||||
Loading…
Add table
Add a link
Reference in a new issue