diff options
| author | sanine <sanine.not@pm.me> | 2023-12-04 20:10:18 -0600 |
|---|---|---|
| committer | sanine <sanine.not@pm.me> | 2023-12-04 20:10:18 -0600 |
| commit | 899ad0ed13d3e347e2818294f7ed9d8d4d468e94 (patch) | |
| tree | aa38d3b8c6980ca9e87f28be550573a3ba15b35e /src/Lattice.hs | |
| parent | 749df3069669787d2c0a57fb9b9ad66a3605da19 (diff) | |
refactor: Lattice -> World.Lattice
Diffstat (limited to 'src/Lattice.hs')
| -rw-r--r-- | src/Lattice.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/src/Lattice.hs b/src/Lattice.hs deleted file mode 100644 index b69aa41..0000000 --- a/src/Lattice.hs +++ /dev/null @@ -1,23 +0,0 @@ -module Lattice - ( LatticeCell (..) - , Lattice - , LatticeRule - , updateLattice - ) where - - -data LatticeCell a b = LatticeCell { kind :: a, flags :: b } deriving (Show, Eq) -type Lattice a b = [[LatticeCell a b]] -type LatticeRule a b = Lattice a b -> Int -> Int -> LatticeCell a b - - -updateLattice :: (Enum a) => Lattice a b -> [LatticeRule a b] -> Lattice a b -updateLattice lattice rules = - let - mapRow = \(row, y) -> map - (\((LatticeCell k _), x) -> - let rule = rules !! (fromEnum k) - in rule lattice x y - ) - (zip row [0..]) - in map mapRow (zip lattice [0..]) |