blob: 95e17a44d22c588fa9b55525aa6f544222b6b61a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Compute Easter of 2002...
# usage: (echo YEAR; cat easter.dc) | dc
2002
[ddsf[lfp[too early
]Pq]s@1583>@
ddd19%1+sg100/1+d3*4/12-sx8*5+25/5-sz5*4/lx-10-sdlg11*20+lz+lx-30%
d[30+]s@0>@d[[1+]s@lg11<@]s@25=@d[1+]s@24=@se44le-d[30+]s@21>@dld+7%-7+
[March ]smd[31-[April ]sm]s@31<@psnlmPpsn1z>p]splpx
# Compute square root of 2
16oAk2vpq
|
