Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

13 lines (12 sloc) 0.302 kB
(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))
Jump to Line
Something went wrong with that request. Please try again.