Names to numbers: Difference between revisions
Content added Content deleted
(Add Haskell and fix typos in Common Lisp) |
m (Fix Haskell logic bug for stateIllion) |
||
Line 419: | Line 419: | ||
stateIllion, stateA, stateB, stateC, stateD, stateE :: State |
stateIllion, stateA, stateB, stateC, stateD, stateE :: State |
||
stateIllion = [Illion [Done] (*) |
stateIllion = [Illion [Done] (*)] |
||
stateA = [Transition ones stateB (+) |
stateA = [Transition ones stateB (+) |
||
Line 436: | Line 436: | ||
++ stateIllion |
++ stateIllion |
||
stateE = stateIllion |
stateE = stateIllion ++ [Done] |
||
parseSubWord :: [Symbol] -> Words -> TapeValue |
parseSubWord :: [Symbol] -> Words -> TapeValue |