Create a gist now

Instantly share code, notes, and snippets.

@katsuyan /q1.lisp
Last active Sep 24, 2016

What would you like to do?
数学パズルonLisp
(defun get-palindromes-num (&optional (i 11))
(if (and (string= (format nil "~vR" 2 i) (reverse (format nil "~vR" 2 i)))
(string= (format nil "~vR" 10 i) (reverse (format nil "~vR" 10 i)))
(string= (format nil "~vR" 8 i) (reverse (format nil "~vR" 8 i))))
i
(get-palindromes-num (+ 2 i))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment