xref: /netbsd-src/external/historical/nawk/dist/testdir/t.randk (revision 154bfe8e089c1a0a4e9ed8414f08d3da90949162)

{
	k = 2
	n = NF
	i = 1
	while ( i <= n ) {
		if ( rand() < k/n ) {
			print i
			k--
		}
		n--
		i++
	}
}