[讨论]：如何将表中表的相对应的最大值组成新表

hewb · 发表于 2003-9-9 22:27:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如：表中表为：
(
(4000.0 3366.0 2814.0 2322.0 1873.0 1375.0 1017.0 685.0 476.0) (3884.0 3275.0 2741.0 2262.0 1826.0 1339.0 990.0 666.0 476.0) (3663.0 3128.0 2643.0 2198.0 1784.0 1317.0 977.0 660.0 517.0)
)

结果表为:
(4000.0 3366.0 2814.0 2322.0 1784.0 1375.0 1017.0 685.0 517.0)

我的解决办法是：
(defun Max-Value-list ( Flist / n n1 n2 nn1 nn2 list1 list2 MaxVL)
  (setq n2 (length (car Flist))
n 0
  )
  (repeat n2
(setq list1 (mapcar '(lambda (x) (nth n x)) Flist))
(setq n (1+ n))
(setq list2 (vl-sort list1 '>))
(setq MaxVL (cons (car list2) MaxVL))
  )
(reverse MaxVL)
  )

请高手赐教！

lsjjm · 发表于 2003-9-10 05:16:57

结果不会
(4000.0 3366.0 2814.0 2322.0 1784.0 1375.0 1017.0 685.0 517.0)
应为:
(4000.0 3366.0 2814.0 2322.0 1873.0 1375.0 1017.0 685.0 517.0)
程序还能简单:
(defun maxlist (flist / nlist nn)
  (setq n 0)
  (repeat (length (car flist))
(setq nlist (append nlist (list (mapcar '(lambda (x) (nth n x)) Flist))))
(setq n (1+ n))
  )
  (foreach i nlist (setq nn (append nn (list (apply 'max i)))))
);

XDSoft · 发表于 2003-9-10 08:58:34

最初由 hewb 发布
[B]如：表中表为：
(
(4000.0 3366.0 2814.0 2322.0 1873.0 1375.0 1017.0 685.0 476.0)
(3884.0 3275.0 2741.0 2262.0 1826.0 1339.0 990.0 666.0 476.0)
(3663.0 3128.0 2643.0 2198.0 1784.0 1317.0 977.0 660.0 5... [/B]

理解了LISP表的概念后，还有更方便，高效的方法。

先分析下，你要求每个子表对应位置的最大值组成的表。

1、要把子表中对应位置的元素组成新的子表，然后用MAX函数求每个子表的最大值

2、根据1的分析，需要这么做：

[font=courier](mapcar 'list 子表1 子表2 ... 子表n)[/font]

复制代码

也就是想法构建一个这样的表：

[font=courier](list 子表1 ... 子表n)[/font]

复制代码

然后用apply 函数把mapcar 作用到上面的表求值。

所以代码可以先成：

[font=courier]
(setq a '(
(4000.0 3366.0 2814.0 2322.0 1873.0 1375.0 1017.0 685.0 476.0)
(3884.0 3275.0 2741.0 2262.0 1826.0 1339.0 990.0 666.0 476.0)
(3663.0 3128.0 2643.0 2198.0 1784.0 1317.0 977.0 660.0 517.0)
)'
(setq b (cons (read "list") a))
(setq c (mapcar '(lambda (x)(apply 'max x)) (apply 'mpcar b)))
[/font]

测试结果：

c=(4000.0 3366.0 2814.0 2322.0 1873.0 1375.0 1017.0 685.0 517.0)

就两行代码就完成任务了。

LISP的精华部分和功能强大的地方就是表处理，而mapcar , apply 组合可以做出非常强大的功能来。mapcar 是对表的每个子表做函数的参数进行求值 , apply 是把一个符号添加到表头做函数求值表。

tuger · 发表于 2003-9-10 11:00:11

不愧为老大。分析的这么透测。

aeo · 发表于 2003-9-10 23:24:30

最初由 tuger 发布
[B]不愧为老大。分析的这么透测。 [/B]

晓东的方法行了吗,我这出错.

(setq a '(
(4000.0 3366.0 2814.0 2322.0 1873.0 1375.0 1017.0 685.0 476.0)
(3884.0 3275.0 2741.0 2262.0 1826.0 1339.0 990.0 666.0 476.0)
(3663.0 3128.0 2643.0 2198.0 1784.0 1317.0 977.0 660.0 517.0)
)
)
;每次都取第一项,max一下.
(while (caar a)
(setq c(cons (apply 'max (mapcar 'car a)) c)
a(mapcar 'cdr a)
))
(reverse c)

XDSoft · 发表于 2003-9-10 23:53:23

最初由 aeo 发布
[B]

晓东的方法行了吗,我这出错.

[code]
(setq a '(
(4000.0 3366.0 2814.0 2322.0 1873.0 1375.0 1017.0 685.0 476.0)
(388... [/B]

上面代码我修正了，粗心完了一个表达式(apply 'mapcar b)

下面是分部做的：

aeo · 发表于 2003-9-11 01:00:03

按你的写法:

(setq b(cons (read "max") a)
b(apply 'mapcar b)
)

不是更好?

我得好好想想,挺绕不过弯得.

XDSoft · 发表于 2003-9-11 01:12:00

最初由 aeo 发布
[B]按你的写法:

(setq b(cons (read "max") a)

b(apply 'mapcar b)

)

<br /> (setq b(cons (read "max") a)<br /> b(apply 'mapcar b)<br /> )<br />

不是更好?

我得好好想想,挺绕不过弯得. [/B]

:)

想好了，给大家贴出来吧，总之代码可以非常短就能得到结果的。
用MAPCAR,APPLY等等很多WHILE,RPEAT循环可以不用，效率更高。

aeo · 发表于 2003-9-11 01:32:09

就是上面的:
(apply 'mapcar (cons (read"max")a))

hewb · 发表于 2003-9-11 21:04:52

简直没有想到有这么简捷的语句！我得加紧练功，逻辑、算法等。

XDSoft · 发表于 2003-9-11 23:44:49

最初由 hewb 发布
[B]简直没有想到有这么简捷的语句！我得加紧练功，逻辑、算法等。 [/B]

充分利用LISP的表处理，表头函数没有的就用 (cons (read "xxx") ll)添加进入表头。然后让它求值。

梦断江南 · 发表于 2004-10-5 03:20:46

(apply 'mapcar (cons 'max a)) 就可以
另外也可以用
(apply 'mapcar (vl-list* 'max a))

账号		自动登录	找回密码
密码			立即注册

[讨论]：如何将表中表的相对应的最大值组成新表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [讨论]：如何将表中表的相对应的最大值组成新表

浏览过的版块