12 lines
268 B
Text
12 lines
268 B
Text
set_namespace(rosettacode);
|
|
|
|
add_mat(myMatrix)_row(a,b,c)_row(A,B,C)_row(1,2,3);
|
|
add_var(output,columnArray);
|
|
|
|
with_mat(myMatrix)_foreach()_bycol()_var(columnArray)
|
|
with_var(output)_append()_flat([columnArray])_append(\n);
|
|
;
|
|
|
|
me_msg([output]);
|
|
|
|
reset_namespace[];
|