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