leap year by AdventChildren

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