sub checker
{
   my ($str) = @_;
   for ('00' .. '99')
   {
      my $n = 0;
      $n++ while $str =~ /$_/g;
      die "'$_' appears $n times\n" if $n != 1;
   }
}
 
sub generate
{
 0         1         2         3         4         5         6        
+ 7         8     
#012345678901234567890123456789012345678901234567890123456789012345678
+90123456789012345
 for$x(0..9){for$y(0..9){/$x$y/||(/^$y/and$_="$x$_")||(/$x$/and$_.=$y)
+or$_.="$x$y"}}$_ 
}
 
print "Generating ...\n";
my $test = generate();
print "$test\n";
 
print "Checking   ...\n";
checker($test);
 
print "Ok\n";
----
Generating ...
9900102030405060708091121314151617181922324252627282933435363738394454
+6474849556575859667686977879889
Checking   ...
Ok
[download]

I know it can be improved ...

Update: 78 chars and counting ...

#0         1         2         3         4         5         6        
+ 7         8
#012345678901234567890123456789012345678901234567890123456789012345678
+901234567890
 for$x(0..9){for$y(0..9){/$x$y/||(/^$y/?$_=$x.$_:(/$x$/?$_.=$y:($_.=$x
+.$y)))}}$_
[download]

Update: 72 chars and counting ...

#0         1         2         3         4         5         6        
+ 7
#012345678901234567890123456789012345678901234567890123456789012345678
+9012345
 for$x(0..9){for$y(0..9){/$x$y/||($_=/^$y/?$x.$_:/$x$/?$_.$y:$_.$x.$y)
+}}$_
 for$x(0..9){for$y(0..9){$_=/$x$y/?$_:/^$y/?$x.$_:/$x$/?$_.$y:$_.$x.$y
+}}$_
[download]

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

Yes, I believe that your solution is correct. BrowserUK beat you by one minute and a bunch of characters, but you included a checker, and spotted my mistake (which I won't pretend was deliberate). Well done.

I'm not sure I agree with your character count, as the code doesn't print anything. Replacing $_ with print at the end adds three characters. However, you do qualify for a 2-stroke bonus under the revised rules for not using any 2-digit combinations in your code.

Update: Both attempts in this node are bogus!!

46?

$n='00';$s!~/$n/and$s.=$n while$n++<99;print$s

123456789 123456789 123456789 123456789 123456789

45

$n='00';$s!~$n and$s.=$n while$n++<99;print$s

123456789 123456789 123456789 123456789 123456789

62? (Does anyone have a neat one liner for verifying this? trying to check the results is doing my eyes in:)

$_=$n='00';/$n/ or$_.=$n and s/(.)\1\1/$1$1/while$n++<99;print

123456789 123456789 123456789 123456789 123456789 123456789 123

58!

$_=$n='00';/$n/ or$_.=$n,s/(.)(?=\1\1)//while$n++<99;print

123456789 123456789 123456789 123456789 123456789 123456789 123

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

Congratz! Though, I think your algorithm works only because of a peculiarity in 00..99. If you extend it to 000..999, your algorithm doesn't scale, while mine does. :-)

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

I believe that is the first correct solution! Congratulations, let the ++'s flow!

See my original post for the checker.

44 if you die ;) why won't you die??? lol

I do realize that the line number may not be wanted, but I just couldn't resist ;D

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.

40.

$n='00';/$n/ or$_.=$n while$n++<99;print 123456789 123456789 123456789 123456789

Update: your code still displays some bad entries. see below

010203040506070809111213141516171819222324252627282933343536...etc.

---

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/

79.

75. (removed stupid parnes)

You're missing 90

My half-assed try... 67

for('00'..'99'){$a.=$_ unless $x{$_} or $x{reverse $_}++};print $a;
#234567890#234567890#234567890#234567890#234567890#234567890#234567
#        1         2         3         4         5         6
[download]

Note, it includes '00' which some people are missing...

