Day of the Week by kozima(date)

(loop(setf y(+(read)2800)m(read))(format t"~A
"(mod(1+(nth 6(multiple-value-list(decode-universal-time(encode-universal-time 1 1 1(read)m y)))))7)))

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

download

return to the top page