Создание объекта с методами используя свойства символов

@Vlad__i__mir · Регистрация: 04.01.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте!

Подскажите пожалуйста, как используя свойства символов можно создать объект с методами?
Есть задача:
Используя свойства символов, опишите объект-прямоугольник со свойствами ширина, высота и методами площадь и периметр.

Как описать свойства понятно:

Lisp

1 2	(putprop 'renctangl 'width 10) (putprop 'renctangl 'height 5)

Но как описать методы у renctangl?
Мы можем как-то вместо конкретного значение поместить в свойство метод? Если да, то покажите пожалуйста как.

@Catstail · 17.12.2018, 09:04

Сообщение от Vlad__i__mir

Мы можем как-то вместо конкретного значение поместить в свойство метод?

- для этого существуют лямбда-выражения...

Добавлено через 15 минут

Lisp

;; Создание объекта
 
(defun make-rect (r w h)
  (putprop r 'width w)
  (putprop r 'height h)
  (putprop r 'area (lambda (obj) (* (getprop obj 'width) (getprop obj 'height))))) 
 
==> MAKE-RECT
 
(make-rect 'r1 20 10) ;; r1 - прямоугольник
==> R1
 
(make-rect 'r2 10 10) ;; r2 - прямоугольник
==> R2
 
(funcall (getprop 'r1 'area) 'r1)  ;; вызов метода
==> 200
 
(funcall (getprop 'r2 'area) 'r2) ;; вызов метода
==> 100

@Vlad__i__mir · 17.12.2018, 16:29 **[ТС]**

Сообщение от Catstail

- для этого существуют лямбда-выражения...

Спасибо!
Ругается на функцию getprop, видать опять версия лиспа какая-то не такая:

Lisp

> (make-rect 'r1 20 10)             
PERIM                               
> (funcall (getprop 'r1 'area) 'r1) 
error: unbound function - GETPROP

Существует ли её аналог?

@Catstail · 17.12.2018, 16:46

Lisp

(defun make-rect (r w h)
  (setf (get r 'width) w)
  (setf (get r 'height) h)
  (setf (get r 'area) (lambda (obj) (* (get obj 'width) (get obj 'height))))) 
 
(make-rect 'r1 20 30)
 
(print (funcall (get 'r1 'area) 'r1))
 
==> 600

https://ideone.com/0oVHsu

	17.12.2018, 16:46

Создание объекта с методами используя свойства символов

Решение