@@ -17,10 +17,10 @@ Produces
20− ++ yall :: day # to day of year
20+ ++ yall :: day / to day of year
21− |= day=@ud
21+ |= day/@ud
22− ^- [y=@ud m=@ud d=@ud]
22+ ^- {y/@ud m/@ud d/@ud}
23− =+ [era=0 cet=0 lep=_?]
23+ =+ [era=0 cet=0 lep=*?]
24 => .(era (div day era:yo), day (mod day era:yo))
24 => .(era (div day era:yo), day (mod day era:yo))
26 ?: (lth day +(cet:yo))
26 ?: (lth day +(cet:yo))
@@ -28,18 +28,19 @@ Source
28 => .(lep |, cet 1, day (sub day +(cet:yo)))
28 => .(lep |, cet 1, day (sub day +(cet:yo)))
29 .(cet (add cet (div day cet:yo)), day (mod day cet:yo))
29 .(cet (add cet (div day cet:yo)), day (mod day cet:yo))
30 =+ yer=(add (mul 400 era) (mul 100 cet))
30 =+ yer=(add (mul 400 era) (mul 100 cet))
31− |- ^- [y=@ud m=@ud d=@ud]
31+ |- ^- {y/@ud m/@ud d/@ud}
32 =+ dis=?:(lep 366 365)
32 =+ dis=?:(lep 366 365)
33 ?. (lth day dis)
33 ?. (lth day dis)
34 =+ ner=+(yer)
34 =+ ner=+(yer)
35 $(yer ner, day (sub day dis), lep =(0 (end 0 2 ner)))
35 $(yer ner, day (sub day dis), lep =(0 (end 0 2 ner)))
36− |- ^- [y=@ud m=@ud d=@ud]
36+ |- ^- {y/@ud m/@ud d/@ud}
37 =+ [mot=0 cah=?:(lep moy:yo moh:yo)]
37 =+ [mot=0 cah=?:(lep moy:yo moh:yo)]
38− |- ^- [y=@ud m=@ud d=@ud]
38+ |- ^- {y/@ud m/@ud d/@ud}
39 =+ zis=(snag mot cah)
39 =+ zis=(snag mot cah)
40 ?: (lth day zis)
40 ?: (lth day zis)
41 [yer +(mot) +(day)]
41 [yer +(mot) +(day)]
42 $(mot +(mot), day (sub day zis))
42 $(mot +(mot), day (sub day zis))