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