Easter by kozima

(dotimes(i 1d3)(format t"~2,'0D ~:[MARCH~;APRIL~], 0~D
"(if(setf y(+ i 2001)g(mod y 19)c(1+(#1=floor y 100))x(-(#1#c 4/3))e(mod(+(* 11 g)38(#1#(+(* 8 c)5)25)x)30)n(-(if(> e 23)81 51)e(if(or(if(= e 25)(> g 10))(= e 24))1 0))n(- n(mod(+(#1#y 4/5)2 x n)7))m(> n 31))(- n 31)n)m y))

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

download

return to the top page