19. На Лиспе реализовать функцию нахождения последнего элемента непустого списка.

Определение: ПОСЛЕДНИЙ ЭЛЕМЕНТ СПИСКА – это

• если список состоит из одного элемента — первый и единственный элемент списка;

• в противном случае — последний элемент хвоста списка.

(DEFUN MY_LAST (L)

(COND

((NULL (CDR L)) (CAR L))

(Т (MY_LAST (CDR L)))

)

)

20. На Лиспе реализовать функцию нахождения n-го числа Фибоначчи

Определение: число Фибоначчи F(n) вычисляем следующим образом

• Если n = 0 или n = 1, результат = 1;

• Иначе результат F(n) = F(n-1) + F(n-2)

(defun FIB(n)

(cond

((= n 0) 1)

((= N 1) 1)

(T (+ (FIB (- n 1)) (FIB (- N 2))))

)

)

1