列表项改变！

wjcpcahu

to setup-environment
   set mylist-environment[]
   set mylist-environment n-values 50 [ifelse-value (random-float 1 < 0.5) [-1][1] ]      
end  
& x# t! ]5 C* x8 ?( P" S
现在假设有一个概率p=0.6，mylist-environment中的每个元素都以这个概率改变，从1变成-1，或从-1变成1。从而形成一个新的列表，程序该怎么写呢？尝试了几下，没有成功，请大虾们赐教啊！

wjcpcahu

大概是这个意思
' o  X+ B* A. a( dto setup-environment
   set mylist-environment[]
: T* D& W, L) O8 g$ }   set mylist-environment n-values 50 [ifelse-value (random-float 1 < 0.5) [-1][1] ]      
. V7 Q( i8 ?; r6 E8 \+ g& I) d* i  foreach  mylist-environment [if random-float 1 < 0.6
4 v7 x1 D" j- ?- ^1 Y) W& M                                                     [ set ?  -1 * ?]
5 C& ~& z4 \& x4 @3 t$ ~  Z+ V                                                                        ]
end
& y* y/ E8 D8 E* N是针对已创建的列表，以0.6为概率对其中的每个item进行乘以-1的操作。从而形成新的列表，但set好像不行。

wjcpcahu

搞不定，郁闷中