Raindrops

Raindrops.fs

module Raindrops

let convert number =
    
    let getSound (divider, sound) = 
        if (number % divider = 0) 
        then sound 
        else "" 

    let getSoundString drops =
        drops 
        |> List.map getSound
        |> List.fold (+) ""

    let sound = getSoundString [(3, "Pling"); (5, "Plang"); (7, "Plong")]
    
    if (sound = "")
    then sprintf "%d" number
    else sound