leap year by test

chomp(@input=<>);\x0d
foreach$i(@input){\x0d
print"$i is ";\x0d
if($i%400!=0&&($i%100==0 || $i%4!=0)){print "not ";}print "a leap year.\n";\x0d
}\x0d

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

download

return to the top page