Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: "Intelligent" array joining

by runrig (Abbot)
on Feb 05, 2004 at 23:40 UTC ( [id://326936]=note: print w/replies, xml ) Need Help??


in reply to "Intelligent" array joining

This is not very thought out or tested, probably not very efficient on large lists, but I think its interesting, and it seems to work:
#!/usr/bin/perl use strict; use warnings; my @array1 = qw(dog cat rat mouse); my @array2 = qw(dog rat mouse bird); my @array3 = qw(cat rat fish mouse); #my @array1= ( 1, 3, 4, 6 ); #my @array2= ( 1, 2, 4, 6 ); #my @array3= ( 1, 2, 3, 5 ); init_cmp($_) for \@array1, \@array2, \@array3; my %animals; undef @animals{@array1, @array2, @array3}; print join(",", keys %animals), "\n"; my @sorted = sort { my_cmp($a, $b) } keys %animals; print join(",", @sorted), "\n"; { my %lt; sub init_cmp { my ($this, @rest) = @{$_[0]}; while ( @rest ) { $lt{$this}{$rest[0]} = 1; $this = shift @rest; } } sub is_lt { my ($first, $next) = @_; return unless exists $lt{$first}; return 1 if $lt{$first}{$next}; for my $mid ( keys %{$lt{$first}} ) { return 1 if is_lt($mid, $next); } return; } sub my_cmp { my ($first, $next) = @_; return is_lt($first, $next) ? -1 : 1; } }

Log In?
Username:
Password:

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

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

    No recent polls found