gistfile1.txt

acc_func(Xs) ->
    acc_func(Xs, []).

acc_func([], Acc) ->
    lists:reverse(Acc);
acc_func([X|Xs], Acc) ->
    acc_func(Xs, [X * 2|Acc]).

(defn acc-func [xs]
  (loop [my-xs (seq xs) acc []]
    (if-let [x (first my-xs)]
      (recur (rest my-xs) (conj acc (* 2 x)))
      acc)))