Re^2: Find duplicate digits

Replies are listed 'Best First'.
Re^3: Find duplicate digits by BrowserUk (Patriarch) on Feb 15, 2006 at 15:39 UTC
If you included `-l` on your shebang line as I have, it would add the newlines for you, but since many people do not like simple :), you can do this: `#! perl -sw use strict; m[ (?:^[^0]0[^0]0[^0]$)\| (?:^[^1]1[^1]1[^1]$)\| (?:^[^2]2[^2]2[^2]$)\| (?:^[^3]3[^3]3[^3]$)\| (?:^[^4]4[^4]4[^4]$)\| (?:^[^5]5[^5]5[^5]$)\| (?:^[^6]6[^6]6[^6]$)\| (?:^[^7]7[^7]7[^7]$)\| (?:^[^8]8[^8]8[^8]$)\| (?:^[^9]9[^9]9[^9]$) ]x and print "$_\n" for '0000' .. '9999';` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Find duplicate digits
by BrowserUk (Patriarch) on Feb 15, 2006 at 15:39 UTC

If you included -l on your shebang line as I have, it would add the newlines for you, but since many people do not like simple :), you can do this:

#! perl -sw
use strict;

m[
    (?:^[^0]*0[^0]*0[^0]*$)|
    (?:^[^1]*1[^1]*1[^1]*$)|
    (?:^[^2]*2[^2]*2[^2]*$)|
    (?:^[^3]*3[^3]*3[^3]*$)|
    (?:^[^4]*4[^4]*4[^4]*$)|
    (?:^[^5]*5[^5]*5[^5]*$)|
    (?:^[^6]*6[^6]*6[^6]*$)|
    (?:^[^7]*7[^7]*7[^7]*$)|
    (?:^[^8]*8[^8]*8[^8]*$)|
    (?:^[^9]*9[^9]*9[^9]*$)
]x and print "$_\n" for '0000' .. '9999';
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

[reply]
[d/l]
[select]