0 Members and 3 Guests are viewing this topic.
:.0:Return:Full:3→S:Fix 16:96/S:*64/S→A:Send(+A,"VYπ→θ+A→Z:π86EC→W:π9340→V:Lbl "BTR→T:Lbl "pxl-Test(NEIGHBORS→U:Fill(0→N→X→Y:ClrDrawZ:Disp W:ClrDraw:64/S→A:96/S→B:Horizontal A:Vertical B:Line(S*B-1,S*A-1,S,,0,V:Pxl-On(A-1,B-1:!Repeat N:int(Z+N,X:int(θ+N,Y:Pxl-On(Y,X:Line(1+S*X,1+S*Y,S-1,,0,V:If 15=prgmU:prgmT:!Repeat and A:e^(randInt(0,4:End:→A=2:+X-A=1→X*S:+1+A=1:-A=2→B:Y+A=4:-A=8→Y*S:+1+A=8:-A=4→A:Line(B,A,S-1,,0,V:IS>(N:Disp V:DispGraph:Disp W:End:Stop:.BTR:Repeat 15≠prgmU:N-1→N:If θ':Stop:(+Z→X:(θ+N→Y:End:End:.pxl-Test(NEIGHBORS:pxl-Test(Y-1,X:+Ans+pxl-Test(Y+1,X:+Ans+pxl-Test(Y,X+1:+Ans+pxl-Test(Y,X-1→A:End
This is actually a type of algorithm that would be much better in Axe or Assembly, so I was thining of porting it later today. Luckily all three languages are similar enough that porting won't b too difficult.