@@ -17,10 +17,10 @@ Produces
1717Source
1818------
1919
20− ++ yall :: day # to day of year
21− |= day=@ud
22− ^- [y=@ud m=@ud d=@ud]
23− =+ [era=0 cet=0 lep=_?]
20+ ++ yall :: day / to day of year
21+ |= day/@ud
22+ ^- {y/@ud m/@ud d/@ud}
23+ =+ [era=0 cet=0 lep=*?]
2424 => .(era (div day era:yo), day (mod day era:yo))
2525 => ^+ .
2626 ?: (lth day +(cet:yo))
@@ -28,18 +28,19 @@ Source
2828 => .(lep |, cet 1, day (sub day +(cet:yo)))
2929 .(cet (add cet (div day cet:yo)), day (mod day cet:yo))
3030 =+ yer=(add (mul 400 era) (mul 100 cet))
31− |- ^- [y=@ud m=@ud d=@ud]
31+ |- ^- {y/@ud m/@ud d/@ud}
3232 =+ dis=?:(lep 366 365)
3333 ?. (lth day dis)
3434 =+ ner=+(yer)
3535 $(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}
3737 =+ [mot=0 cah=?:(lep moy:yo moh:yo)]
38− |- ^- [y=@ud m=@ud d=@ud]
38+ |- ^- {y/@ud m/@ud d/@ud}
3939 =+ zis=(snag mot cah)
4040 ?: (lth day zis)
4141 [yer +(mot) +(day)]
4242 $(mot +(mot), day (sub day zis))
43+ ::
4344
4445Examples
4546--------