http://www.4clojure.com/problem/144

gistfile1.clj

; Original problem here : http://www.4clojure.com/problem/144

; This first solution works but is incomplete as fs needs to be repeated.
(defn osci-incomplete [v & fs]
	(reduce (fn [accu elt] (conj accu (elt (last accu))))
            	[v] fs))

; Problem is that cycling fs leads to timeout.


(defn osci-timeout [v & fs]
	(reduce (fn [accu elt] (conj accu (elt (last accu))))
            	[v] (cycle fs)))

; I do not understand why.
; Although (cycle fs) is an infinite sequence, which part of the function tries to realize it ?
; ... --- ...

(fn [v & fns] (reductions (fn [p f] (f p)) v (cycle fns)))

I expect there is a better way to do it, but this should do.

Congrats Max !
It just works and as reductions already shows the intermediate results, conj is no longer needed.