Как выбрать первые n элементов списка в netlogo

Question

У меня есть список, и я хочу сделать операцию над первыми тремя элементами списка, если они не являются 0.i может выполнять мою операцию над каждым элементом по коду ниже, но не знайте, как это сделать для первых 3 предметов.

foreach list2 
[ 
if (item ? list2 != 0) 
    [ 
    set candidatelist lput (item ? list3) candidatelist 
] 
] 

Answer 1

я написал ниже код, чтобы решить:

let m 0 
foreach list2 
    [ 
    if (m < 3) 
    [ 
    if (item ? list2 != 0) 
     [ 
     set candidatelist lput (item ? list3) candidatelist 
     ] 
    set m m + 1 
     ] 
    ] 

Answer 2

Вот помощник для получения первых п элементов:

to-report take [n xs] 
    report sublist xs 0 min list n (length xs) 
end 

Теперь мы можем написать:

filter [? != 0] take 3 ... 

образец пробега:

observer> show filter [? != 0] take 3 [1 0 3 4 5] 
observer: [1 3]