### Re^2: Need help comparing 4 dates

by dirtdog (Monk)
 on Oct 03, 2010 at 03:37 UTC ( #863133=note: print w/replies, xml ) Need Help??

in reply to Re: Need help comparing 4 dates
in thread 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

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

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; }

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.

Create A New User
Node Status?
node history
Node Type: note [id://863133]
help
Chatterbox?
 jedikaiti is glad to see the conditioning persists... [jedikaiti]: And yes, I have saved down a copy and added it to my walpaper rotation [zentara]: jedikaiti my condition has a condition :-) [jedikaiti]: :-D [Your Mother]: ♫ You say apod, I say Perl POD ... let's call the whole thing off ♬

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (10)
As of 2017-08-18 15:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Who is your favorite scientist and why?

Results (304 votes). Check out past polls.

Notices?