Gz:logxor

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(gz:logxor int1 int2)


機能
整数1,2 のビット方式の XOR(排他的論理和)の結果を返す。


引数
  • int1 : 整数。
  • int1 : 整数。


戻り値
整数。


サンプル
(gz:logxor 0 0)
0

(gz:logxor 1 1)
0

(gz:logxor 1 0)
1

(gz:logxor 0 1)
1

; int1, int2を足して2で割った値の余りと同じなので偶数奇数判定できたり
(setq i1 128  i2 128)
(if (zerop (gz:logxor i1 i2))
  (princ "\n偶数")
  (princ "\n奇数")
)

(if (zerop (rem (+ i1 i2) 2))
  (princ "\n偶数")
  (princ "\n奇数")
)


関連事項