xref: /freebsd/contrib/one-true-awk/testdir/t.array1 (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner Losh{for(i=1; i<=NF; i++) {
2*23f24377SWarner Losh	if (x[$i] == "")
3*23f24377SWarner Losh		y[++n] = $i
4*23f24377SWarner Losh	x[$i]++
5*23f24377SWarner Losh }
6*23f24377SWarner Losh}
7*23f24377SWarner LoshEND {
8*23f24377SWarner Losh	for (i=0; i<n; i++)
9*23f24377SWarner Losh		print (y[i], x[y[i]])
10*23f24377SWarner Losh}
11