last-pair는 가장 마지막의 항목 값을 가져오는 함수이다.
따라서 전체길이에서 1을 뺀 순서의 값을 리스트로 변환하면 된다.
(define (last-pair lst)
(let ((len (length lst)))
(cond ((= len 0) 0)
(else (list (list-ref lst (- len 1)))))))

따라서 전체길이에서 1을 뺀 순서의 값을 리스트로 변환하면 된다.
(define (last-pair lst)
(let ((len (length lst)))
(cond ((= len 0) 0)
(else (list (list-ref lst (- len 1)))))))

댓글 없음:
댓글 쓰기