Select Code to Download

sub f {
#        1         2         3         4         5
#234567890#234567890#234567890#234567890#234567890#23
$b+=!($_%4||/00$/&&$_%400)for 0..($b=pop);$b%7
}