xref: /netbsd-src/external/historical/nawk/dist/testdir/p.48b (revision 901e7e84758515fbf39dfc064cb0b45ab146d8b0)

BEGIN	{ k = 3; n = 10 }
{	if (n <= 0) exit
	if (rand() <= k/n) { print; k-- }
	n--
}