12 lines
157 B
Plaintext
12 lines
157 B
Plaintext
|
#!/usr/bin/awk -f
|
||
|
|
{
|
||
|
|
m = split($0, a, "");
|
||
|
|
n = m > n ? m : n;
|
||
|
|
for (i = 1; i <= n; i++)
|
||
|
|
s[i] = s[i]a[i];
|
||
|
|
}
|
||
|
|
END {
|
||
|
|
for (i = n; i > 0; i--)
|
||
|
|
print s[i];
|
||
|
|
}
|