Составить список количества букв в каждом слове строки

open System
"234 abcdefg" |> Seq.sumBy (fun ch -> if Char.IsLetter ch then 1 else 0) |> Console.WriteLine

7
val it : unit = ()

let wordslen (s:string) = s.Split(' ') |> Array.map (fun w -> w.Length)

wordslen "Это текст для теста" |> printfn "%A"

let printwordslen (s: string) =
    let mutable cl = 0
    for ch in s do
        if ch = ' ' then
            printf "%i " cl
            cl <- 0
        else cl <- cl + 1
    if cl > 0 then printfn "%i " cl
    ()
 
printwordslen "Это тестовая строка для проверки функции"

let printwordslen (s: string) =
    let rec loop state xs =
        seq [ match state, xs with
              | Some n, c :: t when System.Char.IsLetter c -> yield! loop (Some (n + 1)) t
              | Some n, c :: t -> yield n; yield! loop None t
              | Some n, [] -> yield n
              | None, [] -> ()
              | None, c :: t when System.Char.IsLetter c -> yield! loop (Some 1) t
              | None, c :: t -> yield! loop None t
            ]
    loop None [ yield! s ]

let printwordslen2 (s: string) =
    let rec loop cl i =
        if i >= s.Length then printfn "%i" cl
        else if s.[i] = ' ' then
            printf "%i " cl
            loop 0 (i + 1)
        else loop (cl + 1) (i + 1)
    loop 0 0 
 
printwordslen2 "Это тестовая строка для проверки функции"

let getwordslen (s: string) =
    let rec loop cl i=
        [if i >= s.Length then yield cl
        else if s.[i] = ' ' then
            yield cl
            yield! loop 0 (i + 1)
        else yield! loop (cl + 1) (i + 1)]
    loop 0 0 
 
getwordslen "Это тестовая строка для проверки функции" |> printfn "%A"

String.split separaters str

let split separator (str:string) = str.Split(separator)