fix.clj

(defn feature-stream []
  (repeatedly #(cons 1 (repeatedly 22 rand))))

(defn label-stream []
  (repeatedly #(rand-int 2)))

(defn profile-log-likelihood
  [iterations batch-size]
  (let [beta-seq (repeat 22 0)]
    (loop [iter     iterations
           labels   (take iterations (label-stream))
           features (take iterations (feature-stream))]
      (when (pos? iter)
        (time (dorun (map (partial log-likelihood beta-seq)
                          (take batch-size labels)
                          (take batch-size features))))
        (recur (- iter batch-size)
               (drop batch-size labels)
               (drop batch-size features))))))