本文主要是介绍newLISP FOOP 类的方法以及实现，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
定义类的方法
创建类的方法和创建类的构造函数几乎一样，只是方法名称不再是类的名称而已。比如：
;; class methods for rectangles(define (Rectangle:area)(mul (self 3) (self 4)))(define (Rectangle:move dx dy)(inc (self 1) dx) (inc (self 2) dy))用save可以将一个类保存到文本文件中，比如下面有一个类Graph
;; @syntax Class Graph
;; @description FOOP class Graph
(new Class 'Graph);; @syntax (Graph:create nodes edges)
;; @description Create a Graph object from Nodes and Edges.
(define (Graph:create nodes edges)(let ((simple-nodes (map (fn (n) (n 1)) nodes))(simple-edges (map (fn (e) (list (e 1) (e 2))) edges)))(Graph nodesedges;; parents-alist: assocs look like (node (parent-node ...))(map (fn (sn)(list sn(map first(filter (fn (se) (= sn (last se)))simple-edges))))simple-nodes);; children-alist: assocs look like (node (child-node ...))(map (fn (sn)(list sn(map last(filter (fn (se) (= sn (first se)))simple-edges))))simple-nodes))))
(save "graph.txt" 'Graph) 方法生成了graph.txt，内容如下：
(context 'Graph)(define (Graph:Graph )(cons (context) (args)))(define (create MAIN:nodes MAIN:edges)(let ((MAIN:simple-nodes (map (lambda (MAIN:n) (MAIN:n 1)) MAIN:nodes)) (MAIN:simple-edges (map (lambda (MAIN:e) (list (MAIN:e 1) (MAIN:e 2))) MAIN:edges))) (Graph MAIN:nodes MAIN:edges (map (lambda (MAIN:sn) (list MAIN:sn (map first (filter (lambda (MAIN:se) (= MAIN:sn (last MAIN:se))) MAIN:simple-edges)))) MAIN:simple-nodes) (map (lambda (MAIN:sn) (list MAIN:sn (map last (filter (lambda (MAIN:se) (= MAIN:sn (first MAIN:se))) MAIN:simple-edges)))) MAIN:simple-nodes))))
(context MAIN)
在两个(context)语句之间的是默认构造函数和create方法。
这里可以看出，类不会保存任何对象属性，因为那其实只是一个普通的list，开头第一个子元素是类的名字而已。
多态的运用
前一篇已经说过，这里的多态与继承无关，而是使用一个方法的名称，可以调用不同类的同名方法。比如：
(:area myrect) → 200
(:area mycircle) → 314.1592654 方法area用：号前缀， 后面紧跟对象，第一个表达式是myrect，因此调用的是Rectangle:area，第二个调用的是Circle:area方法。
这篇关于newLISP FOOP 类的方法以及实现的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
