如果不存在补丁，则随机向左转.如果确实存在补丁，并且颜色为橙色或绿色，请向该补丁移动

Question

我在执行此代码时遇到困难，希望有人可以提供帮助。就像标题所说的那样，我的问题是搬家（乌龟）。如果不存在前面的补丁，请随机向左转。如果前方的贴片确实存在，并且是绿色或橙色，则向该补丁移动，如果不是绿色或橙色，请随机向左转。

这是我的代码：

ifelse is-patch? patch-ahead 1
and member? pcolor [green orange]] of patch-ahead 1
[fd 1]
[lt random 1]

Answer 1

尝试以下：

to setup
create-turtles 1 [ set color green ]
end
to move
ask turtles [
  let ahead patch-set patch-ahead 1
ifelse 
  any? ahead and any? ahead with [pcolor = black or pcolor = green]
  [fd 1]
  [lt random 1]
]
end