Square but not cube: Difference between revisions
Content added Content deleted
(→{{header|Clojure}}: Switch to Raku's implementation) |
|||
Line 738: | Line 738: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
{{trans|Clojure}} |
|||
<lang lisp>(defun cubep (n) (loop for i from 1 to (expt n (/ 1 3)) |
<lang lisp>(defun cubep (n) (loop for i from 1 to (expt n (/ 1 3)) |
||
when (= (* i i i) n) do (return t) |
when (= (* i i i) n) do (return t) |