Subversion Repositories Kolibri OS

(root)/programs/develop/ktcc/trunk/libc.obj/source/stdlib/rand.c @ 9189 – Rev 8743

Rev 8793 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev	Author	Line No.	Line
8743	turbocat	1	#include
		2	#include
		3
		4	static uint64_t seed;
		5
		6	void srand(unsigned s)
		7	{
		8	seed = s-1;
		9	}
		10
		11	int rand(void)
		12	{
		13	seed = 6364136223846793005ULL*seed + 1;
		14	return seed>>33;
		15	}