Time Arithmetic by henkma

m@main=do
l<-getLine;putStrLn$l++do(a,b,c)<-zip3"=::"[24,60,60]$scanr(.(`div`60))0[(+sum[read[l!!y,l!!(y+1)]|y<-[x,x+9]])|x<-[0,3,6]];a:tail(show$100+mod c b)
m

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

download

return to the top page