Desafio Capicuas de Programando.org en Clojure
(ns capicuas.core) | |
(defn reverso [res n] | |
(if (zero? n) | |
res | |
(recur (+ (* 10 res) (rem n 10)) (quot n 10)))) | |
(defn palin? [n] | |
(= n (reverso 0 n))) | |
(defn capicua [n] | |
(first (filter palin? (iterate #(+ % (reverso 0 %)) n)))) | |
(defn -main [& _] | |
(dorun (map #(println "Capicua de" % " = " (capicua %)) (range 11 100)))) |
$ lein run | |
Capicua de 11 = 11 | |
Capicua de 12 = 33 | |
Capicua de 13 = 44 | |
Capicua de 14 = 55 | |
Capicua de 15 = 66 | |
Capicua de 16 = 77 | |
Capicua de 17 = 88 | |
Capicua de 18 = 99 | |
Capicua de 19 = 121 | |
Capicua de 20 = 22 | |
Capicua de 21 = 33 | |
Capicua de 22 = 22 | |
Capicua de 23 = 55 | |
Capicua de 24 = 66 | |
Capicua de 25 = 77 | |
Capicua de 26 = 88 | |
Capicua de 27 = 99 | |
Capicua de 28 = 121 | |
Capicua de 29 = 121 | |
Capicua de 30 = 33 | |
Capicua de 31 = 44 | |
Capicua de 32 = 55 | |
Capicua de 33 = 33 | |
Capicua de 34 = 77 | |
Capicua de 35 = 88 | |
Capicua de 36 = 99 | |
Capicua de 37 = 121 | |
Capicua de 38 = 121 | |
Capicua de 39 = 363 | |
Capicua de 40 = 44 | |
Capicua de 41 = 55 | |
Capicua de 42 = 66 | |
Capicua de 43 = 77 | |
Capicua de 44 = 44 | |
Capicua de 45 = 99 | |
Capicua de 46 = 121 | |
Capicua de 47 = 121 | |
Capicua de 48 = 363 | |
Capicua de 49 = 484 | |
Capicua de 50 = 55 | |
Capicua de 51 = 66 | |
Capicua de 52 = 77 | |
Capicua de 53 = 88 | |
Capicua de 54 = 99 | |
Capicua de 55 = 55 | |
Capicua de 56 = 121 | |
Capicua de 57 = 363 | |
Capicua de 58 = 484 | |
Capicua de 59 = 1111 | |
Capicua de 60 = 66 | |
Capicua de 61 = 77 | |
Capicua de 62 = 88 | |
Capicua de 63 = 99 | |
Capicua de 64 = 121 | |
Capicua de 65 = 121 | |
Capicua de 66 = 66 | |
Capicua de 67 = 484 | |
Capicua de 68 = 1111 | |
Capicua de 69 = 4884 | |
Capicua de 70 = 77 | |
Capicua de 71 = 88 | |
Capicua de 72 = 99 | |
Capicua de 73 = 121 | |
Capicua de 74 = 121 | |
Capicua de 75 = 363 | |
Capicua de 76 = 484 | |
Capicua de 77 = 77 | |
Capicua de 78 = 4884 | |
Capicua de 79 = 44044 | |
Capicua de 80 = 88 | |
Capicua de 81 = 99 | |
Capicua de 82 = 121 | |
Capicua de 83 = 121 | |
Capicua de 84 = 363 | |
Capicua de 85 = 484 | |
Capicua de 86 = 1111 | |
Capicua de 87 = 4884 | |
Capicua de 88 = 88 | |
Capicua de 89 = 8813200023188 | |
Capicua de 90 = 99 | |
Capicua de 91 = 121 | |
Capicua de 92 = 121 | |
Capicua de 93 = 363 | |
Capicua de 94 = 484 | |
Capicua de 95 = 1111 | |
Capicua de 96 = 4884 | |
Capicua de 97 = 44044 | |
Capicua de 98 = 8813200023188 | |
Capicua de 99 = 99 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment