Gz:logxorのソースを表示

{{AutoLISP}}
; 構文
: (gz:logxor int1 int2)


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


; 引数
:* int1 : 整数。
:* int1 : 整数。


; 戻り値
: 整数。


; サンプル
<pre class="brush:autolisp;">
(gz:logxor 0 0)
0

(gz:logxor 1 1)
0

(gz:logxor 1 0)
1

(gz:logxor 0 1)
1

; int1, int2を足して２で割った値の余りと同じなので偶数奇数判定できたり
(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奇数")
)

</pre>

-----
関連事項
* [[logand]] 関数
* [[logior]] 関数
* [[lsh]] 関数
* [[boole]] 関数

[[Category:AutoLISP]]