xref: /freebsd/contrib/one-true-awk/testdir/t.randk (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner Losh{
2*23f24377SWarner Losh	k = 2
3*23f24377SWarner Losh	n = NF
4*23f24377SWarner Losh	i = 1
5*23f24377SWarner Losh	while ( i <= n ) {
6*23f24377SWarner Losh		if ( rand() < k/n ) {
7*23f24377SWarner Losh			print i
8*23f24377SWarner Losh			k--
9*23f24377SWarner Losh		}
10*23f24377SWarner Losh		n--
11*23f24377SWarner Losh		i++
12*23f24377SWarner Losh	}
13*23f24377SWarner Losh}
14