列表项改变！

wjcpcahu

to setup-environment
   set mylist-environment[]
7 U3 Y8 K1 w2 i1 v8 `   set mylist-environment n-values 50 [ifelse-value (random-float 1 < 0.5) [-1][1] ]      
6 K+ p2 M4 c5 Z, \) G. ^end  

现在假设有一个概率p=0.6，mylist-environment中的每个元素都以这个概率改变，从1变成-1，或从-1变成1。从而形成一个新的列表，程序该怎么写呢？尝试了几下，没有成功，请大虾们赐教啊！

wjcpcahu

大概是这个意思
4 f: j# C3 Z) p8 m0 X$ p, y4 O3 M  @to setup-environment
( L. V/ h. f5 {( f3 R8 s" l   set mylist-environment[]
   set mylist-environment n-values 50 [ifelse-value (random-float 1 < 0.5) [-1][1] ]      
  foreach  mylist-environment [if random-float 1 < 0.6
+ U1 g" B0 w  H                                                     [ set ?  -1 * ?]
8 w% B$ J$ S, V+ R# B                                                                        ]
7 T2 `2 F9 {; K$ f2 f- Tend
2 ?' V( b# z0 F6 c+ `7 e2 R是针对已创建的列表，以0.6为概率对其中的每个item进行乘以-1的操作。从而形成新的列表，但set好像不行。

wjcpcahu

搞不定，郁闷中