(defn meu-reduce
([fnc elementos]
(meu-reduce fnc (first elementos) (next elementos)))
([fnc acumulador elementos]
(if (seq elementos)
(recur fnc (fnc acumulador (first elementos)) (next elementos))
acumulador)))
(println "meu reduce" (meu-reduce + [1 2 3]))
