2009-11-19 1 views

답변

3

직접 작성해야합니다. 그것은 관례가 아니기 때문에 Scheme에 내장되어 있지 않으며 쉽게 set-car!에서 만들 수 있습니다.

(define (list-set! l k obj) 
    (cond 
    ((or (< k 0) (null? l)) #f) 
    ((= k 0) (set-car! l obj)) 
    (else (list-set! (cdr l) (- k 1) obj)))) 

이 작업을 많이 수행하는 경우 벡터 및 vector-set!을 대신 사용해야합니다.

+0

확인해 보겠습니다. –