Execute SNUSP/Haskell: Difference between revisions
Content added Content deleted
m (grammar) |
m (hGetChar stdin --> getChar) |
||
Line 107: | Line 107: | ||
exec '<' d t = moveMp d t [-1] |
exec '<' d t = moveMp d t [-1] |
||
exec '>' d t = moveMp d t [ 1] |
exec '>' d t = moveMp d t [ 1] |
||
exec ',' d t = |
exec ',' d t = getChar >>= modify d t . const . fromChar |
||
exec '.' d t = readMp d t >>= putChar . toChar >> return [t] |
exec '.' d t = readMp d t >>= putChar . toChar >> return [t] |
||
exec '\\' d t = return [t {dir=( d2: d1:ds)}] where d1:d2:ds = dir t <+> [0,0] |
exec '\\' d t = return [t {dir=( d2: d1:ds)}] where d1:d2:ds = dir t <+> [0,0] |