Babbage problem: Difference between revisions
Added Common Lisp
(Adds Clojure solution) |
(Added Common Lisp) |
||
Line 195:
{{out}}
<pre>The square of 25265 is 638269696</pre>
=={{header|Common Lisp}}==
<lang Lisp>
(defun babbage-test (n)
"A generic function for any ending of a number"
(when (> n 0)
(do* ((i 0 (1+ i))
(d (expt 10 (1+ (truncate (log n) (log 10))))) )
((= (mod (* i i) d) n) i) )))
</lang>
{{out}}
<pre>(babbage-test 269696)
25264</pre>
=={{header|C++}}==
| |||