data Sequenz = Sequenz String deriving Show
data RawGenom = RawGenom [Sequenz] deriving Show
data Data a = Error | Data a
--data EvalGenom = EvalGenom [Data a]
unpackGenom :: RawGenom -> [Sequenz]
unpackGenom (RawGenom a) = a
unpackSequenz :: Sequenz -> String
unpackSequenz (Sequenz a) = a
packSequenz :: String -> Sequenz
packSequenz = Sequenz
lookupSequenz :: String ->
lookupSequenz x = case x of
"0001" -> Data 1
"0010" -> Data 2
"0011" -> Data 3
"0100" -> Data 4
"0101" -> Data 5
"0110" -> Data 6
"0111" -> Data 7
"1000" -> Data 8
"1001" -> Data 9
"1010" -> Data (+)
"1011" -> Data (-)
_ -> Error
evalGenom :: RawGenom -> [String]
evalGenom x = map lookupSequenz . unpackSequenz unpackGenom $ x
--lookupSequenz :: String ->