This repository was archived by the owner on Aug 13, 2020. It is now read-only.
File tree Expand file tree Collapse file tree 1 file changed +4
-3
lines changed
Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ open System.Diagnostics
55
66let rec internal toPortugueseImp x =
77
8- // Concatenates classes of numbers and simplifies some cases like trailing zeros
8+ // Concatenates classes of numbers and simplifies some cases like zero
99 let formatSimple prefix factor number =
1010 let remainder = number % factor
1111
@@ -15,15 +15,16 @@ let rec internal toPortugueseImp x =
1515
1616 let remainderHundreds = remainder |> getRemainderHundreds
1717
18- let outputWithComma () = sprintf " %s , %s " prefix ( toPortugueseImp remainder)
19- let outputWithAnd () = sprintf " %s e %s " prefix ( toPortugueseImp remainder)
18+ let outputWithComma () = sprintf " %s , %s " prefix ( toPortugueseImp remainder)
19+ let outputWithAnd () = sprintf " %s e %s " prefix ( toPortugueseImp remainder)
2020
2121 match remainder, remainderHundreds with
2222 | 0 , _ -> prefix
2323 | _, r when r > 0 && r <= 100 -> outputWithAnd()
2424 | _, r when r > 100 && r % 100 = 0 -> outputWithAnd()
2525 | _ -> outputWithComma()
2626
27+ // Formats numbers that can be represented in different ways
2728 let format ' suffixPlural suffixSingular factor value ignoreOne =
2829 let digits = value / factor
2930 match digits, ignoreOne with
You can’t perform that action at this time.
0 commit comments