-1
我有兩個所有代理製作的列表。我希望一位代理人查看代理人,看他的代理人號碼是否在其他代理人的名單中。如果他在另一名代理人的名單中找到他的號碼,他必須複製另一名代理人的號碼。怎麼樣?訪問其他代理的列表
if attracted != nobody [set attractinglists fput ([who] of attracted) attractinglists]
if attracted != nobody [set attrlists fput ([who] of attracting) attrlists]
to-report contains-any?
let attrlistss [attrlists] of myself
if attractinglists != nobody [foreach attractinglists [if member? ? attrlistss [report true]] report false]
end
let lisstt list self contains-any?