on 492ae2f help sign in
39 lines 679 B history raw
1### `++yore`
3Produces a `++date` from a `@d`
5Accepts
6-------
8`now` is a `@d`.
10Produces
11--------
13A `++date`.
15Source
16------
18 ++ yore :: @d to date
19 |= now/@da
20 ^- date
21 =+ rip=(yell now)
22 =+ ger=(yall d.rip)
23 :- ?: (gth y.ger 292.277.024.400)
24 [a=& y=(sub y.ger 292.277.024.400)]
25 [a=| y=+((sub 292.277.024.400 y.ger))]
26 [m.ger d.ger h.rip m.rip s.rip f.rip]
27 ::
29Examples
30--------
32 ~zod/try=> (yore -<-)
33 [[a=%.y y=2.014] m=8 t=[d=4 h=20 m=17 s=1 f=~[0x700d]]]
34 ~zod/try=> (yore -<-)
35 [[a=%.y y=2.014] m=8 t=[d=4 h=20 m=28 s=53 f=~[0x7b82]]]
39***