# jan2018 # (c) Software Lab. Alexander Burger (println "ulimit -s ulimited and 3.4GB of RAM") (stack 3) (for N 100000 # Start all 503 coroutines (co (intern (pack 'ring N)) (at (0 . 10) (gc)) (let (N N Send (intern (pack 'ring (if (= 100000 N) 1 (inc N))))) (for (I (yield) (gt0 (yield (dec I) Send)) @)) N ) ) ) (println (yield 1234567 'ring1)) (msg 'ok) (println (bench (gc))) (bye)