Common Lisp

Тема лабораторной работы: Обобщённые функции, методы и классы объектов

Цель работы: научиться определять простейшие классы, порождать экземпляры классов, считывать и изменять значения слотов, научиться определять обобщённые функции и методы.

Задание: Пусть класс "окружность" определён следующим образом:

(defclass circle ()

((center :initarg :center :reader center) ; центр - экземпляр cart

(radius :initarg :radius :reader radius))) ; радиус - число

Даны:

• окружность, с центром, заданным декартовыми координатами (экземпляром cart),
• точка, заданная декартовыми координатами (экземпляром cart) .

Задание: Написать обобщённую функцию-predicate и необходимые методы. Предикат должен возвращать T, если точка лежит на окружности.

(defgeneric point-on-border (point shape) ...)