ELisp编程十:求最大值

这是一个简单的练习，如果一个list中有几个数字，写一个函数，找出最大值。

(defun get-max (n-list)
  (let* ((tmp (car n-list)) (max tmp))
    (while n-list
      (setq tmp (car n-list))
      (if (> tmp max)
	  (setq max tmp)
	)
      (setq n-list (cdr n-list))
      )
    max
    )
  )

(setq number-list '(5 8 9 10 87 34))
(get-max number-list)

结果显示为87.

注意：

setq可以用来修改let定义的变量的值

let* 可以支持tmp立刻生效，并将值赋给max