Michael W Thelen <[EMAIL PROTECTED]> wrote:
> The first time I ever saw it was in a JAPH by Abigail:
>
> perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
>
> found here: http://www.cpan.org/misc/japh
The earliest occurrence I've been able to find is this message
by Abigail in comp
* Riley <[EMAIL PROTECTED]> [2004-08-02 16:51]:
> It reminds me of someone's clever way of determining if a number is prime,
> which (at least in my version) turns out to be of similar length:
>
> -l print 0|(1x pop)!~/^(11+)\1+$/
>
> I'm writing the above from memory, so I'm not sure if it's exa