Easter by yshl

2001 1 3000{dup 100 idiv 1 add dup 3 mul 4 idiv exch 8 mul 5 add 25 idiv 1
index sub 2 index 19 mod 11 mul add 8 add 30 mod dup 25 eq 3 index 19 mod 10 gt
and 1 index 24 eq or{1 add}if dup 24 idiv 30 mul exch sub 51 add exch 2 index 5
mul 4 idiv sub 1 index sub 2 sub 7 mod add dup 1 sub 31 mod 101 add 3 string
cvs 1 2 getinterval print 31 gt{( APRIL, 0)}{( MARCH, 0)}ifelse print =}for

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page