列表项改变！

wjcpcahu

to setup-environment
" f8 `. V/ A/ x+ }: Q& _- t0 U/ R   set mylist-environment[]
7 E- @; g! M! ?/ W6 }   set mylist-environment n-values 50 [ifelse-value (random-float 1 < 0.5) [-1][1] ]      
end  
: [: b. Z: r. z) d
现在假设有一个概率p=0.6，mylist-environment中的每个元素都以这个概率改变，从1变成-1，或从-1变成1。从而形成一个新的列表，程序该怎么写呢？尝试了几下，没有成功，请大虾们赐教啊！

wjcpcahu

大概是这个意思
$ k# P3 l( S2 N* n( }6 _& Fto setup-environment
   set mylist-environment[]
8 ~1 m2 b- o0 T$ g, B   set mylist-environment n-values 50 [ifelse-value (random-float 1 < 0.5) [-1][1] ]      
7 A/ B. |  F# ~! ?. [  foreach  mylist-environment [if random-float 1 < 0.6
" I3 S  \5 V) x" T3 A6 ]0 E3 @' n                                                     [ set ?  -1 * ?]
- t2 M2 K: I! e/ l                                                                        ]
end
% X# x2 r2 i- V$ R7 |/ t7 U- t是针对已创建的列表，以0.6为概率对其中的每个item进行乘以-1的操作。从而形成新的列表，但set好像不行。

wjcpcahu

搞不定，郁闷中