myreduce

(defn my-reduce
 ([f initial coll]
  (loop [result initial
         remaining coll
         ]
   (let [[currect & rest] remaining]
    (if (empty? remaining)
     result
     (recur (f result current) rest)
     ))
   )
  )
 ;([f [head & tail]]
 ; (my-reduce f (f head (first tail)) (rest tail))
 ; )
 )
(my-reduce  + 1 [1 2 3])