File: t.array1

package info (click to toggle)
original-awk 2025-01-16-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 8,400 kB
  • sloc: ansic: 6,367; awk: 1,271; sh: 1,214; yacc: 422; makefile: 73; fortran: 1
file content (10 lines) | stat: -rw-r--r-- 123 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
 
{for(i=1; i<=NF; i++) {
	if (x[$i] == "")
		y[++n] = $i
	x[$i]++
 }
}
END {
	for (i=0; i<n; i++)
		print (y[i], x[y[i]])
}