Re: 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?)
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Comment on Re: Which came first? Download Code

Replies are listed 'Best First'.
Re^2: Which came first? by Gavin (Archbishop) on May 02, 2008 at 17:01 UTC
Should it not be `[scramble] rather than [shuffle]`!	[reply] [d/l]
Re^2: Which came first? by zentara (Archbishop) on May 02, 2008 at 15:51 UTC
How about this proof? `#!/usr/bin/perl use warnings; use strict; my @creations = sort ('egg','chicken'); print "@creations\n"; __END__` [download] Output: chicken egg The real question is where did the rooster come from? I mean an egg will not produce a chicken, unless there is a rooster to fertilize it. So the original poll should be "chicken, egg, or rooster" ? I'm not really a human, but I play one on earth. Cogito ergo sum a bum	[reply] [d/l]
Re^3: Which came first? by BrowserUk (Patriarch) on May 02, 2008 at 16:40 UTC
No, no, no. That can't be right! You'd have to sort by date of birth not name for that to work. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply]
Re^4: Which came first? by Gavin (Archbishop) on May 02, 2008 at 17:13 UTC
But how will you know which Birthday came first Chicken or Egg?	[reply]
Re^5: Which came first? by Your Mother (Archbishop) on May 02, 2008 at 17:43 UTC
Re^5: Which came first? by BrowserUk (Patriarch) on May 02, 2008 at 17:17 UTC
Re^3: Which came first? by swampyankee (Parson) on May 07, 2008 at 01:53 UTC
There are parthenogenic vertebrates, such as Komodo dragons, and it has been reported for mice, chickens, and turkeys. Information about American English usage here and here. Floating point issues? Please read this before posting. — emc	[reply]


P is for Practical
	PerlMonks