Fair and Square

README.md

Requirements

• Boot - http://boot-clj.com/
• Clojure

Usage

➜  ~  ./fair-and-square.clj 10
(0 1 4 9 121 484 10201 12321 14641 40804)%

fair-and-square.clj

#!/usr/bin/env boot

(require '[clojure.string :refer [reverse]])

(defn palindrome? [i] (let [s (str i)] (= s (reverse s))))
(defn square [i] (* i i))
(def fair-and-square (filter palindrome? (map square (filter palindrome? (range)))))

(defn parse-int [s]
   (Integer/parseInt s))

(defn -main [& args]
  (let [n (parse-int (first args))]
    (print (take n fair-and-square))))