list - 方案:更改列表中元素的值

Question

我讨厌使用 SO 作为查找简单函数的方法，但我真的无法在任何地方找到这样的函数:

给定一个列表 (1 2 3 4 5)，我想要等同于(PHP、Perl、Python)

$a = array(1, 2, 3, 4, 5);   
$a[3] = 100;  

结果为 (1 2 3 100 5)

谢谢!

Answer 1

你可以这样写Guile的list-set!:

(define a (list 1 2 3 4))     ; a is '(1 2 3 4)

(define (list-set! list k val)
    (if (zero? k)
        (set-car! list val)
        (list-set! (cdr list) (- k 1) val)))

(list-set! a 2 100)           ; a is '(1 2 100 4)

(在 DrRacket 中试过这个。)