util  Check-in [95bd59918c]

Overview
Comment:PUTTING COMPUTER AWAY
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 95bd59918c5e935693820558cffec70eae47ed0e84bf1dd971afb4ea7984273d
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