Simon Brooke
3fd322af6f
There's a premature free() somewhere, and I'm not sure why. Print depends on divide, which is easy, but also on mod and floor (of rationals) which isn't.
10 lines
218 B
Common Lisp
10 lines
218 B
Common Lisp
(set! expt (lambda
|
|
(n x)
|
|
"Return the value of `n` raised to the `x`th power."
|
|
(cond
|
|
((= x 1) n)
|
|
(t (* n (expt n (- x 1)))))))
|
|
|
|
(inspect expt)
|
|
(expt 2 59)
|