关于关联表修改

XDSoft · 发表于 2013-11-25 00:34:20

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

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

×

关联表数据约定关键字唯一

'(("A1" ..........("A2" .....("An" 124 456)))("B1" ..........("B2" .....("Bn" ....)))...("N1" ..........("N2" .....("Nn" ..))))

现在想修改红色的部分，修改完后返回整个表

大家讨论下，代码怎么写比较好。

st788796 · 发表于 2013-11-25 05:45:43

本帖最后由 st788796 于 2013-11-25 05:46 编辑

暂时想到的，递归找出每项的所有key，确定要找的数据位于哪个项，同时也知道了位于第几层，很久以前讨论过一个subst-n
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=274407&page=2&mobile=2#pid1393569

/db_自贡黄明儒_ · 发表于 2013-11-25 08:41:29

我也想到了递归，其它没有思路

ll_j · 发表于 2013-11-25 09:20:58

吹点冷风。
个人感觉这个帖子有点“走火入魔了”。
关联表的作用就是“便于检索”，这就是所谓的“堆”，如果关联表再多次嵌套，变成了“栈”就完全失去“便于检索”这个作用，虽然理论上也是可能的，但无论从什么角度都是得不偿失的。
在ACAD中，嵌套的关联表，我知道的只有扩展数据组码，而且只有两层，并且其中1000以上的组码还都是多个共生的，之所以设置－3组码只是便于管理，即便这么简单的嵌套检索，操作也都是相当麻烦的。
如果我们自己构建关联表，我们会构建这种“无限”嵌套的关联表么？我想不会，一个带多维角标的检索项完全可以解决任何问题。
再说回来，前面说了，多重嵌套的关联表具有“栈”的性质，所谓栈，就是单进单出、先进后出，那么，解决的办法无法就是不断“剥皮”。
就像一个恶作剧的小盒子，你想换掉里面的东西，只有把包装纸一层一层地剥开，不过记住，换掉东西后还要原样一层一层地包上。
当然，如果你觉得值得。

st788796 · 发表于 2013-11-25 09:31:06

在 AutoLisp 里我是不会这样组织数据的!

XDSoft · 发表于 2013-11-25 09:40:08

ll_j 2013-11-25 09:20
硣
ое
ν ...

nкΣЩд档
LISPó

ayl1004 · 发表于 2013-11-25 09:51:36

这种数据结构没有什么值不值得的说法，LISP表达式就是这种结构，既然用了LISP，那学习怎么操作这种结构还是有必要的。

ll_j · 发表于 2013-11-25 09:57:34

XDSoft 发表于 2013-11-25 09:40
nкΣЩд档
LISPó

老大被气糊涂了么？
{:soso__10489269148409181224_2:}

xshrimp · 发表于 2013-11-25 10:07:35

有点..ww{:soso__14347937040236606360_1:}

XDSoft · 发表于 2013-11-25 10:25:41

ll_j 发表于 2013-11-25 09:57
老大被气糊涂了么？

刚才用手机发的，白瞎了大堆文字。不多说了，两个字，值得。大家继续吧。

st788796 · 发表于 2013-11-25 11:21:21

本帖最后由 st788796 于 2013-11-25 22:50 编辑

重写学习学习
http://acl.readthedocs.org/en/latest/zhCN/ch3-cn.html

先暂存到这

(defun our-copy-list (lst)
(if (atom lst)
lst
(cons (car lst) (our-copy-list (cdr lst)))
)
)
(defun compress (x)
(if (listp x)
(compr (car x) 1 (cdr x))
x
)
)
(defun compr (elt n lst)
(if (null lst)
(list (n-elts elt n))
(progn
(setq next (car lst))
(if (equal next elt)
(compr elt (+ n 1) (cdr lst))
(cons (n-elts elt n)
(compr next 1 (cdr lst))
)
)
)
)
)
(defun n-elts (elt n)
(if (> n 1)
(list n elt)
elt
)
)
(defun uncompress (lst)
(apply 'append
(mapcar '(lambda (x)
(if (atom x)
(list x)
(apply 'list-of x)
)
)
lst
)
)
)
(defun list-of (n elt)
(if (zerop n)
nil
(cons elt (list-of (- n 1) elt))
)
)
(defun our-copy-tree (tr)
(if (atom tr)
tr
(cons (our-copy-tree (car tr))
(our-copy-tree (cdr tr))
)
)
)
(defun our-subst (new old tree)
(if (equal tree old)
new
(if (atom tree)
tree
(cons (our-subst new old (car tree))
(our-subst new old (cdr tree))
)
)
)
)
(defun len (lst)
(if (null lst)
0
(+ (len (cdr lst)) 1)
)
)
(defun shortest-path (start end net)
(bfs end (list (list start)) net)
)
(defun bfs (end queue net)
(if (null queue)
nil
(progn
(setq path (car queue)
node (car path)
)
(if (equal node end)
(reverse path)
(bfs end
(append (cdr queue)
(new-paths path node net)
)
net
)
)
)
)
)
(defun new-paths (path node net)
(mapcar '(lambda (n)
(cons n path)
)
(cdr (assoc node net))
)
)

