2008. 4. 16.

연습문제 2.17

last-pair는 가장 마지막의 항목 값을 가져오는 함수이다.
따라서 전체길이에서 1을 뺀 순서의 값을 리스트로 변환하면 된다.

(define (last-pair lst)
  (let ((len (length lst)))
    (cond ((= len 0) 0)
          (else (list (list-ref lst (- len 1)))))))

댓글 없음:

댓글 쓰기