列表值更改

wjcpcahu

我把问题简化一下：
6 c2 ~" s$ T0 Z& r/ H2 [5 t( m有一个随机的列表[1 -1  1 1 1 1 -1 -1 1 -1 1  -1 -1 1 -1]
" ~! }# T8 f& ?; e, [0 X, l针对列表里面的每一个值，按照0.6的概率进行改变。对于每一个值，如果random-float 1 < 0.6 就将其乘以-1。这样就会得到一个新的列表，该怎么写语言啊？

wjcpcahu

是得通过两个列表，我也刚想到。
to setup-environment
   set mylist-environment n-values 10[ifelse-value (random-float 1 < 0.5) [-1][1] ]            
9 l# `4 |1 M( ]& q1 K1 X1 \   set mylist-choose n-values 10 [ifelse-value (random-float 1 < p1) [-1][1]]
; h1 D1 g, F1 }# U# w! Y   set mylist-environment  ( map [?1 * ?2 ]  mylist-environment mylist-choose)
2 i& c$ U9 N$ j, w% `end
; r+ R9 c) }- F0 T( N8 C! w! L! {. t呵呵，不知道是不是这个意思。