leap year by chun

while 1>0do
let y=read_int()in
Printf.printf"%d is %sa leap year.
"y(if y/4*4=y&(y mod 100<>0||y mod 400=0)then""else"not ")done

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

download

return to the top page