11 lines
242 B
Common Lisp
11 lines
242 B
Common Lisp
(defun odd (n)
|
|
(if (= 1 (mod n 2) ) (format "%d is odd\n" n)
|
|
(format "%d is even\n" n)))
|
|
|
|
(defun even (n)
|
|
(if (= 0 (mod n 2) ) (format "%d is even\n" n)
|
|
(format "%d is odd\n" n)))
|
|
|
|
(progn
|
|
(insert (even 3) )
|
|
(insert (odd 2) ))
|