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

13 lines
254 B
Plaintext

NR < 50 { n = split($0, x)
for (i = 1; i <= n; i++)
for (j = 1; j <= n; j++)
y[i,j] = n * i + j
for (i = 1; i <= n; i++)
delete y[i,i]
k = 0
for (i in y)
k++
if (k != int(n^2-n))
printf "delete2 miscount %d vs %d at %d\n", k, n^2-n, NR
}