Transpose by 51b

-module t.
-export[m/0].
m()->S=string,g(S:tokens(io:get_chars('',99),"
")++[S:copies("
",50)]).
g([[A|B]|C])->io:format([A]),g(C++[B]);g(_)->0.

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

download

return to the top page