12 lines
319 B
Text
12 lines
319 B
Text
set_ns(rosettacode);
|
|
|
|
add_clump(myClump)_row(a,b,c,d)_row(A,B,C,D,E,F)_row(-1,0,1,2,3); // The default spread is presumed to be 'origin'
|
|
add_var(output,columnArray);
|
|
|
|
with_clump(myClump)_foreach()_bycol()_var(columnArray)
|
|
with_var(output)_append()_flat([columnArray])_append(\n);
|
|
;
|
|
|
|
me_msg([output]);
|
|
|
|
reset_ns[];
|