16 lines
231 B
Awk
16 lines
231 B
Awk
|
#!/usr/bin/awk -f
|
||
|
|
{
|
||
|
|
a[l] = $0
|
||
|
|
l++
|
||
|
|
print NR" "$0
|
||
|
|
}
|
||
|
|
END{
|
||
|
|
print "Numeric subscripts:"
|
||
|
|
for (i = l - 1; i >= 0; i--)
|
||
|
|
print i": "a[i]
|
||
|
|
|
||
|
|
print "Actual subscripts:"
|
||
|
|
for (i in a)
|
||
|
|
print i": "a[i]
|
||
|
|
}
|