Re: Re: Friday Golf: All 2-digit combinations

[hardburn]

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

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