「「C#で学ぶF#入門」復習メモ」ブログ用

Program.fs

open System

let rec getNumIndex (line:string) index =
    if index < line.Length then
        if (Char.IsNumber(line.[index])) then getNumIndex line (index + 1) else index
    else
        index

let rec loop () =
    let line = Console.ReadLine()
    if line <> null then
        let index = getNumIndex line 0
        Console.WriteLine(line.[0 .. index - 1])
        loop ()

loop ()