mirror of
https://github.com/janet-lang/janet
synced 2024-12-29 18:00:26 +00:00
20 lines
378 B
Clojure
20 lines
378 B
Clojure
|
(def f
|
||
|
|
(coro
|
||
|
|
(for i 0 10
|
||
|
|
(yield (string "yield " i))
|
||
|
|
(os/sleep 0))))
|
||
|
|
|
||
|
|
(print "simple yielding")
|
||
|
|
(each item f (print "got: " item ", now " (fiber/status f)))
|
||
|
|
|
||
|
|
(def f
|
||
|
|
(coro
|
||
|
|
(for i 0 10
|
||
|
|
(yield (string "yield " i))
|
||
|
|
(ev/sleep 0))))
|
||
|
|
|
||
|
|
(print "complex yielding")
|
||
|
|
(each item f (print "got: " item ", now " (fiber/status f)))
|
||
|
|
|
||
|
|
(print (fiber/status f))
|