Wie kann ich eine Schildkröte so nah wie möglich zu einem bestimmten Patch bewegen?

Question

Ich habe einen einzelnen blauen Patch und möchte eine Schildkröte auf den nächsten, leeren Patch zu bewegen. Die einzige Möglichkeit, dies zu tun, ist das Verwenden von In-Radius in einer Schleife, wobei die Radiusgröße jedes Mal um eins erhöht wird, aber gibt es einen besseren Weg?

Answer 1

globals [bluey] 

to setup 
    ca 
    ask one-of patches [set pcolor blue set bluey self] 
    ask n-of 250 patches [sprout 1] 
end 

to-report nearest-empty [#patch] 
    report min-one-of 
     [other (patches with [not any? turtles-here])] of #patch 
     [distance #patch] 
end 

to test 
    setup 
    ;the following fails if all patches occupied 
    ;(can add a test for nobody) 
    ask nearest-empty bluey [set pcolor red] 
end