Anonymous user
Knight's tour: Difference between revisions
m
→{{header|Icon}} and {{header|Unicon}}: fix roth for 1-origin
(Simpler D code) |
m (→{{header|Icon}} and {{header|Unicon}}: fix roth for 1-origin) |
||
Line 392:
if *S = 0 then fail # must fail if []
every fr := sq2fr(s := !S,B) do {
d := sqrt(abs(fr[1]-1 - (B.N-1)*0.5)^2 + abs(fr[2]-1 - (B.N-1)*0.5)^2)
if (/md := d) | ( md >:= d) then msq := s # save sq
}
| |||