Marching squares: Difference between revisions
m
→{{header|J}}: not quite so lame, but still lame
(J: lame partial implementation -- no treatment of saddle points (this version will throw an error for saddle points)) |
m (→{{header|J}}: not quite so lame, but still lame) |
||
Line 20:
0 0,:0 1 NB. 3
0 0,:1 1 NB. 4
0 0,:1 0 NB. 6
1 0,:0 1 NB. 8
1 1,:0 1 NB. 9
EMPTY NB. 14 0 0,:1 1
EMPTY NB. 15
}}
unwind=: {{
near=. 6 7 8 5
r=., c=. EMPTY
TODO=. I.(<EMPTY)~:Y=.,y
|