入れ換えるだけなので楽。 rev|tacで簡単に通ったりはしない。

implementation

brainfuck

wrapping used.

#!/usr/bin/env bf
>
+[,----------] skip a line
+[->,+] read rest
<[<]>[---------->]<< make newline zero
-[+
    [[<]>++++++++++.[-]<+<] print a col
    >+++++++++.[-]>>[[>]>] newline
    <<[<]>
-]

ruby 62byte

n=gets.to_i;s=$/*n,*$<;n.*(n+=1).times{|z|$><<s[n-z%n-1][z/n]}