let digitCount number = (int) (log10 ((float)number)) + 1;

​

let input = 123456789;

printfn "%i has %i digits" input (digitCount input);