DouKaku?

implement Bingo;

include "sys.m";
	sys: Sys;
include "draw.m";
include "keyring.m";
include "security.m";
	random: Random;

argv0: string;

Bingo: module
{
	init: fn(nil: ref Draw->Context, argv: list of string);
};

usage()
{
	sys->fprint(sys->fildes(2), "usage: %s n\n", argv0);
	raise "fail:usage";
}

init(nil: ref Draw->Context, argv: list of string)
{
	sys = load Sys Sys->PATH;
	random = load Random Random->PATH;
	argv0 = hd argv;
	argv = tl argv;

	n := 10;
	if(argv != nil)
		n = int hd argv;

	a := array[n] of int;
	for(i := 0; i < n; i++)
		a[i] = i+1;

	while(n > 0){
		p := rand() % n;
		sys->print("%d\n", a[p]);
		a[p] = a[--n];
	}
}

rand(): int
{
	r := random->randomint(Random->ReallyRandom);
	if(r < 0)
		r = -r;
	return r;
}