How To Compute Moving Averages (MA) in F#?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

let movingAverage (numbers: float list) (windowSize: int) =
    let rec movingAverageHelper (numbers: float list) (windowSize: int) =
        let sum = List.sum (List.take windowSize numbers)
        let average = sum / float windowSize
        match numbers with
        | [] -> []
        | head::tail ->
            if List.length tail < windowSize then []
            else average::(movingAverageHelper tail windowSize)
    
    movingAverageHelper numbers windowSize

1
2
3
4
5
6

let numbers = [1.0; 2.0; 3.0; 4.0; 5.0; 6.0; 7.0; 8.0; 9.0; 10.0]
let windowSize = 3

let averages = movingAverage numbers windowSize

printfn "Moving Averages: %A" averages

1

Moving Averages: [2.0; 3.0; 4.0; 5.0; 6.0; 7.0; 8.0]