HCoop / hcoop / debian / mlton.git / blame
| Commit | Line | Data |
|---|---|---|
| 7f918cf1 CE |
1 | |
| 2 | val t = valOf (Time.fromString "0.417") | |
| 3 | val () = print (concat [Time.toString t, "\n"]) | |
| 4 | ||
| 5 | val t = valOf (Time.fromString "0.999") | |
| 6 | val () = print (concat [Time.toString t, "\n"]) | |
| 7 | ||
| 8 | val t = valOf (Time.fromString ".417") | |
| 9 | val () = print (concat [Time.toString t, "\n"]) | |
| 10 | ||
| 11 | val t = valOf (Time.fromString ".999") | |
| 12 | val () = print (concat [Time.toString t, "\n"]) | |
| 13 | ||
| 14 | val t = valOf (Time.fromString "~0.417") | |
| 15 | val () = print (concat [Time.toString t, "\n"]) | |
| 16 | ||
| 17 | val t = valOf (Time.fromString "~0.999") | |
| 18 | val () = print (concat [Time.toString t, "\n"]) | |
| 19 | ||
| 20 | val t = valOf (Time.fromString "~.417") | |
| 21 | val () = print (concat [Time.toString t, "\n"]) | |
| 22 | ||
| 23 | val t = valOf (Time.fromString "~.999") | |
| 24 | val () = print (concat [Time.toString t, "\n"]) |