4clojure

157.clj

(fn [seq]
  (map-indexed (fn [id val] (vector val id)) seq))
  

22.clj

#(loop [coll % cnt 0]
  (if (empty? coll)
  cnt 
  (recur (next coll) (inc cnt))))

38.clj

;;http://www.4clojure.com/problem/38

(fn [& more] 
  (reduce (fn [a b] (if (> a b) a b )) 0 more)
)

42.clj

(fn [n]
  (reduce #(* %1 %2) n  (drop 1 (range n)))
  )

;; or 

#(reduce * 1 (range 1 (inc %)))

;;http://www.4clojure.com/problem/38

(fn [& more](reduce %28fn [a b] %28if %28> a b%29 a b %29%29 0 more)
)