Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

andye Re: "Countdown" (golf)

by andye (Curate)
on Nov 30, 2001 at 18:27 UTC ( [id://128623]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #        1         2         3       
    #234567890123456789012345678901234567
    $"='';grep{/^(([@_])(?!.*\2))+$/}<D>;
    
  2. or download this
    #234567890123456789012345678901234567
    $"='';grep/^(([@_])(?!.*\2))+$/,<D>;
    
  3. or download this
    #        1         2         3         4         5         6         7
    +         8
    #234567890123456789012345678901234567890123456789012345678901234567890
    +12345678901
    $"='';$n{$_}++for@_;grep/^((??{"([@_])"})(??{"(?!([^$1 ]*$1){$n{$1},})
    +"}))+$/,<D>
    
  4. or download this
    $"='';$n{$_}++for@_;grep/^(([@_])(??{"(?!([^$1 ]*$1){$n{$1},})"}))+$/,
    +<D>
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://128623]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2024-03-29 10:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found