Question

I am trying to make this sample program work

(defn foo
  ([x] (foo x []))
  ([x current]
     (when (> x 0)
       (recur (dec x) (conj current x)))))

When I call this function (foo 5), I should get [1 2 3 4 5], however it only returns nil. What am I doing wrong?

Thanks,
Murtaza

Answer 1

I have corrected your original program to use (if (= x 0) instead of (when (> x 0), and this returns [1 2 3 4 5].

(defn foo
  ([x] (foo x []))
  ([x current]
     (if (= x 0)
       (apply vector (sort < current))
       (recur (dec x) (conj current x)))))