Anonymous user
Execute SNUSP/Haskell: Difference between revisions
m
hGetChar stdin --> getChar
m (grammar) |
m (hGetChar stdin --> getChar) |
||
Line 107:
exec '<' d t = moveMp d t [-1]
exec '>' d t = moveMp d t [ 1]
exec ',' d 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]
|