Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (12 sloc) 265 Bytes
(defun helper (n lst)
(reduce #'(lambda (n d)
(if (zerop (rem n d))
(/ n d)
n))
lst :initial-value n))
(defun pro5 (n)
(labels ((rec (m lst)
(if (>= m n)
(apply #'* lst)
(rec (1+ m) (push (helper m lst) lst)))))
(rec 2 '(1))))