in reply to Which came first?
After long and deep research, I can say definitively, the EGG has it:
#! perl -slw use strict; use List::Util qw[ shuffle ]; my $string = join '', shuffle +('A' .. 'Z')x2;; while( $string = join'', shuffle split '', $string ) { printf( STDERR "\r$string" ); $string =~ s[(CHICKEN|EGG)][>>>$1<<<] and die "\n\n$1 came first\n$string\n\n(Selfish lover?)\n"; } __END__ C:\test>junk1 OEQOLHRDFUWDXPTZBYVLTNWKFBVJSRMAEGGNUQIAXCSZCKIHJPMY EGG came first OEQOLHRDFUWDXPTZBYVLTNWKFBVJSRMA>>>EGG<<<NUQIAXCSZCKIHJPMY (Selfish lover?) C:\test>junk1 MWZCSLUKEATQYTHOWEGGMVPQYVRRJXBUAKXNDDHFPZJISNOCFBLI EGG came first MWZCSLUKEATQYTHOW>>>EGG<<<MVPQYVRRJXBUAKXNDDHFPZJISNOCFBLI (Selfish lover?) C:\test>junk1 BZPUIEEGGONAQRWOJFKDHDYCXUFBLWZHYMMVXSISTTJAQKNPVRCL EGG came first BZPUIE>>>EGG<<<ONAQRWOJFKDHDYCXUFBLWZHYMMVXSISTTJAQKNPVRCL (Selfish lover?)
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Which came first?
by Gavin (Archbishop) on May 02, 2008 at 17:01 UTC | |
|
Re^2: Which came first?
by zentara (Cardinal) on May 02, 2008 at 15:51 UTC | |
by BrowserUk (Patriarch) on May 02, 2008 at 16:40 UTC | |
by Gavin (Archbishop) on May 02, 2008 at 17:13 UTC | |
by Your Mother (Archbishop) on May 02, 2008 at 17:43 UTC | |
by BrowserUk (Patriarch) on May 02, 2008 at 17:17 UTC | |
by swampyankee (Parson) on May 07, 2008 at 01:53 UTC |