Desafio Capicuas de Programando.org en Clojure
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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