Gz:logxor

提供:GizmoLabs - だいたい CAD LISP なサイト
2022年4月24日 (日) 09:35時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (gz:logxor int1 int2) ; 機能 : 整数1,2 のビット方式の XOR(排他的論理和)の結果を返す。 ; 引数 :* int1 : 整数。 :*…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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奇数")
)


関連事項