yakreved · August 14, 2013 01:56
diff --git a/sicp_2_17 b/sicp_2_17
 (define (last-pair items)
 (define (length-iter a prev)
 (if (null? a)
 prev
 (length-iter (cdr a) (car a))))
 (length-iter items 0))

 (last-pair (list 23 72 149 34))
	(define (last-pair items)
	(define (length-iter a prev)
	(if (null? a)
	prev
	(length-iter (cdr a) (car a))))
	(length-iter items 0))

	(last-pair (list 23 72 149 34))