Transpose by uru

var s:array[0..9]of string;i,j,k:word;begin
for i:=0to random(5)do readln(s[i]);for j:=1to length(s[0])do
for k:=0to i do write(s[k][j],^j:k div i)end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page