Re^2: Find duplicate digits

Thanks, inman!

Yes, I would like 1010 to be counted.

I'm finding it hard to understand your grep. Where is the list that it's supposed to work on?

Comment on Re^2: Find duplicate digits

Replies are listed 'Best First'.
Re^3: Find duplicate digits by holli (Abbot) on Feb 15, 2006 at 17:29 UTC
The code is equivalent to `while (<DATA>) { my $a = join('', sort split //, $_); my @a = $a =~ /((\d)\2+)/g; print "$_" if grep {length $_ == 2} @a; }` [download] holli, /regexed monk/	[reply] [d/l]
Re^4: Find duplicate digits by Anonymous Monk on Feb 16, 2006 at 04:25 UTC
Thanks, holli! That really helpful :)	[reply]