good chemistry is complicated,and a little bit messy -LW PerlMonks

### cacharbe

by cacharbe (Curate)
 on Apr 03, 2001 at 21:46 UTC ( #69394=user: print w/replies, xml ) Need Help??

Nodes I'm Proud of
The Drama of being a developer
The Drama of being a developer II
The Drama of being a developer III
The Drama of being a developer IV
Developer Accountability
Crypto Discussion
Crypto Discusion II
My Jet Direct Printer control code
My (Humor) The IT Secret Service
My First Tutorial

Misc
My 'Blog
My Use.Perl.org Journal
God Bless the Onion
Dictionary of Algorithms, Data Structures, and Problems
Angst Technology Comic Strip
Sinfest Comic Strip
Fuzzy Logic Comic Strip
HTML Converters

Book List
Code Complete by Steven McConnell

As a general response to some sorting questions recently, here's the time reference table for various sorts:

Sort Worst Case Average Case
Selection Sort N2 N2
Bubble Sort N2 N2
Insertion Sort N2 N2
Mergesort N*Log2N N*Log2N
Quicksort N2 N*Log2N
Tree Sort N2 N*Log2N
Heap Sort N*Log2N N*Log2N

### Radix Sort Example from Wolf Book

```#!/usr/bin/perl

my \$array = shift;

my \$from = \$array;
my \$to;

# All lengths expected equal.
for ( my \$i = length \$array->[ 0 ] - 1; \$i >= 0; \$i-- ) {
# A new sorting bin.
\$to = [ ];
foreach my \$card ( @\$from ) {
# Stability is essential, so we use push().
push @{ \$to->[ ord( substr \$card, \$i ) ] }, \$card;
}

# Concatenate the bins.

\$from = [ map { @{ \$_ || [ ] } } @\$to ];
}

# Now copy the elements back into the original array.

@\$array = @\$from;
}

@array = qw(flow loop pool Wolf root sort tour);
print "@array\n";

### Commify Number, and set to 2 decimal places (Perl Cook + formatting)

Here's an explanation in perlfaq5.
```sub commify {
local \$_  = shift;
\$_= sprintf("%.2f",\$_);
1 while s/^([-+]?\d+)(\d{3})/\$1,\$2/;
return \$_;
}
my XP Change Chart

Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2022-08-10 20:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?