No such thing as a small change PerlMonks

### Re: sorting HoH according to value

by mwah (Hermit)
 on May 27, 2008 at 14:02 UTC ( #688664=note: print w/replies, xml ) Need Help??

in reply to sorting HoH according to value

of course, jettero posted already a very compact working solution, but I found the topic interesting enough to try that one too. In contrast to the solution already given, one could solve these problems per 'hash flipping'. This would trace down the hashes of hashes and at the end of the way would put the keys of the chain plus the value into an array. This array would then be a 'flipped hash representation'. This could then be handled simply by a loop:

``` ...
my @flipped_hash = reverse sort {\$a->[0] <=> \$b->[0] } flippout %bdry
+;
...

(reverse sort - to get your desired order). This may be printed via:

``` ...
for my \$k ( @flipped_hash ) {
print " \\$bdry{\$k->[1]}{\$k->[2]} = \$k->[0];\n",
}
...

which would print the desired output:

``` \$bdry{1}{2} = 3;
\$bdry{3}{4} = 2;
\$bdry{2}{3} = 1;

How would such a flippout() subroutine look like? A straightforward implementation would read like:

``` ...
sub flippout {
my %h = @_;
my @f;
while( my (\$k,\$v) = each %h ) {
while( my (\$vk,\$vv) = each %\$v) {
push @f, [\$vv, \$k, \$vk]
}
}
return @f
}
...

This seems to be something like an explicit version of jettero's code.

Regards

mwa

Replies are listed 'Best First'.
Re^2: sorting HoH according to value
by jettero (Monsignor) on May 27, 2008 at 16:48 UTC
Definitely less compact, arguably more readable — although I tend to read the compact stuff more easily.

But which is faster? I know I was expecting a speedup from using each instead of keying each by hand. But does the sub slow it down?

-Paul

Create A New User
Node Status?
node history
Node Type: note [id://688664]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2021-04-20 00:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?