Ideone.com

fork download

copy

$l=<>;$p=index($l," ")+1;@i=split//,$l;for$a(0..$p-1){print$i[$a+$_*$p]for(0..$p);print" "}

Success #stdin #stdout 0s 6000KB

stdin

copy

cat dog man yay

stdout

copy

cdmy aoaa tgny

https://ideone.com/srDzwg

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!