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.lang.perl.misc from 22 Oct 1997: http://groups.google.com/groups?selm=slrn64sgsv.qp.abigail%40bet elgeuse.wayne.fnx.com -- Keith C. Ivey <[EMAIL PROTECTED]> Washington, DC
