RosettaCodeData/Task/Even-or-odd/XLISP/even-or-odd.l
2023-07-01 13:44:08 -04:00

5 lines
91 B
Common Lisp

(defun my-evenp (x)
(= (logand x 1) 0) )
(defun my-oddp (x)
(/= (logand x 1) 0) )