Data commit

Task/Averages-Simple-moving-average/Icon/averages-simple-moving-average-1.icon

@@ -0,0 +1,18 @@
+procedure main(A)
+    sma := buildSMA(3)  # Use better name than "I".
+    every write(sma(!A))
+end
+
+procedure buildSMA(P)
+    local stream
+    c := create {
+        stream := []
+        while n := (avg@&source)[1] do {
+           put(stream, n)
+           if *stream > P then pop(stream)
+           every (avg := 0.0) +:= !stream
+           avg := avg/*stream
+           }
+        }
+    return (@c, c)
+end

Task/Averages-Simple-moving-average/Icon/averages-simple-moving-average-2.icon

@@ -0,0 +1,14 @@
+import Utils
+
+procedure main(A)
+    sma1 := closure(SMA,[],3)
+    sma2 := closure(SMA,[],4)
+    every every n := !A do write(left(sma1(n),20), sma2(n))
+end
+
+procedure SMA(stream,P,n)
+    put(stream, n)
+    if *stream > P then pop(stream)
+    every (avg := 0.0) +:= !stream
+    return avg / *stream
+end