2
我越來越缺少病例定義,當我調用這個缺失情況下的定義在Miranda
check c (n:nx) state (l:ls,r:rs)
=true,if((isprefix state c)&(r=n))
=false, otherwise
我檢查了這一點,它可以在自己的不管是什麼我送它。
這是我從調用它(警告:這是一個有點寫的不好現在):
readword input state tape
=output tape, if (((haltcheck sWord sNum state tape)=true)&(isprefix " halt" rline))
=doinst rline state tape , if ((check sWord sNum state tape)=true)
=readword tail state tape, otherwise
where
theline = dropwhile notit input
start = dropwhile isspace theline
sWord = takewhile letter start
ends = dropwhile notspace start
distart = dropwhile isspace ends
sNum = takewhile notspace distart
tail = dropwhile notspace distart
rline = takewhile notit tail
非常感謝你,沒想到現在是在踢我自己。 – user23012