Введение в программирование на Лиспе

         

алг АБС( цел x) арг


(Запись на алгоритмической нотации)
алг АБС( цел x) арг x нач если (x < 0) то знач := - x иначе знач := x кон
(эквивалентная Лисп-программа)
(DEFUN Абс(LAMBDA (x) (COND ((< x 0 )(- x)) (T x))))
Пример 4.12. Абсолютное значение числа.
Закрыть окно



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