gistfile1.fs

let countChar (c:char) (s:string) =
    let mutable length = s.Length
    let mutable k = 0
    while (length <- length - 1; length >= 0) do
        if s.[length] = c then k <- k + 1
    k