Day of the Week by tabasa()

while gets'';($_.split"\n").each{|q|p proc{|y,m,d|m<3?(y-=1;m+=12):0;(y+y/4-y/100+y/400+(13*m+8)/5+d)%7}.call *q.split.map{|i|i.to_i}}end

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

download

return top