On Thu, May 16, 2002 at 06:19:43AM -0500, [EMAIL PROTECTED] wrote:
> Fun, but none too impressive:
>
> #!perl -l
> (1x pop)=~/^(1+)\1+$(?{$x+=$+[1]})./;print$xInteresting. However, this segfaults for 65535 on Linux and Solaris (both v5.6.1), and gives incorrect result of 45920 on Windows 2000 (ActivePerl v5.6.0) ??? /prakash -- |Prakash Kailasa <[EMAIL PROTECTED]> | |== | |Kime's Law for the Reward of Meekness: | | Turning the other cheek merely ensures two bruised cheeks. |
