Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Which came first?

by BrowserUk (Pope)
on May 02, 2008 at 14:52 UTC ( #684184=note: print w/replies, xml ) Need Help??


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.

Replies are listed 'Best First'.
Re^2: Which came first?
by Gavin (Bishop) on May 02, 2008 at 17:01 UTC
    Should it not be [scramble] rather than [shuffle]!
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__
    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?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://684184]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2020-09-24 00:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (132 votes). Check out past polls.

    Notices?