chomp(@input=<>);foreach$i(@input){print"$i is ";if(($i%100!=0 || $i%400!=0)&&($i%100==0 || $i%4!=0)){print"not ";}print"a leap year.\n";}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page