RosettaCodeData/Task/Nth-root/Common-Lisp/nth-root-2.lisp
2023-07-01 13:44:08 -04:00

4 lines
103 B
Common Lisp

(let* ((r (nth-root 3 10))
(rf (coerce r 'float)))
(print (* r r r ))
(print (* rf rf rf)))