RosettaCodeData/Task/Averages-Simple-moving-average/Oforth/averages-simple-moving-average-2.oforth
2016-12-05 23:44:36 +01:00

7 lines
209 B
Text

: test
| sma3 sma5 l |
3 createSMA -> sma3
5 createSMA -> sma5
[ 1, 2, 3, 4, 5, 5, 4, 3, 2, 1 ] ->l
"SMA3" .cr l apply( #[ sma3 perform . ] ) printcr
"SMA5" .cr l apply( #[ sma5 perform . ] ) ;