tracks/fsharp/exercises/say/Example.fs in trackler-2.2.1.99 vs tracks/fsharp/exercises/say/Example.fs in trackler-2.2.1.100
- old
+ new
@@ -66,10 +66,10 @@
let (billionsCount, billionsRemainder) = quotRem n 1000000000L
let (millionsCount, millionsRemainder) = quotRem billionsRemainder 1000000L
let (thousandsCount, remainder) = quotRem millionsRemainder 1000L
(billionsCount, millionsCount, thousandsCount, remainder)
-let inEnglish n =
+let say n =
match n with
| _ when n < 0L || n>= 1000000000000L -> None
| 0L -> Some "zero"
| _ ->
let (billionsCount, millionsCount, thousandsCount, remainder) = parts n
\ No newline at end of file