如何给表脱括号？

Lisphk

比如有这样的表 ：

  ((("abc")) ((("faf "fasf))(("fasf" "fdf))) (("faf")))

如何变成：

  (("abc") (("faf "fasf)("fasf" "fdf)) ("faf"))

我知道穿衣服用LIST了，那么脱衣服用什么呢？

牢固

1. (defun f (l)  (mapcar
   
2.     (function
   
3.       (lambda (x)
   
4.        (if (and (listp x) (cdr x))
   
5.          (f x)
   
6.          (if (listp x)
   
7.         (car x)
   
8.            x
   
9.            )
   
10.          )
    
11.       )
    
12.     )
    
13.     l
    
14.   )
    
15. )
    

(defun f (l)  (mapcar<br />     (function<br />       (lambda (x)<br />        (if (and (listp x) (cdr x))<br />          (f x)<br />          (if (listp x)<br />         (car x)<br />            x<br />            )<br />          )<br />       )<br />     )<br />     l<br />   )<br /> )<br />

(setq l '(("a" "al")(("abc")) ((("faf" "fasf"))(("fasf" "fdf"))) (("faf"))))
(f l)
==>
(("a" "al") (("abc")) ((("faf" "fasf")) (("fasf" "fdf"))) (("faf")))

ayl1004

一般用 (apply 'append Lst)
不喜欢用 append 的用 cons car cdr

Lispboy

1. (defun tb (lst)
   
2.   (mapcar
   
3.     '(lambda (x)
   
4.        (if (and
   
5.              (= 'LIST (type x))
   
6.              (/= 1 (length x))
   
7.            )
   
8.          (tb x)
   
9.          (car x)
   
10.        )
    
11.      )
    
12.     lst
    
13.   )
    
14. )
    

(defun tb (lst)<br />   (mapcar<br />     '(lambda (x)<br />        (if (and<br />              (= 'LIST (type x))<br />              (/= 1 (length x))<br />            )<br />          (tb x)<br />          (car x)<br />        )<br />      )<br />     lst<br />   )<br /> )<br />

命令: (tb a)
(("abc") (("faf" "fasf") ("fasf" "fdf")) ("faf"))

newer

ayl1004 发表于 2013-7-2 16:13
一般用 (apply 'append Lst)
不喜欢用 append 的用 cons car cdr

又是一个好主题，又可以讨论多种实现了。

命令: (mapcar '(lambda(x)(apply 'append x)) a)
(("abc") (("faf" "fasf") ("fasf" "fdf")) ("faf"))

XDSoft

ayl1004 发表于 2013-7-2 16:13
一般用 (apply 'append Lst)
不喜欢用 append 的用 cons car cdr

给大家写一个不用append的吧。

newer

命令: (apply 'append a)
(("abc") (("faf" "fasf")) (("fasf" "fdf")) ("faf"))

直接APPEND是这样的。不符合要求。

ayl1004

2. (defun func (lst)
   
3.   (cond
   
4.     ((not lst) nil)
   
5.     ((not (car lst)) (func (cdr lst)))
   
6.     (t (cons (caar lst) (func (cons (cdar lst) (cdr lst)))))
   
7.   )
   
8. )

(defun func (lst)<br />   (cond<br />     ((not lst) nil)<br />     ((not (car lst)) (func (cdr lst)))<br />     (t (cons (caar lst) (func (cons (cdar lst) (cdr lst)))))<br />   )<br /> )

newer

ayl1004 发表于 2013-7-2 16:42

你这个还是用递归了，有不用递归的，也不用APPNED的方法吗？

ayl1004

newer 发表于 2013-7-2 16:51
你这个还是用递归了，有不用递归的，也不用APPNED的方法吗？

递归也不能用，只能用repeat和foreach，是不是速度反而更慢了

炫翔

循环好过递归，不过直接的APPEND比循环还慢？

Lispboy

炫翔 发表于 2013-7-2 18:28
循环好过递归，不过直接的APPEND比循环还慢？

有测试数据吗，翔斑竹。

Lispboy

ayl1004 发表于 2013-7-2 17:32
递归也不能用，只能用repeat和foreach，是不是速度反而更慢了

小数据用递归行，论坛测试过，好像到千的数据，递归就死翘翘了。