Find the last box of a list

	;; P01 (*) Find the last box of a list.
	;; Example:
	;; * (my-last '(a b c d))
	;; (D)
	(define (my-last lst)
	(if (null? lst)
	'()
	(let ((tail (cdr lst)))
	(if (null? tail)
	lst
	(my-last tail)))))

view raw p01.ss hosted with ❤ by GitHub