github.com/benhoyt/goawk@v1.8.1/testdata/t.delete2 (about)

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