2 (:use [sicp.ch2-2 :only (enumerate-interval accumulate append)]))
11 (map (fn [k] (list i j k))
12 (enumerate-interval 1 (- j 1))))
13 (enumerate-interval 1 (- i 1))))
14 (enumerate-interval 1 n)))))
16 (defn sum-triplets [triplet]
17 (accumulate + 0 triplet))
19 (defn ordered-triplets [n sum]
20 (filter #(= (sum-triplets %) sum)