xref: /netbsd-src/external/historical/nawk/dist/testdir/tt.14 (revision 154bfe8e089c1a0a4e9ed8414f08d3da90949162)
1function abs(x) { return (x < 0) ? -x : x }
2BEGIN {	n = 1000
3	for (i = 1; i < n; i++) x[i] = rand()
4	for (i in x)
5		for (j in x)
6			if (abs(x[i]-x[j]) < .01) break
7      }
8