tst2504.mal

一个内存数据库的源代码这是服务器端还有客户端

# The prototypical factory construct
# test factory return and restart

factory random(seed:int):int;
	random:= seed;
	i:= seed;
	i:= 125 *i;
	i:= i % 32767;
	yield i;
	i:= 125 *i;
	i:= i % 32767;
	yield i;
end random;

r1:= user.random(1);
io.print(r1);
r2:= user.random(1);
io.print(r2);
r2:= user.random(1);
io.print(r2);
r2:= user.random(1);
io.print(r2);