Re: Triangles and More
"Keith C. Ivey" <[email protected]> Tue, 03 Aug 2004 07:59:37 -0400
| Newsgroups | gmane.comp.lang.perl.golf |
|---|---|
| Message-ID | <[email protected]> |
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