On Feb 4, Paul Makepeace said: >> $_||=(1)^(\1/~++$$)while +x._/+1;print >> (1x$_)=~/^(.1+)\1+$/||print while++$_; > >That's what I had (module layout) but couldn't figure out how to get rid >of the initial "1", which isn't prime.
That's a minor flaw of the program, and is implicitly excused. >The jumbling shuffles the meaning of the tokens, e.g. ||= is one token >in the problem and two (|| and =) in the solution. Kudos to anyone who >puts together a problem where alphabetic tokens and [say] regex >modifiers (unless, while, /eis, &c) transmute into other alphabetic >tokens for the solution... It was a mere coincidence that I decided to keep the two |'s together -- there was no need to, really. For examples, I use / for division instead of as a regex, and =~ has been broken up. -- 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.