[日积月累]：一個巧求列表中最大值，最小值的方法

舟自横

以前求列表中數字的最大值或者最小值都是用循環或者排序
今天突然靈感一閃想到了一個妙方
用 eval 和 min max函數
例如: (eval (cons 'min  '(2 5 1 3))) 返回1
          (eval (cons 'max '(2 5 1 3))) 返回5
          意思就是將函數min 當作一個原子加入列表中去，然后對列表求值就可以,此方法可以適用任何函數

HuaiYu

不错,eval理解的很有深度!!
佩服!!!
这招不错....

taner

确实高招!看了半天,恍然大悟!又多了两个函数!

2. 
   
3.   [FONT=courier new]
   
4. (defun minoflst (lst)
   
5.   (eval (cons 'min lst))
   
6. )
   
7. (defun maxoflst (lst)
   
8.   (eval (cons 'max lst))
   
9. )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun minoflst (lst)<br />   (eval (cons 'min lst))<br /> )<br /> (defun maxoflst (lst)<br />   (eval (cons 'max lst))<br /> )<br />   [/FONT]<br />

kohi

不认为是什么妙方。这样不更简单吗：
(apply 'min '(2 5 1 3))

舟自横

最初由 kohi 发布
[B]不认为是什么妙方。这样不更简单吗：
(apply 'min '(2 5 1 3)) [/B]

呵呵，以前我也是這樣用的，我這里只是提供另外一種思路而已。。

雨箭风刀

看apply 函数的定义,意思就等于 (eval (cons a lst))
a是函数或lambda临时定义

fsxm

eval+cons是没法与apply比的
apply没有变量个数限度
eval+cons不能超过256个吧~多了就出错的 ,以前常见过这个情况
大多数时eval是用在动态定义变量or函数时用到
eval+read才是最好搭挡  eval+cons基本上没有

hh_lj007

列表元素不能超过256，包括min

zc1zc2

学习了~~~~~~~