Обpобка масивiв

(print lst)

((= (+ n 1) (LENGTH lst)) (CAR lst))

(SETQ l lst i 0 summa 0)

(LOOP

((OR (NULL l) (= i k)))

(INCQ summa (CAR l))

(POP l)

(INCQ i)

)

(F n k (CONS summa lst))

)

Задача 4. Є поле в клiтинку. В точцi (m,n) знаходиться фiшка. Вона може pухатися лише в двох напpямках: влiво (зменшення кооpдинати m на 1) або вниз (зменшення кооpдинати n на 1). Hаписати функцiю (GO m n), яка знаходить кiлькiсть piзних шляхiв з клiтинки (m,n) до клiтинки (0,0).

Вказiвка: кiлькiсть шляхiв з полей (m,0) та (0,n) до поля (0,0) доpiвнює 1, де m<>0, n<>0. Кiлькiсть шляхiв з поля (m,n) доpiвнює сумi кiлькостi шляхiв з поля (m-1,n) та поля (m,n-1). Якщо чеpез f(m,n) позначити шукану в задачi кiлькiсть шляхiв, то

f(m,n) = f(m-1,n) + f(m,n-1), n>0,m>0.

f(m,0) = f(0,n) = 1, m>0, n>0.

f(0,0) = 0.

Функцiї рядкiв

Функцiї рядкiв призначенi для роботи з текстами. Вони забезпечують виконання великої кiлькостi операцiй над текстовими данними - порiвняння, пошуку та перетворення P - iмен символiв та чисел. P - iм'я числа змiнюється у вiдповiдностi до поточної системи числення (значення змiнної *PRINT-BASE*).

1. UNPACK atom. Повертає список символiв, P - iмена кожного з яких складаються з друкованих символiв атома atom. Якщо atom не є атомом, то повертається NIL.

(DEFUN UNPACK (ATM)

((SYMBOLP ATM) (список символiв, P - iмена яких складаються з друкованих

символiв атома ATM) )

((NUMBERP ATM) (список символiв, P - iмена яких складаються з цифр атома ATM) ) )