Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Decimal Gray Code in 31 chars

by tweetiepooh (Friar)
on Jan 25, 2010 at 17:11 UTC ( #819539=note: print w/ replies, xml ) Need Help??


in reply to Decimal Gray Code in 31 chars

Meybe I'm not seeing something but I get

0132675412131514101198


Comment on Re: Decimal Gray Code in 31 chars
Download Code
Re^2: Decimal Gray Code in 31 chars
by toolic (Chancellor) on Jan 25, 2010 at 18:05 UTC
    What do you expect to get? Here's what I get when I run the OP's code:
    perl -e 'print(($_^$_>>1).$/)for(0..pop)' 15 0 1 3 2 6 7 5 4 12 13 15 14 10 11 9 8
    Are you questioning why you have no newlines? That is puzzling. Did you do this undef $/; by any chance?

    Or, are you questioning the sequence of values? Maybe looking at the Gray_code in the binary format makes it more obvious:

    perl -e 'printf("%04b$/",($_^$_>>1))for(0..pop)' 15 0000 0001 0011 0010 0110 0111 0101 0100 1100 1101 1111 1110 1010 1011 1001 1000
Re^2: Decimal Gray Code in 31 chars
by ikegami (Pope) on Jan 25, 2010 at 21:22 UTC
    You might be comparing the output you get from the program with the strings in my node. The strings I posted aren't the output I got, but an indication of the program size.
Re^2: Decimal Gray Code in 31 chars
by Xiong (Hermit) on Jan 26, 2010 at 10:27 UTC

    I also get for:

    perl -E'print$_^$_/2for 0..pop' 15

    Output:

    0132675412131514101198

    But for:

    perl -E'say$_^$_/2for 0..pop' 15

    I get:

    0 1 3 2 6 7 5 4 12 13 15 14 10 11 9 8

    I believe that was mtve's intent. Um, that's 20 chars of actual code.

      Actually my guess is rather perl -le'print$_^$_/2for 0..pop'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (14)
As of 2014-07-11 12:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (224 votes), past polls