This has a Golf Style Question attached to it...
Your answer can be trimmed down to 47 characters:
sub f {
#23456789_123456789_123456789_123456789_123456789_12
$b+=$_%400?$_%100?$_%4?1:2:1:2for 1..pop;$b%7+1
}
But this begs the question, should it be immediately reusable? My guess is yes, in which case this is a non-answer. The problem is that
$b doesn't get reinitialized at the start of the sub so you have to either zero it or undef it in between every call.
It returns correctly the first time, but incorrectly after that; is this ok for a golf? Or should it return correctly every time?
jynx
