どう書く? - 与えられた数字のケタ数

F#

与えられた数字のケタ数 - どう書く? org をF#で考えてみました。

open System
[<EntryPoint>]
let main(args : string[]) =
  let ParseNumber num =
    let rec _parse _n (a,b) =
      if _n > 0 then
        _parse (_n  / 10) (a+1,b*10)
      else
        (a,b/10)
    let ret = _parse num (0,1)
    printfn "%s" (String.Format("{0} -> 桁数:{1}、最大桁:{2}の位", num, (fst ret), (snd ret)))

  ParseNumber(1000)
  0