Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: list of unique strings, also eliminating matching substrings

by roboticus (Canon)
on May 21, 2011 at 19:14 UTC ( #906085=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    #
    ...
            print "$t\n";
            --$cnt;
    }
    
  2. or download this
    $ for J in {1,2,5}0{0,00,000}; do echo $J; perl gen_random_string.pl $
    +J ACGTN 15 25 >t.$J; done
    
  3. or download this
    #!/usr/bin/perl
    #
    ...
    print scalar(@unique), " unique items.\n";
    print "$cnt_dup rejected.\n";
    print "$end seconds\n";
    
  4. or download this
    $ cat t.100 t.100 t.100 > t.300
    $ cat t.1000 t.1000 t.1000 > t.3000
    ...
    $ cat t.100 t.300 > t.400
    $ cat t.1000 t.3000 > t.4000
    $ cat t.10000 t.30000 > t.40000
    
  5. or download this
    num      brute
    strings  force    Robo1  Robo2
    ...
      30000           4.493  2.621
      40000           5.866  3.417
      50000                  4.929
    
  6. or download this
    # str     Robo2  Notes
    ------   ------  --------------
    ...
     20000   11.887  10000 unique
    100000   65.224  unique
    200000  126.190  100000 unique
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2014-08-30 01:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (291 votes), past polls