14 lines
320 B
Common Lisp
14 lines
320 B
Common Lisp
; Project : Babbage problem
|
|
|
|
(setq n 1)
|
|
(setq bab2 1)
|
|
(loop while (/= bab2 269696)
|
|
do (setq n (+ n 1))
|
|
(setf bab1 (expt n 2))
|
|
(setf bab2 (mod bab1 1000000)))
|
|
(format t "~a" "The smallest number whose square ends in 269696 is: ")
|
|
(write n)
|
|
(terpri)
|
|
(format t "~a" "Its square is: ")
|
|
(write (* n n))
|