Prime Summands

prime_summands.clj

(ns prime-summands.core
  (:use [clojure.contrib.lazy-seqs :only #{primes}]))

(defn prime-summands [n]
  (let [primes (take-while #(<= % n) primes)]
    (reduce +
            (for [start (range (count primes))
                  end (range 1 (inc (count primes)))]
              (let [primes (drop start (take end primes))]
                (if (= n (reduce + primes))
                  1 0))))))