Decimal Gray Code in 31 chars

print(($_^$_>>1).$/)for(0..pop)

simplest as possible

Comment on Decimal Gray Code in 31 chars Download Code

Replies are listed 'Best First'.
Re: Decimal Gray Code in 31 chars by ikegami (Patriarch) on Jan 18, 2010 at 22:25 UTC
From your 35 `perl -e'print(($_^$_>>1).$/)for(0..pop)' 15 12345678901234567890123456789012345` [download] I shave 6 off `perl -le'print$_^$_>>1 for 0..pop' 15 12345678901234567890123456789` [download] 3 more if 5.10+ `perl -E'say$_^$_>>1 for 0..pop' 15 12345678901234567890123456` [download]	[reply] [d/l] [select]
Re^2: Decimal Gray Code in 31 chars by mtve (Deacon) on Jan 19, 2010 at 10:46 UTC
two more: `print$_^$_/2for 0..pop`	[reply] [d/l]
Re^3: Decimal Gray Code in 31 chars by ikegami (Patriarch) on Jan 19, 2010 at 13:33 UTC
I swear I tried removing that space and got an error. But yeah, it works.	[reply]
Re^2: Decimal Gray Code in 31 chars by ambrus (Abbot) on Jan 19, 2010 at 11:13 UTC
It's funny how some people still post nodes with such titles despite the warning on the top of Obfuscated code: “Word of warning, though: Don't be too cocky with your post — almost inevitably someone will post a reply that does the exact same thing in even fewer characters!”	[reply]
Re^3: Decimal Gray Code in 31 chars by Anonymous Monk on Jun 12, 2010 at 06:56 UTC
My guess is because by saying "simplest as possible", it challenges others to improve on it ;). Do you think this many comments would be gathered otherwise?	[reply]
Re: Decimal Gray Code in 31 chars by tweetiepooh (Hermit) on Jan 25, 2010 at 17:11 UTC
Meybe I'm not seeing something but I get `0132675412131514101198` [download]	[reply] [d/l]
Re^2: Decimal Gray Code in 31 chars by ikegami (Patriarch) 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.	[reply]
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` [download] I believe that was mtve's intent. Um, that's 20 chars of actual code.	[reply] [d/l] [select]
Re^3: Decimal Gray Code in 31 chars by ambrus (Abbot) on Jan 27, 2010 at 09:32 UTC
Actually my guess is rather `perl -le'print$_^$_/2for 0..pop'`	[reply] [d/l]
Re^2: Decimal Gray Code in 31 chars by toolic (Bishop) 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` [download] 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` [download]	[reply] [d/l] [select]

Back to Obfuscated Code