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 185 186 187 188 189 190 191 192 193 194 195 196 197 198 |
let calc (pt: timepoint) : date =
let adj = pt - zero in
let span = Span.calc adj in
{years = span.years; days = span.days; }
let fmt (d: date) : string =
((strify d.years)^"ᵉ and "^(strify d.days)^" days")
end
end
module League = struct
module Span = struct
let days = 300
let earth_days_in_year = 388
|
| |
184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 |
let calc (pt: timepoint) : date =
let adj = pt - zero in
let span = Span.calc adj in
{years = span.years; days = span.days; }
let fmt (d: date) : string =
((strify d.years)^"ᵉ + "^(strify d.days)^" days")
end
end
module League = struct
module Span = struct
let days = 300
let earth_days_in_year = 388
|