Ideone.com

fork download

copy

@(M)char(accumarray(((1:size(M,1))+(0:size(M,2)-1)')(:),M(:),[],@(x){num2str(x')}))
 
ans([1 2 3; 4 5 6; 7 8 9])

Success #stdin #stdout 0.52s 122048KB

stdin

copy

Standard input is empty

stdout

copy

ans =

@(M) char (accumarray ((1:size (M, 1) + 0:size (M, 2) - 1') (:), M (:), [], @(x) {num2str(x')}))

ans =

1      
4  2   
7  5  3
8  6   
9

https://ideone.com/QbgMMd

language:

Octave (octave 4.4.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!