ELisp編程十:求最大值

這是一個簡單的練習，如果一個list中有幾個數字，寫一個函數，找出最大值。

(setq number-list '(5 8 9 10 87 34))(defun max-number(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    )  )(max-number number-list)

結果顯示為87.

注意：setq可以用來修改let定義的變數的值。

這裡用到了函數定義，局部變數，變數值修改，while迴圈和if語句，還有>操作符。