表里面对应位置的元素组建个新表，怎么写更高效？

XDSoft

(("1-1" "1-2" "1-3")("2-1" "2-2" "2-3")....("3-1" "3-2" "3-3"))

----->
(("1-1" "2-1" "3-1")("1-2" "2-2" "3-2")...("1-3" "2-3" "3-3"))

表长不固定，所以别用(list (mapcar 'car ..) (mapcar 'cadr ..)(mapcar 'caddr ..))

st788796

子表长度相同吗?

Lispboy

命令: (setq a '(("1-1" "1-2" "1-3")("2-1" "2-2" "2-3")("3-1" "3-2" "3-3")))
(("1-1" "1-2" "1-3") ("2-1" "2-2" "2-3") ("3-1" "3-2" "3-3"))

命令: (apply 'mapcar (cons 'list a))
(("1-1" "2-1" "3-1") ("1-2" "2-2" "3-2") ("1-3" "2-3" "3-3"))

ll_j

我现在是很不讨喜的一个人，不过还是要说一点的。
这个问题以前论坛里出现过，但有些歧义的东西到最终也没有讨论清楚，比如一个表分别有4、3、4个子项，那么，新表的第四项应该是“(a14 nil a34)”，还是“(a14 a34)”呢？
使用Lispboy的方法应该是正常的方法，但在子表长度不同时只能取小值，所以和本题有些出入（其实够用了），不好说是正解。

牢固

Lispboy 发表于 2013-11-15 19:12
命令: (setq a '(("1-1" "1-2" "1-3")("2-1" "2-2" "2-3")("3-1" "3-2" "3-3")))
(("1-1" "1-2" "1-3") (" ...

更进一步，若子表不等长，看谁能给出最简洁代码？
(setq a '(("1-1" "1-2" "1-3")("2-1" "2-2" )("3-1" )))
=>
(("1-1" "2-1" "3-1") (" 1-2" "2-2")("1-3"))

Lispboy

ll_j 发表于 2013-11-15 21:30
我现在是很不讨喜的一个人，不过还是要说一点的。
这个问题以前论坛里出现过，但有些歧义的东西到最终也没 ...

求出子表最大长度，然后把每个子表都填补下

Lispboy

牢固 发表于 2013-11-15 21:42
更进一步，若子表不等长，看谁能给出最简洁代码？
(setq a '(("1-1" "1-2" "1-3")("2-1" "2-2" )("3-1"  ...

我写的那个，要求在处理数据的时候就让表长度都一样，CELL空的用空格或者NIL填补。

你说的这个，如果表不等长，那么先求出最长的子表长度，然后把每个子表都填补下。

牢固

Lispboy 发表于 2013-11-15 22:06
我写的那个，要求在处理数据的时候就让表长度都一样，CELL空的用空格或者NIL填补。

你说的这个，如果 ...

实现结果自然很容易，要的是看谁给出的代码最简洁，大家权当练练手吧！
我先给个递归法的！
(defun f(l)
   (if l
     (cons (mapcar 'car l) (f (vl-remove nil (mapcar 'cdr l))))
      )
    )

st788796

不一定最简捷

1. (defun f (lst / nl)
   
2.   (setq lst (vl-sort lst '(lambda (l1 l2) (> (length l1) (length l2)))))
   
3.   (while lst
   
4.     (setq nl  (cons (apply 'mapcar (cons 'list lst)) nl)
   
5.           lst (cdr lst)
   
6.     )
   
7.   )
   
8.   (reverse nl)
   
9. )

(defun f (lst / nl)<br />   (setq lst (vl-sort lst '(lambda (l1 l2) (> (length l1) (length l2)))))<br />   (while lst<br />     (setq nl  (cons (apply 'mapcar (cons 'list lst)) nl)<br />           lst (cdr lst)<br />     )<br />   )<br />   (reverse nl)<br /> )

牢固

st788796 发表于 2013-11-15 22:32
不一定最简捷

函数结果不对吧！

Lispboy

牢固 发表于 2013-11-15 22:45
函数结果不对吧！

G版，去试试，迭代的。

http://bbs.xdcad.net/thread-671642-1-1.html

eachy

(defun ff (lst /  nl l )
  (if  ( apply '=  (mapcar 'length lst))
    (setq nl (apply 'mapcar (cons 'list lst)))
    (progn
        (setq lst (vl-sort lst '(lambda (l1 l2) (< (length l1) (length l2)))))
        (while lst
           (setq nl (apply 'mapcar(cons 'list lst) )
                     l    (length (car lst))
                     lst (vl-member-if '(lambda (x) (> (length x) l)))
                                                     (cdr lst)
                           )
              )
         )
         (setq nl (reverse (mapcar 'reverse nl)))
     )
   )
   nl
)
未测试

守仁格竹GM

ll_j 发表于 2013-11-15 21:30
我现在是很不讨喜的一个人，不过还是要说一点的。
这个问题以前论坛里出现过，但有些歧义的东西到最终也没 ...

虽然说得有点偏题，但是你考虑问题 挺严谨，这个问题说得好，可以把这个先解决了 在弄个新的题目 建个帖子

守仁格竹GM

104976 个数据
测试结果
牢固的递归法  .031  秒 结果正确
下面两个结果均有问题
这个数据处理不需要过多考虑效率问题

守仁格竹GM

补充一下 前面数据 只是列表数量多，每个列表数量还是限于3个测试，每组在增加数量没有测试