Scheme - 목록에 재귀 적으로 값 추가

Question

빈 목록에 값을 재귀 적으로 추가하는 체계에서 함수를 만들려고합니다.

나는 빈리스트 정의 :

(define empty '()) 

을 그리고 목록에 값을 추가해야하는 기능 정의 :

(define (recapp empt x) 
    (if (= 0 x) 
     empt 
     (begin 
     (append empt x) 
     (recapp empt (- x 1))))) 

나는 방식에 입력 (recapp 빈 5) I를 (1 2 3 4 5)를 얻고 싶어도 빈 목록을 얻으십시오. 문제가 무엇입니까?

도와 주셔서 감사합니다.

Answer 1

문제는 (추가 empt x)는 empt의 값을 수정하지 않는다는 것입니다. 따라서 empt (값 '())을 recappX (원래 인수 값) 번까지 전달합니다.

(define (recapp empt x) 
    (if (= 0 x) 
     empt 
     (recapp (cons x empt) (- x 1)))) 

당신이 원하는 것에 더 가깝습니다. 비슷한 기능을 가진 primative iota도 있습니다.