Overview
| Comment: | PUTTING COMPUTER AWAY |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
95bd59918c5e935693820558cffec70e |
| User & Date: | lexi on 2019-07-13 09:05:34 |
| Other Links: | manifest | tags |
Context
|
2019-07-19
| ||
| 06:00 | add ord.c check-in: 72068307da user: lexi tags: trunk | |
|
2019-07-13
| ||
| 09:05 | PUTTING COMPUTER AWAY check-in: 95bd59918c user: lexi tags: trunk | |
| 09:01 | more updates check-in: 4f647d4981 user: lexi tags: trunk | |
Changes
Modified rosshil.ml from [f964acde37] to [626b8aa1f6].
184 184 185 185 let calc (pt: timepoint) : date = 186 186 let adj = pt - zero in 187 187 let span = Span.calc adj in 188 188 {years = span.years; days = span.days; } 189 189 190 190 let fmt (d: date) : string = 191 - ((strify d.years)^"ᵉ and "^(strify d.days)^" days") 191 + ((strify d.years)^"ᵉ + "^(strify d.days)^" days") 192 192 end 193 193 end 194 194 195 195 module League = struct 196 196 module Span = struct 197 197 let days = 300 198 198 let earth_days_in_year = 388