暂停模拟后消失的Netlogo代码行的慢度

我的Netlogo代码在前几百个滴答声中运行得很快，然后速度逐渐降低（每个新的滴答声需要越来越多的时间来继续）

我已将问题缩小到以下代码行：

ask turtles [ 

  (foreach vectorX indexes 
    [
      set minilist ?1
      set minilist map customProcedure minilist  <-- this line
      set vectorX replace-item ?2 vectorX minilist
    ])     
]

询问海龟[
（foreach）索引
[
设置迷你列表？1
设置小列表映射customProcedure小列表我不知道是什么原因造成的。如果您能将其减少为，我将有兴趣进一步调查。（另外，
customProcedure
有什么特别之处？）