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$x

Interesting.

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.    |

Reply via email to