Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (12 sloc) 302 Bytes
(defun palindromicp (number)
(let ((str (format nil "~A" number)))
(string= str (reverse str))))
(defun pro4 ()
(let ((max 0))
(dotimes (i 899)
(dotimes (j 899)
(let ((mul (* (+ 100 i) (+ 100 j))))
(if (and (palindromicp mul)
(> mul max))
(setf max mul)))))
max))
Something went wrong with that request. Please try again.