loading...

re: Daily Challenge #124 - Middle Me VIEW POST

FULL DISCUSSION
 

I'm currently learning Clojure - I am sure there is a better solution, but this seems to work.

(ns test.core
  (:gen-class))

(defn string-side [y n]
  (reduce str (repeat (/ n 2) y)))

(defn middle-me [x y n]
  (if (not= (mod n 2) 0)
    x
    (let [side (string-side y n)]
      (str side x side))))



(defn -main []
  (println (middle-me "*" "T" 4)))
code of conduct - report abuse