Beno�t Chauvet wrote:
>
> > Fun, but none too impressive:
> >
> > #!perl -l
> > (1x pop)=~/^(1+)\1+$(?{$x+=$+[1]})./;print$x
> >
> > Can't break 41. Grrrr.
>
> This one is 48 stokes, isn't it ?
> By the way, would you explain the meaning of $+[1] ?
> Is this a not documented perlvar @+ ?
> 47, actually. This was not my 41 char solution, which is really too dull to merit posting. -Gary
