按一项对列表进行排序，并在 Netlogo 中识别满足条件的记录

Question

我有一个子列表列表，如下所示

[[0 “煤” 500 1430] [0 “煤” 300 1300] [1 “煤” 600 1500] [1 “煤” 700 1400]]

我想做四件事：
1. 主列表按子列表第3项排序
2. 对子列表的第2项进行累加，直到达到某个值。
3. 确定最后添加的列表中的第 3 项。
4. 然后我想确定在第 2 点中添加到循环中的列表的项目 0 和 1，并要求这些海龟做一些事情。

我一直在探索表格、列表等，但一直在努力处理这些复杂的代码。人们可以建议他们如何编码吗？

在此先感谢您的帮助！

Answer 1

以下似乎可以回答这个问题，我认为......虽然可能有更优雅的方式

to go
  create-turtles 2
  let l [[0 "coal" 500 1430] [0 "gas" 300 1300] [1 "coal" 600 1500] [1 "gas" 700 1400]]
  ;sort the list by item 2 
  let sorted sort-by bigger l
  show sorted
  ;accumulate item 3 until limit reached
  let k 0
  let n 0
  let limit 2800
  let turtleNos []
  let fuels []
  while [k < limit]
  [
    set k k + item 3 ( item n sorted )
    ;accumulate item 0 and 1
    set turtleNos lput item 0 ( item n sorted ) turtleNos 
    set fuels lput item 1 ( item n sorted ) fuels 
    set n n + 1
  ]
  show k
  ;show item 3 for the last item added to k
  show item 3 (item ( n - 1 ) sorted)
  ;accumulated lists - note non-unique
  show turtleNos
  show fuels
  (foreach turtleNos fuels 
      [ [x y] -> ask turtle x [show y] ])

end
to-report bigger [l1 l2]
  report item 2 l1 > item 2 l2
end

按一项对列表进行排序，并在 Netlogo 中识别满足条件的记录

Sort list by one item and identify record that meets a condition in Netlogo

netlogo