얌마 남자라면 뭐다?


왜쳐!


리 커 젼!



그래서 준비해 보았다. 



(defn triangle-numbers [n]

  (loop [i 1 op inc result []]

    (cond (zero? i) result

          (= i n) (recur (dec n) dec (conj result n))

          :otherwise (recur (op i) op (conj result i)))))


(defn print-triangle [n ch]

  (->> (triangle-numbers n)

       (interpose \\newline)

       (mapcat (fn [elem]

                 (if (number? elem)

                   (repeat elem ch)

                   [elem])))

       (clojure.pprint/cl-format true "~{~C~}")))


(print-triangle 7 \\*)