Long multiplication: Difference between revisions
Content added Content deleted
(Added clojure) |
|||
Line 486: | Line 486: | ||
return 0; |
return 0; |
||
}</lang> |
}</lang> |
||
=={{header|Clojure}}== |
|||
<lang lisp> |
|||
(defn pow [x n] |
|||
(reduce * (repeat n x))) |
|||
(* (pow 2 64) (pow 2 64)) |
|||
</lang> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |