[求助]：[0518]如何求出串列数值中各串列最大一组数值呢?

xyz518mm

如:
(SETQ GTQQ(LIST 1 1 1))
(SETQ LTQQ '((51 17 32)
            (28 42 68)
            (53 25 19)
            (12 25 89)) )
求出: _$ (53 42 89)

可以用下列程序求出
(MAPCAR '(LAMBDA (X) (SETQ GTQQ(LIST
(MAX (CAR GTQQ)(CAR X))
(MAX(CADR GTQQ)(CADR X))
(MAX(CADDR GTQQ)(CADDR X))
))) LTQQ)


但是如果为下面这样的串列,非固定的串列值,该怎样处理呢?
(SETQ LSPNB '((11 4 8 17 2 20 22 7 5 12)
              (5 10 2 17 1 20 22 7 5 12)
              (9 6 6 17 1 20 22 7 5 12)
              (9 6 6 17 1 20 22 7 5 12)
              (3 12 17 1 4 11 3 22 7 5 12)
              (9 6 6 17 1 6 13 22 7 5 12)
              (7 8 4 17 1 20 22 7 5 12)
              (9 6 6 17 1 4 11 3 22 7 5 12)
              (7 8 4 17 1 4 11 3 22 7 5 12)
              (9 6 6 17 1 4 11 3 22 7 5 12)
              (1 13 1 15 1 16 3 22 7 5 12)
              (7 8 4 17 1 4 11 3 22 7 5 12)
              (13 2 14 1 4 11 3 22 7 5 12)
              (3 12 1 16 4 4 11 3 20 2 6 6 11)
              (7 8 5 16 4 4 11 3 20 2 6 6 11)
              (5 10 3 16 4 20 20 2 6 6 11)
              (15 13 16 4 20 20 2 6 6 11)
              (1 14 4 13 16 4 20 16 3 2 6 6 11)
              (10 16 2 20 20 2 6 6 11)
              (10 16 2 20 20 2 6 6 11)
              (11 14 17 1 1 20 20 2 6 6 11)
              (3 12 1 16 2 4 15 20 2 6 6 11)
              (13 2 10 16 4 20 20 2 6 6 11)
              (24 18 1 10 18 2 20 22 7 5 12)) )

烦请各位帮忙解答一下
谢谢!!!

hb198075

我用vl-sort函数写了一个，虽然麻烦了点，好象还能用，你试试。

(defun lst_sort(lst / n tmp rel l1 l2)
  (setq tmp(VL-SORT lst '(lambda (l1 l2)
                           (> (length l1) (length l2))
                           )
                    )
        );;;按长度排序
  (setq len(length (nth 0 tmp)));;;获取最长数组的长度
  (setq n 0)
  (repeat len
    (setq tmp (vl-sort lst '(lambda (l1 l2)
                              (> (nth n l1) (nth n l2))
                              )
                       )
          ) ;;;_setq
    (setq tmp (nth n (nth 0 tmp)))
    (setq rel (cons tmp rel))
    (setq n(1+ n))
    ) ;;;_repeat   分组排序
  (REVERSE rel) ;;;反序排列
  )

eachy

1. 
   
2. (mapcar        '(lambda (x) (apply 'max x))
   
3.         '((11 4 8 17 2 20 22 7 5 12)
   
4.           (5 10 2 17 1 20 22 7 5 12)
   
5.           (9 6 6 17 1 20 22 7 5 12)
   
6.           (9 6 6 17 1 20 22 7 5 12)
   
7.           (3 12 17 1 4 11 3 22 7 5 12)
   
8.           (9 6 6 17 1 6 13 22 7 5 12)
   
9.           (7 8 4 17 1 20 22 7 5 12)
   
10.           (9 6 6 17 1 4 11 3 22 7 5 12)
    
11.           (7 8 4 17 1 4 11 3 22 7 5 12)
    
12.           (9 6 6 17 1 4 11 3 22 7 5 12)
    
13.           (1 13 1 15 1 16 3 22 7 5 12)
    
14.           (7 8 4 17 1 4 11 3 22 7 5 12)
    
15.           (13 2 14 1 4 11 3 22 7 5 12)
    
16.           (3 12 1 16 4 4 11 3 20 2 6 6 11)
    
17.           (7 8 5 16 4 4 11 3 20 2 6 6 11)
    
18.           (5 10 3 16 4 20 20 2 6 6 11)
    
19.           (15 13 16 4 20 20 2 6 6 11)
    
20.           (1 14 4 13 16 4 20 16 3 2 6 6 11)
    
21.           (10 16 2 20 20 2 6 6 11)
    
22.           (10 16 2 20 20 2 6 6 11)
    
23.           (11 14 17 1 1 20 20 2 6 6 11)
    
24.           (3 12 1 16 2 4 15 20 2 6 6 11)
    
25.           (13 2 10 16 4 20 20 2 6 6 11)
    
26.           (24 18 1 10 18 2 20 22 7 5 12)
    
27.          )
    
28. )

复制代码

xyz518mm

谢谢您 hb198075
您写的方法我还真是没有想过
想不到可以用垂直向的排序
利害

雨箭风刀

[php]
;; 按最长元素.
(defun tt (lst / n a lst2)
  (setq n (apply 'max (mapcar 'length lst)))
  (repeat n
    (setq n    (1- n)
          a    (apply 'max (vl-remove 'nil(mapcar '(lambda (x) (nth n x)) lst)))
          lst2 (cons a lst2)
    )
  )
)
(tt lspnb) -> (24 18 17 20 20 20 22 22 22 12 12 12 11)
[/php]

hb198075

楼上的算法才厉害啊，，我一直想不到还能这样用MAX。。

雨箭风刀

[php](defun tt(lst / i lst2)
  (setq i -1)
  (while (setq i(1+ i)
               a(vl-remove 'nil (mapcar '(lambda(x)(nth i x))lst)))
    (setq lst2(cons (apply 'max a) lst2))
  )lst2
) [/php]
;|
(tt lspnb) ->(11 12 12 12 22 22 22 20 20 20 17 18 24)

xyz518mm

谢谢您 雨箭风刀
想不到还可以这样编写
又学到另一种方法

雨箭风刀

补充：　7　楼　最末　lst2 改为　(reverse lst2)

kohi

还是3楼的最简洁：
  (mapcar '(lambda (x) (apply 'max x)) lst)