13 lines
311 B
Haskell
13 lines
311 B
Haskell
|
|
import Data.Packed
|
|
import Data.Maybe
|
|
|
|
data Car = Car { chambers :: [Chamber] }
|
|
data Chamber = MainChamber { upperPipe, lowerPipe :: Pipe } | AuxChamber { upperPipe, lowerPipe :: Pipe }
|
|
data Pipe = Pipe { sections :: [Section] }
|
|
data Section = Section { tank, inComp, outComp :: Int }
|
|
|
|
data Fuel = Matrix Int
|
|
|
|
|