prog

[challenge] Inverse Factorial

2 2021-06-03 11:57

Meh.

(defun infac (n)
  (loop for i from 0
	for f = (fac i)
	when (> f n) do (error "Not a factorial")
	when (= f n) return i))