Racket : 2 목록에서 재귀 목록 작성

Question

두 개의 목록을 인수로 취해 입력 목록을 결합하여 주어진 목록의 요소가 결합 된 쌍의 목록을 반환하는 함수를 작성해야합니다.

예 입력 :

(zipper '(1 2 3) '(4 9 5 7)) 

예 출력 : 하나 개의 입력 목록은 더 이상

'((1 4) (2 9) (3 5)) 

경우 긴 목록의 다른 추가 요소는 무시됩니다보다. 구현은 재귀 적이어야합니다.

코드는 내가 만든 :

는

(define (zipper list1 list2) 
(if (or (empty? list1) (empty? list2)) 
    '() 
(list (list (zipper (rest list1) (rest list2)))))) 

출력 :

'((((((((())))))))) 
'((((((())))))) 
'() 

누군가가 도와 주실 수 있습니까? 나는 또한 요소를 모으기 위해 '단점'을 사용해 보았습니다. 그래서 요소가 어떻게 사라지는 지 잘 모르겠습니다. 나는 라켓 신품입니다. 감사.

Answer 1

우리가해야 할 일은 목록이 비어있는 경우 기본 사례로 빈을 반환하는 함수를 만드는 것입니다. 그렇지 않으면 우리는 (첫 번째 list1, 첫 번째 list2)를 재귀 호출로 간주합니다.

(define (zipper list1 list2) 
    (cond [(or (empty? list1) 
      (empty? list2)) empty] 
     [else (cons 
       (cons (first list1) 
        (first list2)) ;; List of first elements 
       (zipper (rest list1) (rest list2)))]))