Desafio Capicuas de Programando.org en Clojure

core.clj

(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))))

output.txt

$ 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