gistfile1.clj

(defn sum
  [& s]
  (reduce + s))

(defn prod
  [& s]
  (reduce * s))

(defn sigma
  [s f]
  (apply sum (map f s)))

(defn pi
  [s f]
  (apply prod (map f s)))

(defn generalized-continued-fraction
  "Returns the value of the GCF of the sequences of numerators                                                                  
   and denominators. 'denomseq must have one more element than                                                                  
   'numseq."
  [numseq denomseq]
  (let [sn (reverse numseq) sd (reverse denomseq) ]
    (loop [hn (first sn) sn (rest sn) hd (first sd) sd (rest sd)]
      (cond (empty? sd) hd
            :else (recur (first sn) (rest sn)
                         (+ (first sd) (/ hn hd)) (rest sd))))))

(defn simple-continued-fraction
  "Returns the final value of the SCF of 'sequence."
  [sequence]
  (generalized-continued-fraction
   (take (dec (count sequence)) (repeat 1)) sequence))

gistfile2.txt