OpenCores
URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [tst/] [cf.c] - Rev 130

Go to most recent revision | Compare with Previous | Blame | View Log

/* cf - print character frequencies */
float f[128];
 
main(argc, argv)
int argc;
char *argv[];
{
	int i, c, nc;
	float cutoff, atof();
 
	if (argc <= 1)
		cutoff = 0.0;
	else
		cutoff = atof(argv[1])/100;
	for (i = 0; i <= 127; )
		f[i++] = 0.0;
	nc = 0;
	while ((c = getchar()) != -1) {
		f[c] += 1;
		nc++;
	}
	printf("char\tfreq\n");
	for (i = 0; i <= 127; ++i)
		if (f[i] && f[i]/nc >= cutoff) {
			if (i <= ' ')
				printf("%03o", i);
			else
				printf("%c", i);
			printf("\t%.1f\n", 100*f[i]/nc);
		}
	return 0;
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.