\u9996\u5148\uff0c\u6211\u4eec\u8981\u660e\u786e\u5982\u4f55\u7528LISP\u8868\u793a\u4e8c\u53c9\u6811\u8282\u70b9\u7ed3\u6784\u3002\u4e00\u4e2a\u8282\u70b9\u7531\u672c\u8eab\uff0c\u5de6\u5b50\u6811\uff0c\u53f3\u5b50\u68113\u90e8\u5206\u7ec4\u6210\u3002\u6211\u4eec\u5c31\u53ef\u4ee5\u7528\u5982\u4e0b\u7ed3\u6784\u8868\u793a1\u4e2a\u8282\u70b9\uff1a<\/p>\n
(node (left-subtree) (right-subtree))<\/p>\n
\u6bd4\u5982\uff0c1\u4e2a\u4e8c\u53c9\u6811\u75313\u4e2a\u8282\u70b9\u7ec4\u6210\uff0c\u6839\u4e3a20\uff0c \u5de6\u5b50\u68111\u4e2a\u8282\u70b930\uff0c \u53f3\u5b50\u68111\u4e2a\u8282\u70b940\u3002\u53ef\u4ee5\u8868\u793a\u4e3a\uff1a'(20 (30 () ()) (40 () ()))\u3002<\/p>\n
\u66f4\u590d\u6742\u7684\u60c5\u51b5\uff0c1\u4e2a\u75317\u4e2a\u8282\u70b9\u7ec4\u6210\u7684\u5b8c\u5168\u4e8c\u53c9\u6811\uff0c\u4ece\u4e0a\u5230\u4e0b\u4ece\u5de6\u5230\u53f3\uff0c\u5206\u522b\u662f1,2,3,4,5,6,7\u3002\u5219\u8868\u793a\u6210\u00a0‘(1 (2 (4 () ()) (5 () ())) (3 (6 () ()) (7 () ())))\u3002<\/p>\n
\u5b9a\u4e49\u597d\u4e8c\u53c9\u6811\u7684LISP\u8868\u793a\u65b9\u6cd5\u540e\uff0c\u5c31\u53ef\u4ee5\u5b9a\u4e493\u79cd\u904d\u5386\u7b97\u6cd5\u4e86\u3002<\/p>\n
\u524d\u5e8f\u904d\u5386\uff1a<\/p>\n
\r\n\r\n(defun preorder(tree)\r\n(if (or (null tree)\r\n(not (listp tree))\r\n(null (car tree))\r\n(listp (car tree))\r\n(not (= (length tree) 3))\r\n(not (listp (car (cdr tree))))\r\n(not (listp (car (cdr (cdr tree)))))\r\n)\r\nnil\r\n(cons (car tree) (append (preorder (car (cdr tree))) (preorder (car (cdr (cdr tree))))))))\r\n<\/pre>\n\u4e2d\u5e8f\u904d\u5386\uff1a<\/p>\n
\r\n(defun inorder(tree)\r\n(if (or (null tree)\r\n(not (listp tree))\r\n(null (car tree))\r\n(listp (car tree))\r\n(not (= (length tree) 3))\r\n(not (listp (car (cdr tree))))\r\n(not (listp (car (cdr (cdr tree)))))\r\n)\r\nnil\r\n(append (inorder (car (cdr tree))) (cons (car tree) '()) (inorder (car (cdr (cdr tree)))))))\r\n<\/pre>\n\u540e\u5e8f\u904d\u5386\uff1a<\/p>\n
\r\n(defun postorder(tree)\r\n(if (or (null tree)\r\n(not (listp tree))\r\n(null (car tree))\r\n(listp (car tree))\r\n(not (= (length tree) 3))\r\n(not (listp (car (cdr tree))))\r\n(not (listp (car (cdr (cdr tree)))))\r\n)\r\nnil\r\n(append (postorder (car (cdr tree))) (postorder (car (cdr (cdr tree)))) (cons (car tree) '()))))\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"\u9996\u5148\uff0c\u6211\u4eec\u8981\u660e\u786e\u5982\u4f55\u7528LISP\u8868\u793a\u4e8c\u53c9\u6811\u8282\u70b9\u7ed3\u6784\u3002\u4e00\u4e2a\u8282\u70b9\u7531\u672c\u8eab\uff0c\u5de6\u5b50\u6811\uff0c\u53f3\u5b50\u6811 … \u7ee7\u7eed\u9605\u8bfb