依旧Lisp解题

(defun max_value (a b))
(let f a)
(cond
(< f b)(setf f b)
(t setf f a)))

(defun min_value (a b))
(let f a)
(cond
(> f b)(setf f b)
(t setf f a)))

(let a (read_line))
(let b (read-line))
(let res1 (callfunc min_value(a b)))
(format t "min = ~a~%" res1)
(let res2 (callfunc max_value))
(format t "max = ~a~%" res2)

本人初学，语法错勿喷