On Feb 4, Yanick said: >On Mon, Feb 04, 2002 at 04:32:29PM -0500, Jeff 'japhy' Pinyan wrote: >> >> # find all prime numbers >> $_||=(1)^(\1/~++$$)while +x._/+1;print > > (1x$_)=~/^(.1+)\1+$/||print while++$_ > > and int he grand tradition of putting stuff >back together, I'm left with one ';' too many.
Oh, come now. You know the ; is for the end, and it doesn't hurt to have it there. -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.