分享一个递归函数

yjr111

MAX只能求数的最大值，不能求字符串的最大值，下面定义求字符串和数最大值的函数。
(defun f(lst)
(if lst
(if(> (car lst)(f(cdr lst)))
(car lst)
(f(cdr lst)
)
)
);;;;测试
(f '(1 3 2))>>>>>>>>>3
(f '("asd" "dfd" hgrt"))>>>>>>>"hgrt"

仲文玉

坐沙发支持严兄

cnks

这个不用等就放源码了

hao3ren

cnks 发表于 2012-6-29 15:58
这个不用等就放源码了

,你可以再等等
大牛，整点有用的啊

Gu_xl

(defun f (l)
(car (vl-sort l '>))
)

yjr111

发这个函数目的仅在于学习递归函数，用vl-sort排序函数可能会删除重复的元素。另外其实字符串排序可以用acad_strlsort函数.....

cnks

hao3ren 发表于 2012-6-29 16:18
,你可以再等等
大牛，整点有用的啊

我再等能等到你放点啥好东西不？

自贡黄明儒

楼上都是些厉害的主！！！