awk/testdir/tt.14
Arnold D. Robbins d6c466c367 Extract testdir.
2019-06-23 03:13:57 -06:00

8 lines
172 B
Plaintext

function abs(x) { return (x < 0) ? -x : x }
BEGIN { n = 1000
for (i = 1; i < n; i++) x[i] = rand()
for (i in x)
for (j in x)
if (abs(x[i]-x[j]) < .01) break
}