>Unfortunately you don't. This solution misses the requested \n, fixing >that makes it a 46
OK, then, how about:
#!perl -l
$m=pop;map$n+=$m%$_?0:$_,1..$m/2;print$n
Which is still a 43. The map saves a couple of characters. I don't
think this one has legs, tho'; I can't see much more that can be reduced
from it. But then, I'm not a very good golfer.
-- michael.
