Topic: need a refresher on and / or

[andrew_nao]

im having a bit of a brain fart

is it

Code: [Select]

(if (and (or (= a b) (= b c))))
or
(if (or (and (= a b) (= b c))))


[tombu]

It's either

Code: [Select]

(if (or (= a b) (= b c)))
or
(if (and (= a b) (= b c)))The extra and/or has only one argument, not sure what you're trying to do with it

[PKENEWELL]

im having a bit of a brain fart

is it

Code: [Select]

(if (and (or (= a b) (= b c))))
or
(if (or (and (= a b) (= b c))))


Hi Andrew,

Your statements don't make sense becuase your outer AND and OR respectively only have one argument. If you write it out logically it make more sense - such as:

Code: [Select]

(if
   (and
      ; The below statement is True
      (or
         (= a b); This statement is True
         ;OR
         (= b c); This statement is True
      ) ; End OR
      ; AND
      ; The below statement is True
      (or
          (= d e) ;This statement is True
          ;OR
         (= f g) ;This statement is True
      ) ;End OR
   );End AND
) ;End IF

[CAB]

If it's an exact match you can use member or vl-position or assoc

Code: [Select]

_$ (member 8 '(2 4)
(
_$ (vl-position 8 '(2 4)
2
_1$ (assoc 8 '((2) (4) ())
(
(vl-some '(lambda (x) (= 8 x)) '(2 4)
T

Real numbers with rounding differences will not work without manipulation first.

So maybe this would be better

Code: [Select]

(vl-some '(lambda (x) (equal 8 x 0.00001)) '(2 4 8.000002))
T
(or (equal a b 0.00001)(equal b c 0.00001))

Just an FYI