Функциональное программирование




Массивы. Макросы. Пример программы на лиспе - часть 5


Чтение дифф. списка

(defun read-list () (princ " diff-list ? ") (setq l (read)))

Пусть продолжает вычисления до тех пор пока не будет введено не d.

(defun d () (princ "enter command : d -diff;q - quit") (terpri) (if (eq (read) 'd) (progn (read-list) (print (dif1 l 'x )) (terpri) (d)) 'end))

Вызов программы теперь (d)


9.5.3 Загрузка программы.

Можно сразу загружать программу и начать ее выполнение, для этого используют функцию

load

(load )

Записываются обычным образом,но \\ надо использовать двойные.

(load "diff1")

и сразу начинается выполнение.




Содержание  Назад