列表值更改

wjcpcahu

我把问题简化一下：
1 f  B; x, n8 V7 @* I+ a+ T  @  z有一个随机的列表[1 -1  1 1 1 1 -1 -1 1 -1 1  -1 -1 1 -1]
- r- Z" `0 _9 R( A8 F! R针对列表里面的每一个值，按照0.6的概率进行改变。对于每一个值，如果random-float 1 < 0.6 就将其乘以-1。这样就会得到一个新的列表，该怎么写语言啊？

wjcpcahu

是得通过两个列表，我也刚想到。
6 ]- I' b6 T# H/ H7 U, m, x+ a- Wto setup-environment
: f- W/ d. r  Q% g' q# w4 K8 ^   set mylist-environment n-values 10[ifelse-value (random-float 1 < 0.5) [-1][1] ]            
9 X1 Q1 C0 d, f- \   set mylist-choose n-values 10 [ifelse-value (random-float 1 < p1) [-1][1]]
! @9 p" K" {' }$ t+ J' l   set mylist-environment  ( map [?1 * ?2 ]  mylist-environment mylist-choose)
, H$ p4 [8 H% c- S8 S1 n, \$ xend
呵呵，不知道是不是这个意思。