in reply to Fastest way to compare multiple variables?
'Fastest' depends on whether or not they ARE 'all equal' :)
#!/usr/bin/perl my $a = 2; my $b = 2; my @arr = qw( 2 2 2 ); if (all_equal_ints($a, $b, @arr)) { print "They're all equal!\n" } else { print "They're not all equal!\n"; } sub all_equal_ints { my $first = shift; for (@_) { return 0 unless $first == $_; } return 1; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Fastest way to compare multiple variables?
by zeidrik (Scribe) on May 16, 2001 at 11:58 UTC | |
by owendelong (Initiate) on Feb 27, 2013 at 00:27 UTC | |
by topher (Scribe) on Feb 27, 2013 at 00:58 UTC |
In Section
Seekers of Perl Wisdom