//#!/pub/Develop/Projects/SimpleC/build/Debug/vicci
//#!/pub/Develop/Projects/Vicci/build/Debug/vicci

// speed test
// calibrated to yield approx. 1.00 on my P4/2.55GHz with interpreted vipsi


//#include "../lib/h/stdc.h"
//#include "/pub/Develop/projects/vicci/lib/h/stdc.h"

const char nl = '\n';
print("\nhi, i'm vicci!\n");
print("and i'm incredibly fast! ...\n");

wait(1);

print("\nlet's make the test.");
print("\ncalculating... ");


float fak(float n)
{
	if (n <= 1.0) return 1.0;
	else return fak(n-1.0)*n;
}

void print(int[]a)
{
	print("{");
	if (count(a))
	{
		print(a[0]);
		uint i=0;
		do
		{
			while ++i<count(a);
			print(", ");
			print(a[i]);
		}
	}
	print("}\n");
}


float ta = now();
float dt = 10;
float te = now() + dt;
cstr  s  = "|/-\\";
int   si = 0;
float st = ta;

int[] add(int[] a, int n)
{
	uint i=count(a);
	int[] r = alloc int[](i);
	r[*] = a;
	do { while i--; r[i]+=n; }
	return r;
};

int i=0;
do
{
	int[] l,z;

	while now() < te;
	i++;
	if (now() > st)
	{
		st += 0.100;
		putchar(s[si++%4]);
		print("\b");
	}

	(void)fak(100);

	l = {0,1,2,3,4,5,6,7,8,9};
	l += add(l,10);
	l += add(l,20);
	l += add(l,40);
	l += add(l,80); l = leftstr(l,100);

	if min(l)!=0  { print("booboo1\n"); end 1; }
	if max(l)!=99 { print("booboo2\n"); end 1; }

	z = l;
	shuffle(z);
	sort(z);
	if (z != l)
	{
		print("booboo3\n");
		print(z);
		putchar(nl);
		end 1;
	}

	cstr z = "";
	int j=0;
	do
	{
		while j<100;
		z += numstr( l[j++] );
	}
	if (leftstr(z,20) != "01234567891011121314")
	{
		print("booboo4\n");
		print(z);
		putchar(nl);
		end 1;
	}
}


print(" \n");
print("yeah! i made "+numstr(i)+" loops in "+numstr(dt)+" seconds!\n");
print("that's nearly "+numstr(i/dt/710)+" megaboogies!\n");
print("unbelievable...\n");


return numstr(i/dt/710) + " megaboogies";