Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Rosetta Code: Long List is Long - JudySL code

by marioroy (Prior)
on Jan 24, 2023 at 02:50 UTC ( [id://11149800]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    use strict;
    ...
    use List::Util 'shuffle';
    my @arr = shuffle <>;
    print @arr;
    
  2. or download this
    ./shuffle.pl big1.txt >tmp && mv tmp big1.txt
    ./shuffle.pl big2.txt >tmp && mv tmp big2.txt
    ...
    ./shuffle.pl long1.txt >tmp && mv tmp long1.txt
    ./shuffle.pl long2.txt >tmp && mv tmp long2.txt
    ./shuffle.pl long3.txt >tmp && mv tmp long3.txt
    
  3. or download this
    $ NUM_THREADS=1 ./llil4judy-no6 big{1,2,3}.txt long{1,2,3}.txt >out.tx
    +t
    llil4judy start
    ...
    vector stable sort     1.125 secs
    write stdout           0.283 secs
    total time             3.233 secs
    
  4. or download this
    ~/j904/bin/jconsole llil5.ijs big{1,2,3}.txt long{1,2,3}.txt out.txt
    
    ...
    Classify, sum, sort:     4.82435
    Format and write output: 2.05906
    Total time:              9.32962
    
  5. or download this
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    +~~~~~~~~~
    // llil4judy.cc
    ...
    
       return 0;
    }
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2024-04-24 02:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found