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

         

Алгоритм Евклида для нахождения наибольшего


(эквивалентная Лисп-программа)
(DEFUN НОД (LAMBDA (x y) (COND ((< x y) (НОД y x)) ((= (остаток y x ) 0 ) x ) (T (НОД (остаток y x) x )) )) )
Пример 4.14. Алгоритм Евклида для нахождения наибольшего общего делителя двух положительных целых чисел при условии, что определена функция "Остаток".
Закрыть окно



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