12 lines
157 B
Awk
Executable File
12 lines
157 B
Awk
Executable File
#!/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];
|
|
}
|