15 lines
221 B
Awk
15 lines
221 B
Awk
|
# emit a report and its variants as a bloc, separated by empty line
|
||
|
|
{
|
||
|
|
print
|
||
|
|
for (i=1;i<=NF;i++) {
|
||
|
|
r = ""
|
||
|
|
for (j=1;j<=NF;j++) {
|
||
|
|
if (i!=j) {
|
||
|
|
r = r $j " "
|
||
|
|
}
|
||
|
|
}
|
||
|
|
print r
|
||
|
|
}
|
||
|
|
print ""
|
||
|
|
}
|