Rosetta Code

Averages/Simple moving average: Difference between revisions

Page Discussion

Averages/Simple moving average (view source)

Revision as of 08:22, 7 November 2011

29 bytes removed ,  12 years ago
m
Slightly simplified
m (Slightly simplified)
Line 1,427:
=={{header|PicoLisp}}==
<lang PicoLisp>(de sma (@Len)
(letcurry (@Len (Data)) NIL(N)
(curry (@Lenpush 'Data) (N)
(and (pushnth 'Data N@Len) (con @)) # Truncate
(and*/ (nthapply + Data @Len) (conlength @Data)) ) # Truncate)</lang>
(*/ (apply + Data) (length Data)) ) ) )</lang>
<lang PicoLisp>(def 'sma3 (sma 3))
(def 'sma5 (sma 5))
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/116954"