xref: /freebsd/contrib/bc/tests/dc/scripts/easter.dc (revision 24e4dcf4ba5e9dedcf89efd358ea3e1fe5867020)
1#! /usr/bin/dc
2
3# This is the actual script.
4[
5	ddsf
6	[
7		lfp
8		[too early
9		]P
10		q
11	]s@
12	1583>@
13	ddd19%1+sg100/1+d3*4/12-sx8*5+25/5-sz5*4/lx-10-sdlg11*20+lz+lx-30%
14	d
15	[30+]s@
16	0>@d
17	[
18		[1+]s@
19		lg11<@
20	]s@
21	25=@d
22	[1+]s@
23	24=@se44le-d
24	[30+]s@
25	21>@dld+7%-7+
26	[March ]sm
27	d
28	[
29		31-
30		[April ]sm
31	]s@
32	31<@dn32PsnlmPdnsn1z>p
33	10P
34]sp
35
362021
37lpx
38
392022
40lpx
41
422023
43lpx
44
452024
46lpx
47
482025
49lpx
50