Add all the A tasks

2013-04-10 14:58:50 -07:00 · 2013-04-10 14:58:50 -07:00 · 051504d65b
commit 051504d65b
parent 2dd7375f96
1608 changed files with 18584 additions and 0 deletions
--- a/Task/Averages-Simple-moving-average/Clojure/averages-simple-moving-average.clj
+++ b/Task/Averages-Simple-moving-average/Clojure/averages-simple-moving-average.clj
@ -0,0 +1,12 @@
+(import '[clojure.lang PersistentQueue])
+
+(defn enqueue-max [q p n]
+  (let [q (conj q n)]
+    (if (<= (count q) p) q (pop q))))
+
+(defn avg [coll] (/ (reduce + coll) (count coll)))
+
+(defn init-moving-avg [p]
+  (let [state (atom PersistentQueue/EMPTY)]
+    (fn [n]
+      (avg (swap! state enqueue-max p n)))))