shithub: 9ferno

ref: 21336d544ae90e20070fd7c8be67f3f2c9ccbe38
dir: /tests/alt.b/

View raw version
implement Fibonacci;

include "sys.m";

sys : Sys;
MAX : con 50;
x : chan of int;

Fibonacci : module
{
	init : fn();
};

init()
{
	sys = load Sys Sys->PATH;

	x = chan of int;
	sys->print("0	.\n	..\n");
	spawn f(0,1);

	<-x;
	sys->print("main thread completed.\n");
}

f(a, b : int)
{
	sys->print("%-3d", a + b);
	for (i := 0; i <= a+b; i++)
	{
		sys->print(".");
	}
	sys->print("\n");

	if (a+b < MAX)
	{
		f(b, a+b);
	}

	x <-= 0;
	sys->print("Spawned thread completed.\n");
}