 ;3.12
 ;mine
 (defn my-reverse [xs]
-  (fold-left xs '() cons))
+  (fold-left xs '() #(cons %2 %)))
 (defn my-reverse2 [xs]
   (fold-right xs [] #(conj %2 %)))                          ;This is
 ;way to do it with fold-right as list does not support adding at the end

;they did it via fold right what is even better (more concise that is)
(defn list-concat-fpins [ls]
  (fold-right ls nil append))
;-----------------------------------------------------------------------
;mine (I have cheated here and looked into answer but just for accumulator function :) )
(defn fold-r-via-fold-l [xs z f]
  (fold-left (my-reverse xs) z (fn [b a] (f a b))))
(defn fold-r-via-fold-l-1 [xs z f]
  ((fold-left xs (fn [b] b) (fn [g a]
                              (fn [b]
                                (g (f a b))))) z))
