Question

*Write a LISP program*

Write a function that squares a number if it is odd and positive, doubles it if it is odd and negative, and otherwise divides the number by 2.

Answer 1

Code:

(defun func(num)

(cond

((and (oddp num)(plusp num)) (format t "~% Square of num: ~d " (* num num)))

((and (oddp num)(minusp num)) (format t "~% Value after multiplying by 2: ~d " (* 2 num)))

(t (format t "~% Value after dividing by 2: ~d " (/ num 2)))

)

)

(func 100)  

Code Screenshot:

Output:

screenshot with explanation and comments: