Day of the Week by pooq

do
input""y,m,d
if!y end
if m<3m=m+12:y=y-1
?mod(y+int(y/4)-int(y/100)+int(y/400)+int(2.6*m+1.6)+d,7)loop

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

download

return to the top page