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