[EMAIL PROTECTED] (Jonathan e. paton) writes: > It might not be the winning solution, but you missed > a character optimisation suggested earlier: > > #!perl -l > map$n+=$m%$_?0:$_,1..($m=pop)/2;print$n
You can knock this down some more (38?) by using the return value of map to correct the overcount, instead of avoiding it with "/2". #!perl -l print$n-map$n+=@a%$_?0:$_,@a=1..pop -- Lolly Pop
