Lisp中结构体的应用

Lisp结构体结构体的定义结构体的赋值打印结构体数据

Lisp结构体

结构体的定义

(defstruct node (pos nil :type list) (father nil :type list) (gvalue 0 :type float) (fvalue 0 :type float) )

创建一个对象

(setf node1 (make-node))

结构体的赋值

(setf node1 '#s(node pos '(2 3))) (setf node1 '#s(node father '(4 5))) (setf node1 '#s(node gvalue 3.2)) (setf node1 '#s(node fvalue 2.1))

打印结构体数据

(node-pos node1) (node-father node1) (node-gvalue node1) (node-fvalue node1)

参考https://blog.csdn.net/zssrxt/article/details/80468776