Common Lisp

Common Lisp

Laboratory work 1: 

Запрограммируйте на языке Коммон Лисп функцию одного аргумента - натурального числа n, n ≤ 100. Функция должна "озвучить" возраст человека в годах и вернуть строку "год", "года" или "лет".

Примеры

(age 21) => "год"

(age 23) => "года"

(age 24) => "лет"

Laboratory work 2:

Определите рекурсивно функцию, которая принимает единственный аргумент - список с возможными подсписками. Функция должна возвращать самый первый атом, т.е. самый левый нижний при рассмотрении такой списковой структуры в качестве дерева.

Примеры

(first-atom '(((a) 2 b) 4) => A

(first-atom ()) => NIL

Laboratory work 3:

Запрограммировать на языке Коммон Лисп функцию, принимающую три аргумента:

  A - двумерный массив, представляющий действительную матрицу,

  i, j - номера строк, 1≤i≤m, 1≤j≤m, где m - число строк в исходной матрице A.

Функция должна возвращать новую матрицу - копию исходной, но в которой поменяны местами строки с номерами i и j.

Исходный массив A должен оставаться неизменным.

(defun swap-rows (A i j)

 ...)

PS: пользуюсь компилятором clisp