Easter by Chris K. Jester-Young

(use srfi-1)(for-each(lambda(y)(let*((/ quotient)(% modulo)(_ floor)(c(+(/ y 100)1))(t(- 210(%(_(* c 3/4))210)))(j(% y 19))(n(- 57(%(+ 14(* j 11)(_(+(* 8/25 c)1/5))t)30)))(o(if(or(and(= n 56)(> j 10))(= n 57))(- n 1)n))(p(- o(%(+(_(*(% y 28)5/4))t o 2)7)))(m(if(> p 31)'APRIL'MARCH)))(display(format"~2,'0D ~A, 0~D
"(+(%(- p 1)31)1)m y))))(iota 1000 2001))

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

download

return to the top page