(defun our-copy-list (lst) 
  (if (atom lst) 
    lst 
    (cons (car lst) (our-copy-list (cdr lst))) 
  ) 
) 
(defun compress        (x) 
  (if (listp x) 
    (compr (car x) 1 (cdr x)) 
    x 
  ) 
) 
(defun compr (elt n lst) 
  (if (null lst) 
    (list (n-elts elt n)) 
    (progn 
      (setq next (car lst)) 
      (if (equal next elt) 
        (compr elt (+ n 1) (cdr lst)) 
        (cons (n-elts elt n) 
              (compr next 1 (cdr lst)) 
        ) 
      ) 
    ) 
  ) 
) 
(defun n-elts (elt n) 
  (if (> n 1) 
    (list n elt) 
    elt 
  ) 
) 
(defun uncompress (lst) 
  (apply 'append 
         (mapcar '(lambda (x) 
                    (if        (atom x) 
                      (list x) 
                      (apply 'list-of x) 
                    ) 
                  ) 
                 lst 
         ) 
  ) 
) 
(defun list-of (n elt) 
  (if (zerop n) 
    nil 
    (cons elt (list-of (- n 1) elt)) 
  ) 
) 
(defun our-copy-tree (tr) 
  (if (atom tr) 
    tr 
    (cons (our-copy-tree (car tr)) 
          (our-copy-tree (cdr tr)) 
    ) 
  ) 
) 
(defun our-subst (new old tree) 
  (if (equal tree old) 
    new 
    (if        (atom tree) 
      tree 
      (cons (our-subst new old (car tree)) 
            (our-subst new old (cdr tree)) 
      ) 
    ) 
  ) 
) 
(defun len (lst) 
  (if (null lst) 
    0 
    (+ (len (cdr lst)) 1) 
  ) 
) 
(defun shortest-path (start end net) 
  (bfs end (list (list start)) net) 
) 
(defun bfs (end queue net) 
  (if (null queue) 
    nil 
    (progn 
      (setq path (car queue) 
            node (car path) 
      ) 
      (if (equal node end) 
        (reverse path) 
        (bfs end 
             (append (cdr queue) 
                     (new-paths path node net) 
             ) 
             net 
        ) 
      ) 
    ) 
  ) 
) 
(defun new-paths (path node net) 
  (mapcar '(lambda (n) 
             (cons n path) 
           ) 
          (cdr (assoc node net)) 
  ) 
)

ayl1004 · 发表于 2013-11-25 11:40:25

用递归弄了个

;;;(func '("f" 7 8 9) '(("a" 1 ("b" 2 3 ("c" 4 5))) ("d" 1 ("e" 2 3 ("f" 4 5))) ("g" 1 ("h" 2 3 ("i" 4 5)))))
;;; (("a" 1 ("b" 2 3 ("c" 4 5))) ("d" 1 ("e" 2 3 ("f" 7 8 9))) ("g" 1 ("h" 2 3 ("i" 4 5))))
(defun func (nLst mLst / var0)
(defun func0 (nLst var0 mLst / var1)
(cond
((not (setq var1 (car mLst))) nil)
((= var1 var0) nLst)
((listp var1) (cons (func0 nLst var0 var1) (func0 nLst var0 (cdr mLst))))
(t (cons var1 (func0 nLst var0 (cdr mLst))))
)
)
(func0 nLst (car nLst) mLst)
)

ayl1004 · 发表于 2013-11-25 12:38:15

st788796 发表于 2013-11-25 09:31
在 AutoLisp 里我是不会这样组织数据的!

奇怪了，难道你写的LISP不是这种数据形式吗？我不是嘲笑你，我只是反驳你，我喜欢那些敢发言的人，而鄙视那些从不发言、发贴，还虚伪的要求别人辕马共享的人。我写的这个递归法效率并不高，也想到了更好的方法，但没人发贴，实在有点心寒。

ayl1004 · 发表于 2013-11-25 12:46:06

本帖最后由 ayl1004 于 2013-11-25 13:00 编辑

中午喝了点白酒，我借酒劲胡说几句：1 感觉晓东的豆币没有明经币有价值。2 晓东论坛现在动不动就引用xdApi，实在有点尴尬。3 我很佩服固版，但他的不准在LISP版块发.fas的编译码我强烈反对，其他编程语言发的都是编译码，而LISP能用辕马就是个进步，但却禁止发编译码，实在有点说不过去。
我在晓东和明经发的基本上都是辕马，只有那个Excel表格转CAD表格是vlx。

newer · 发表于 2013-11-25 12:49:34

ayl1004 发表于 2013-11-25 12:38
奇怪了，难道你写的LISP不是这种数据形式吗？我不是嘲笑你，我只是反驳你，我喜欢那些敢发言的人，而鄙视 ...

LISP的表结构适合人工智能，关联表是个很重要的组织形式，这种修改是处理很多事情时候必须的，如果仅仅是用些零散的变量去处理数据，反而没体现出LISP的优势，在很多应用也会受限。

算法先不管高效否，先能实现是第一步。

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

[研讨] 关于关联表修改

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

点评

点评

点评

评分

点评