shithub: rc

ref: 864c67531f8f2144c9979a486afd3165c13ee816
dir: rc/cex

View raw version 
#!/bin/awk -f
function q(){
	o = 1 + int(rand() * 10 % 4)
	a = 1 + int(rand() * (o==4 ? 1000 : 100))
	b = 1 + int(rand() * 100)
	r = o==1 ? a + b\
		: o==2 ? a - b\
		: o==3 ? a * b\
		: a / b	# equality works... sometimes? rounding errors?
	print a, op[o], b
}
BEGIN{
	op[1] = "+"
	op[2] = "-"
	op[3] = "*"
	op[4] = "/"
	srand()
	q()
}
{
	if($1 != r){
		print "NEIN NEIN NEIN!  " r
		system("theo")
	}
	q()
}