Re: Re: Re: Anyone use "xor" in conditionals?

This way the conditions are evaluated less times

Eh? Not so.

$ perl -le 'print "T" if (print "foo" xor print "bar")'
foo
bar

$ perl -le 'print "T" if ((print "foo" and not print "bar") or (not pr
+int "foo" and print "bar"))'
foo
bar
foo
[download]

At best, the expanded version will result in the same number of evaluations.

-sauoq
"My two cents aren't worth a dime.";

Comment on Re: Re: Re: Anyone use "xor" in conditionals? Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Anyone use "xor" in conditionals? by Excalibor (Pilgrim) on Jul 14, 2003 at 19:08 UTC
Hi there, I was, of course, talking about the first extended version offered by Abigail: `$ perl -le 'print "T" if ((print "foo" or print "bar") and (not (prin +t "foo" and print "bar"))' foo foo bar` [download] More specifically, I was talking in the case A is false (messier to write with print() as a one liner, left as an exercise for the reader :-) The point is, once you got the better, downlevel operator, use it if you need it! But no more than that. best regards, -- `our $Perl6 is Fantastic;`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Re: Re: Anyone use "xor" in conditionals?
by Excalibor (Pilgrim) on Jul 14, 2003 at 19:08 UTC

Hi there,

I was, of course, talking about the first extended version offered by Abigail:

$  perl -le 'print "T" if ((print "foo" or print "bar") and (not (prin
+t "foo" and print "bar"))'
foo
foo
bar
[download]

More specifically, I was talking in the case A is false (messier to write with print() as a one liner, left as an exercise for the reader :-)

The point is, once you got the better, downlevel operator, use it if you need it! But no more than that.

best regards,

--
our $Perl6 is Fantastic;

[reply]
[d/l]
[select]