7 lines
278 B
Text
7 lines
278 B
Text
fcn ceg(m){
|
|
s := (0).pump(m*m,List).copy(); // copy to make writable
|
|
rn := Ref(0);
|
|
[[(i,j); [0..m*2-1]; '{[(0).max(i-m+1) .. i.min(m-1)]};
|
|
'{ s[ if(i.isOdd) j*(m-1)+i else (i-j)*m+j ] = rn.inc(); }]];
|
|
s.pump(String,T(Void.Read,m-1), ("%3s"*m+"\n").fmt);
|
|
}
|