5 lines
91 B
Text
5 lines
91 B
Text
(defun my-evenp (x)
|
|
(= (logand x 1) 0) )
|
|
|
|
(defun my-oddp (x)
|
|
(/= (logand x 1) 0) )
|