Question

Вычислить сумму целых чисел кратных 4 в интервале от 0 до 200

Answer 1

// F#
[<EntryPoint>]
let main argv =
    let sum =
        [0..200]
        |> Seq.where (fun x -> x % 4 = 0)
        |> Seq.fold (fun sum x -> sum + x) 0
    System.Console.WriteLine sum
    System.Console.ReadKey true |> ignore
    0