blob: 0c6180c30f457cc82439d4c47b6c6e5fba33a986 (
plain) (
blame)
1
2
3
4
5
6
7
8
|
;;;; License: CC0-1.0
(define-module (net ricketyspace sicp two seventeen)
#:export (sicp-last-pair))
(define (sicp-last-pair items)
(cond ((= (length items) 1) items)
(else (sicp-last-pair (cdr items)))))
|