laziness, impatience, and hubris PerlMonks

### Re: Re: Re: Re: Re: Fastest way to compare multiple variables?

by mikfire (Deacon)
 on May 15, 2001 at 23:10 UTC ( #80677=note: print w/replies, xml ) Need Help??

Okay, I cannot resist. This is the product of not enough sleep and I warn all who continue. Given we have used merlyn's suggestion for a hash of arrays ( I was actually thinking of an array of ararys, but why not a hash? ), what if we did something like this
sub compare {
my %data = @_;
my @lengths = sort { $a <=>$b } map { scalar@{$data{$_}} } keys %da
+ta;
return $lengths[0] ==$lengths[-1];
}
[download]
Basically, if we sort the lengths and the last element is equal to the first element, then everything else inbetween must be equal.

This has likely no value - it really isn't clearer nor does it likely save any cycles. I just thought it was fun and have not had enough sleep.

UPDATE: did I mention not enough sleep? Fixed a typo
mikfire

Create A New User
Node Status?
node history
Node Type: note [id://80677]
help
Chatterbox?
 [thezip]: Is there an analogy for '&' (ie. run commandline process in background) for Windows commandline? [Corion]: thezip: start "some title" path\to\that\ application, but that will open another console window [Corion]: thezip: If you want to confuse your users, use system(1, "that\\command" );, which will make Perl launch it in the background [Corion]: That will keep the console window open even though the user can't type into it anymore

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (14)
As of 2017-03-27 18:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should Pluto Get Its Planethood Back?

Results (321 votes). Check out past polls.