(问题解决,谢谢各位大师的帮助!)

q3_2006 · 发表于 2014-5-20 08:08:49

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

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

×

本帖最后由 q3_2006 于 2014-5-23 15:38 编辑

'((6 7) (4 "A") (8 "B") (1 2) (3 4) (6 5) (2 3) ("A" 9) ("B" 10) (7 8))
->
(((6 7) (7 8) (8 "B") ("B" 10)) ((1 2) (2 3) (3 4) (4 "A") ("A" 9)) ((6 5)))

院长出的题..没解出来...绕个半死......求助大师们....{:soso_e109:}

表达能力不行........现在问题......21楼两段代码怎么合并成1段.....就酱.....{:soso_e110:}

zxq0220 · 发表于 2014-5-20 08:23:22

(defun c:tt ()
(setq lst '((6 7) (4 "A") (8 "B") (1 2) (3 4) (6 5) (2 3) ("A" 9) ("B" 10) (7 8)))
(setq tmp1 (list) tmp2 (list))
(foreach x lst
(setq a (car x) b (cadr x))
(if (or (= a "B") (= a 'B) (= b "B") (= b 'B) (and (>= a 6) (>= b 6)))
(setq tmp1 (cons x tmp1))
(setq tmp2 (cons x tmp2))
)
)
(list (reverse tmp1) (reverse tmp2))
)

csharp · 发表于 2014-5-20 08:37:15

本帖最后由 csharp 于 2014-5-20 08:57 编辑

(defun ff (lst / nl n)
(setq nl (list (list (car lst)))
lst (cdr lst)
)
(while lst
(while (setq n (assoc (cadr (caar nl)) lst))
(setq nl (cons (cons n (car nl)) (cdr nl)))
(setq lst (vl-remove n lst))
)
(setq nl (cons (list (car lst)) nl))
(setq lst (cdr lst))
)
(mapcar 'reverse nl)
)

q3_2006 · 发表于 2014-5-20 17:35:08

zxq0220 发表于 2014-5-20 08:23

这样不行的...Z版....{:soso_e127:}

q3_2006 · 发表于 2014-5-20 17:43:03

csharp 发表于 2014-5-20 08:37

我就是这里写不清楚....car 等于cadr 的会知道怎么加入子表...cadr 等于car 的怎么加入子表绕不明白....大师这里就将cadr 等于car 的自动分段了...这样不行的....表头不一定是第一项....

(((6 5)) ((1 2) (2 3) (3 4)) ((4 "A") ("A" 9)) ((6 7) (7 8) (8 "B") ("B" 10)))这样不对...应该

(((6 7) (7 8) (8 "B") ("B" 10)) ((1 2) (2 3) (3 4) (4 "A") ("A" 9)) ((6 5)))

(4 "A")不是第一项...要用"A"找("A" 9)...也要同时用4找(3 4) ...这里我不会写{:soso_e110:}要不要再指点下.....谢谢了!

ll_j · 发表于 2014-5-20 18:06:39

(setq lst '((6 7) (4 "A") (8 "B") (1 2) (3 4) (6 5) (2 3) ("A" 9) ("B" 10) (7 8)))
(defun tt(lst)
(setq b (car lst)
a (list b)
d nil
lst(cdr lst)
)
(while lst
(if (setq c (assoc (cadr b) lst))
(setq a (cons c a)
lst (vl-remove c lst)
b c
)
(setq d (cons (reverse a) d)
b (car lst)
a (list b)
lst (cdr lst)
)
)
)
(reverse d)
)

_$ (tt lst)
(((6 7) (7 8) (8 "B") ("B" 10)) ((4 "A") ("A" 9)) ((1 2) (2 3) (3 4)))

q3_2006 · 发表于 2014-5-20 18:09:46

ll_j 发表于 2014-5-20 18:06
_$ (tt lst)
(((6 7) (7 8) (8 "B") ("B" 10)) ((4 "A") ("A" 9)) ((1 2) (2 3) (3 4)))

长老...也不对哟...没这么简单...{:soso_e110:}

st788796 · 发表于 2014-5-20 18:45:03

还有一个就是sort了，怎么排看你自己

q3_2006 · 发表于 2014-5-20 18:49:34

st788796 发表于 2014-5-20 18:45
还有一个就是sort了，怎么排看你自己

不是排序的问题呀...大师也研究下呗...这种写法分段不对呀....{:soso_e127:}

q3_2006 · 发表于 2014-5-20 18:50:19

不想二次处理的说.....{:soso_e110:}

st788796 · 发表于 2014-5-20 19:33:30

q3_2006 发表于 2014-5-20 18:50
不想二次处理的说.....

有什么内涵？猜规律没法写

st788796 · 发表于 2014-5-20 19:34:26

q3_2006 发表于 2014-5-20 18:50
不想二次处理的说.....

有什么内涵？猜规律没法写

q3_2006 · 发表于 2014-5-20 19:37:53

st788796 发表于 2014-5-20 19:34
有什么内涵？猜规律没法写

规律很好理解呀...就是首尾相接呀....问题是写起来好难的...

zxq0220 · 发表于 2014-5-20 20:44:21

本帖最后由 zxq0220 于 2014-5-20 20:46 编辑

(defun c:tt ()
(setq lst '((6 7) (4 "A") (8 "B") (1 2) (3 4) (6 5) (2 3) ("A" 9) ("B" 10) (7 8)))
(setq tmp2 (list))
(while (> (length lst) 0)
(setq p1 (car lst) tmp1 (list p1) lst (cdr lst))
(while (setq p2 (assoc (cadr p1) lst))
(setq tmp1 (cons p2 tmp1) p1 p2)
(setq lst (vl-remove p2 lst))
)
(setq tmp2 (cons (reverse tmp1) tmp2))
(setq lst (vl-sort lst
'(lambda (a b) (< (if (= (type (car a)) 'STR) (ascii(car a)) (car a))
(if (= (car b) 'STR) (ascii(car b)) (car b))))))
)
(reverse tmp2)
)

wowan1314 · 发表于 2014-5-20 20:50:56

看了下发现我的也错了！ {:soso_e120:}

跟大家结果一样。

;(setq lst1 '((6 7)(4 "A")(8 "B")(1 2)(3 4)(6 5)(2 3)("A" 9)("B" 10)(7 8)))
;(t22 lst1)
(defun t22 (lst / l3)
(defun t11 (lst / a b l1 l2 )
(setq a (car lst) b (cadr a) lst (vl-remove a lst) l2 (cons a l2))
(while
(setq l1 (vl-member-if '(lambda(x)(= b (car x))) lst))
(setq a (car l1) b (cadr a) lst (vl-remove a lst) l2 (cons a l2))
)
(setq l3 (cons l2 l3))
(if lst (t11 lst))
)
(t11 lst)
(setq l3 (mapcar 'reverse l3))
;(list (last l3) (append(cadr l3)(caddr l3)) (car l3))
)

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

[求助] (问题解决,谢谢各位大师的帮助!)

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

点评

点评

点评

点评

点评

点评

点评