In article <[EMAIL PROTECTED]>,
Lolly Pop <[EMAIL PROTECTED]> writes:
> [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
>
Yup, you found the 38 (don't you dare to enter the next TPR
as beginner).
So, that leaves the 37.
