7 lines
269 B
Text
7 lines
269 B
Text
fcn ceg2(m){
|
|
rn := Ref(0);
|
|
[[(i,j); [0..m*2-1]; '{[(0).max(i-m+1) .. i.min(m-1)]};
|
|
'{ T( if(i.isOdd) j*(m-1)+i else (i-j)*m+j;, rn.inc() ) }]]
|
|
.sort(fcn([(a,_)], [(b,_)]){ a<b }).apply("get",1)
|
|
.pump(String,T(Void.Read,m-1), ("%3s"*m+"\n").fmt);
|
|
}
|