prod-cons.io

/* Simple producer-consumer example using coroutines */

// Our counter
counter := 0
// Indicate we're done
done := false

// Increment a counter by n up to y
produce := method(n, y,
	loop(
		tmp := counter + n
		if(tmp > y,
			done = true;
			break
		)
		counter = tmp
		yield
	)
)

// Display our progress
consume := method(
	loop(
		if(done, break)
		"Counter = #{counter}" interpolate println
		r append(counter)
		yield
	)
)

r := list

coroDo(produce(3, 10))
consume

r println