fork download
  1. #light
  2. open System
  3. open System.Numerics
  4.  
  5. let fac n : BigInteger = Seq.fold (*) 1I {1I..n}
  6. let f = (fac 9000I).ToString().Length
  7. System.Console.Write f
Success #stdin #stdout 1.52s 13976KB
stdin
Standard input is empty
stdout
31682