Odd word problem/SimpleCoroutineSupportForJ: Difference between revisions
Odd word problem/SimpleCoroutineSupportForJ (view source)
Revision as of 12:00, 8 November 2011
, 12 years agono edit summary
mNo edit summary |
mNo edit summary |
||
Line 8:
verb=. u
noun=. y
while. do. context=. verb noun
select. (0 {:: context) * 1+*#stack
case. 0 do. NB. yield
stack=. stack,
verb=. (
noun=.
case. 1 do. NB. return (with empty stack)
1 {:: context return.
Line 27 ⟶ 26:
)
NB. u yield v y return. NB. 0 -- deferred result, will be executing: u v y
yield=: 2 :0
0
)
NB. return y return. NB. 1 -- immediate result: y
return=: 3 :0
1; y
| |||