Anonymous user
Execute SNUSP/Haskell: Difference between revisions
m
Redo hGetChar stdin --> getChar (forgot to refresh edit page)
m (harmonized capitalization of test examples) |
m (Redo hGetChar stdin --> getChar (forgot to refresh edit page)) |
||
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]
| |||