Update... 59? (similar to hardburn's solution)

for('00'..'99'){$x{$_}++unless $x{reverse()}};print keys%x;
[download]

Update 2 ...50?

for$a(0..9){for(0..9){$x.="$a$_"if$_>=$a}}print$x; [download]

Update 3: after a clarification, i guess i've misunderstood the problem. I thought it needed all unique pairs, separately (ie. 00, 01, 02, 03...). My bad.

Update 4: Here's one that actually passes the checker (60)

$_=9;for$a(0..9){for$b($a..9){$_.="$a$b"}s/$a{3}/$a$a/}print
[download]

Update... 57!

$_=9;for$a(0..9){for$b($a..9){$_.="$a$b"}s/$a$a/$a/}print
[download]

--
"To err is human, but to really foul things up you need a computer." --Paul Ehrlich

Take out two ';' and the whitespace after the unless and you're down three more strokes:

for('00'..'99'){$x{$_}++unless$x{reverse()}}print keys%x [download]

56

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

56! {He he}

$_=9;for$a(0..9){for$b($a..9){$_.=$a.$b}s/$a$a/$a/}print
[download]

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

53.

for$a(9,0..9){for$b($a..9){$_.=$a.$b}s/$a$a/$a/}print

--
"To err is human, but to really foul things up you need a computer." --Paul Ehrlich

A one-liner for visually verifying the output:

# assumes the output is in $s;
print sort map{ substr $s, $_, 2 } 0..99;
[download]

Nice approach++ You can lose a few from that though, for 39.

$_=9;for$a(0..9){$_.=join $a,$a..9}print

123456789 123456789 123456789 123456789 123456789

29.

print+9,map{join$_,$_..9}0..9

123456789 123456789 123456789 123456789 123456789

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

One more stroke sh?aved:

print+join$_,$_..9for+9,0..9
[download]

I tried fiddling with the glob function without success. :-(

/-\

Since most solutions have the numbers running together, I wrote up this little one-liner to help split the pairs apart:

perl -ne 'print join " ", sort unpack("A2" x (length()/2), $_)'
[download]

Just pipe the output of your Golf solution into it.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

for('00'..'99'){$h{$_}++if(!($h{$_}||$h{reverse$_}))}print keys%h
[download]

78 76 64

Update: Slight bumming of the if statement to use statement-modifier form instead of a block. Saves 2 characters.

Update 2: Realized that the exists were unnecessary. Saves 12 characters.

Update 3: Old versions, added back after tye's response:

for('00'..'99'){if(!(exists$h{$_}||exists$h{reverse$_})){$h{$_}++}prin
+t keys%h
[download]

for('00'..'99'){$h{$_}++if(!(exists$h{$_}||exists$h{reverse$_}))print 
+keys%h
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

Part of the fun of golf is watching the code get whittled away. Please don't destroy your previous versions when you update.

I'm glad you left in the previous stroke counts, but sad that you destroyed the code that went along with those.

                - tye

Generating ...
3738553956575859777879990001020304052206230724082509262744284529464748
+49666768698889111213141516173318341935361
Checking   ...
'00' appears 0 times
[download]

Also, you can drop the braces for the if statement and go to 62.

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

I'm not so sure about your checker:

$ ./two_digit_combo.pl | perl -ne 'print join " ", sort unpack("A2" x 
+(length()/2), $_)'
00 01 02 03 04 05 06 07 08 09 11 12 13 14 15 16 17 18 19 22 23 24 25 2
+6 27 28 29 33 34 35 36 37 38 39 44 45 46 47 48 49 55 56 57 58 59 66 6
+7 68 69 77 78 79 88 89 99

$ cat two_digit_combo.pl                        
#!/usr/local/bin/perl

for('00'..'99'){$h{$_}++if(!($h{$_}||$h{reverse$_}))}print keys%h

$
[download]

Clearly, '00' is right at the beginning of the output.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

I'm certainly not going to win with a score of 132 (actually 130 minus the two strokes for not using(00..99)), but it's a different way to do it. I never was much good at golf anyway...

$n{sprintf("%02d", $c++)}=1 until($c>99);for(keys %n){delete $n{$_}if(
+$n{reverse($_)}&&reverse($_)!=$_)}print join('',sort keys %n)
[download]