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?)

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."

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]!
Re^2: Which came first?
by zentara (Cardinal) 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__
    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
        But how will you know which Birthday came first Chicken or Egg?