module Experiments

​

let finnMultiplier n = 

    [0..n-1]

    |> List.filter (fun i -> i % 5 = 0 || i % 3 = 0)

    |> List.sum

​

printfn "%d" (finnMultiplier 10)

​

let tests = [|

    (0, 0);

    (4, 3);

    (6, 8);

    (10, 23);

    (20, 78);

    (30, 195);

    (100, 195);

|]

​

let runTests (testCases) = 

    printfn "Running tests..."

    printfn "Got %i test cases" (Seq.length testCases)

​

    let checkTest (n, expected) = 

        let multiplier = finnMultiplier n

        let passed = expected = multiplier

        printfn "[ %-5b ] finnMultipler %-3i = %-4i (result was %i)" passed n expected multiplier 

        ()

​

    Seq.iter checkTest testCases

​

runTests tests

​