random.c

来自「unix v7是最后一个广泛发布的研究型UNIX版本」· C语言 代码 · 共 32 行

#include <stdio.h>
#define MAXINT 32768.
float fract = 2;
double	atof();
char rflag,eflag,c;
char ibuf[BUFSIZ],obuf[BUFSIZ],line[BUFSIZ];
main(argc,argv) char **argv;
{
	long tvec;
	int i;
	for(i=1;i<argc;i++)
	{	if(*argv[i]!='-')
			fract=atof(argv[i]);
		else if((c=argv[i][1])=='e')
			eflag=1;
		else if(c=='r')
			rflag=1;
	}
	time(&tvec);
	srand((int)tvec);
	if(!rflag && !eflag)
	{	setbuf(stdin,ibuf);
		setbuf(stdout,obuf);
	}
	for(;eflag==0;)
	{	gets(line);
		if(feof(stdin)) break;
		if(rand()/MAXINT*fract<1) puts(line);
	}
	exit((int)(rand()/MAXINT*fract));
}