Anonymous user
Execute Brain****/Elena: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 47:
console write:(CharValue new:(theArray@thePointer)).
]
#method run : aLoop
▲ [
]
#method get = theArray@thePointer.
}
Line 96 ⟶ 101:
]
#method
[
▲ control while:[0 < theTape get ] &do:
▲ [ interpreter'Interpreter new:(theTape type'tape) eval:theLoopBody. ].
^ theTape.
Line 136 ⟶ 140:
"," ? [ theTape input. ]
"[" ? [ theTape := LoopInterpreter new &tape:theTape. ]
"]" ? [ theTape := theTape
]
}
|