Re^2: Need help comparing 4 dates

Thanks to all for the replies, but I guess my post was a little confusing. My question really is does anyone have a recommendation for the best way to compare 4 dates and then print the order. Comparing 2 dates is easy, but it gets tricky when comparing 4 dates and displaying the order from the earliest to latest as below:


EVENT   JIM     BOB     SAM     JACK
PTRED   4    3    1    2
RED     3    1    2    4
INT     3    4    2    1
PTRED   2    1    4    3
RED     2    1    3    4
INT     4    3    1    2
[download]

I got some ideas from ww and will give it a try. Thanks

Comment on Re^2: Need help comparing 4 dates Download Code

Replies are listed 'Best First'.
Re^3: Need help comparing 4 dates by ig (Vicar) on Oct 03, 2010 at 04:22 UTC
Given a list of dates, to calculate a corresponding list of ordinals I might do something like the following: `# Make a list of tuples: (index, date) my @list = map { [ $_, $dates[$_] ] } (0..$#dates); # Sort the list by date @list = sort { Date_Cmp($a->[1], $b->[1]) } @list; # Determine the corresponding ordinal numbers my @ordinals; foreach (0..$#dates) { $ordinals[ $list[$_]->[0] ] = $_ + 1; }` [download] I don't find this very elegant - there may be much better ways. There may be a module that does this, though I don't know one.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Need help comparing 4 dates
by ig (Vicar) on Oct 03, 2010 at 04:22 UTC

Given a list of dates, to calculate a corresponding list of ordinals I might do something like the following:

# Make a list of tuples: (index, date)
my @list = map { [ $_, $dates[$_] ] } (0..$#dates);

# Sort the list by date
@list = sort { Date_Cmp($a->[1], $b->[1]) } @list;

# Determine the corresponding ordinal numbers
my @ordinals;
foreach (0..$#dates) {
    $ordinals[ $list[$_]->[0] ] = $_ + 1;
}
[download]

I don't find this very elegant - there may be much better ways. There may be a module that does this, though I don't know one.

[reply]
[d/l]