Skip to content

Instantly share code, notes, and snippets.

@dfuenzalida

dfuenzalida/core.clj

Last active Jan 20, 2020
Embed
What would you like to do?
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
You can’t perform that action at this time.