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

         

DEFUN НОД


(эквивалентная Лисп-программа)
( DEFUN НОД (LAMBDA (x y)
(COND ((< x y) (НОД y x))
((= (остаток y x ) 0 ) x )
(T (НОД (остаток y x) x ))
))
)

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