16. Функция 1hlpod

    1. Спецификация

Функция должна извлекать левую часть матрицы чисел

7.1.16.2 Структура входных данных

Структурой входных данных в данной функции является список (списков чисел). Примеры записи на языке LISP приведены на рисунке 7.46

((1 2 3 4)(5 6 7 8)(9 10 11 12)(13 14 15 16))

((1 2 3)(4 5 6)(7 8 9))

Рисунок 7.46

7.1.16.3 Структура выходных данных

Структурой выходных данных в данной функции является список (списков чисел). Примеры записи на языке LISP приведены на рисунке 7.47.

((1 2)(5 6)(9 10)(13 14))

((1 2)(4 5)(7 8))

Рисунок 7.47

4. Функциональные тесты

Функциональные тесты для функции 1hlpod приведены в таблице 7.16.

Таблица 7.16

Проверяемая ситуация	Вызов функции со входным значением	Предполагаемый результат
Пустой список	(1hlpod ‘())	nil
Списки списков с чётным количеством элементов	(1hlpod '((1 2 3 4)(5 6 7 8)(9 10 11 12)(13 14 15 16)))	((1 2)(5 6)(9 10)(13 14)))
Списки списков с нечётным количеством элементов	(lhlpod '((1 2 3)(4 5 6)(7 8 9)))	((1 2)(4 5)(7 8))

4. Словесное описание результата применения функции

Из матрицы чисел формируется новая матрица из тех чисел, которые расположены слева от горизонтальной середины матрицы.

4. Текст программы

Текст программы представлен на рисунке 7.48.

(defun 1hlpod(lst)

(cond

((null lst)nil)

(t (cons (get1half(car lst)) (1hlpod (cdr lst))))))

Рисунок 7.48

16. Функция 2hlpod

7.1.17.1 Спецификация

Функция должна извлекать правую часть матрицы чисел

7.1.17.2 Структура входных данных

Структурой входных данных в данной функции является список (списков чисел). Примеры записи на языке LISP приведены на рисунке 7.49

((1 2 3 4)(5 6 7 8)(9 10 11 12)(13 14 15 16))

((1 2 3)(4 5 6)(7 8 9))

Рисунок 7.49

7.1.17.3 Структура выходных данных

Структурой выходных данных в данной функции является список (списков чисел). Примеры записи на языке LISP приведены на рисунке 7.50.

((3 4)(7 8)(11 12)(15 16))

((3)(6)(9))

Рисунок 7.50

7.1.17.4 Функциональные тесты

Функциональные тесты для функции 2hlpod приведены в таблице 7.17.

Таблица 7.17

Проверяемая ситуация	Вызов функции со входным значением	Предполагаемый результат
Пустой список	(2hlpod ‘())	nil
Списки списков c чётным количеством чисел	(2hlpod '((1 2 3 4)(5 6 7 8)(9 10 11 12)(13 14 15 16)))	((3 4)(7 8)(11 12)(15 16))
Списки списков c нечётным количеством чисел	(2hlpod '((1 2 3)(4 5 6)(7 8 9)))	((3)(6)(9))

5. Словесное описание результата применения функции

Из матрицы чисел формируется новая матрица из тех чисел, которые расположены слева от горизонтальной середины матрицы.

7.1.17.6 Текст программы

Текст программы представлен на рисунке 7.50.

(defun 2hlpod(lst)

(cond

((null lst)nil)

(t(cons (get2half(car lst))(2hlpod (cdr lst))))))

Рисунок 7.50