6 lines
214 B
Clojure
6 lines
214 B
Clojure
(defn super [d]
|
|
(let [run (apply str (repeat d (str d)))]
|
|
(filter #(clojure.string/includes? (str (* d (Math/pow % d ))) run) (range))))
|
|
|
|
(doseq [d (range 2 9)]
|
|
(println (str d ": ") (take 10 (super d))))
|