1*23f24377SWarner LoshNR < 50 { n = split($0, x) 2*23f24377SWarner Losh for (i = 1; i <= n; i++) 3*23f24377SWarner Losh for (j = 1; j <= n; j++) 4*23f24377SWarner Losh y[i,j] = n * i + j 5*23f24377SWarner Losh for (i = 1; i <= n; i++) 6*23f24377SWarner Losh delete y[i,i] 7*23f24377SWarner Losh k = 0 8*23f24377SWarner Losh for (i in y) 9*23f24377SWarner Losh k++ 10*23f24377SWarner Losh if (k != int(n^2-n)) 11*23f24377SWarner Losh printf "delete2 miscount %d vs %d at %d\n", k, n^2-n, NR 12*23f24377SWarner Losh} 13