Functional Kata Meetup - Clojure solution

sherlock_and_array.clj

; Solution to https://github.com/danielytics/sherlock-and-array/
; Functional Kata meetup https://www.meetup.com/FunctionalKubs/events/246876977/
(defn solve
  [s]
  (
    let [total (reduce + s)]
    (defn balanced [arr, accum] 
      (if (<= (count arr) 1)
        false
        (
        let [[first second & rest] arr]
        (
          let [new_accum (+ accum first)]
          (if (= (- total second) (* new_accum 2))
            true
            (balanced (cons second rest) new_accum)
          )
        )
      )
      )
    )

    (if (balanced s 0)
        (println "YES")
        (println "NO")
    )
  )
)