https://www.hackerrank.com/challenges/staircase

stairs.clj

(require '[clojure.string :as string])

(defn- make-rows [height]
  (loop [out [] h height]
    (if (< h 1)
      (map #(apply str %) out)
      (recur
        (conj out (concat (repeat (- height h) \space) (repeat h \#)))
        (dec h)))))


(defn -main [& args]
  (let [height (Integer/parseInt (read-line))]
    (doseq [row (reverse (make-rows height))]
      (println row))))