Лабораторные работы №№1-5. Функциональное и логическое программирование. Вариант 10

№1
Опpеделите на языке ЛИСП и проверьте работу функции, добавляющей заданный паpаметpом x символ после каждого неотрицательного элемента списка L.
Например, при x=*, L=(-1 6 -3 0) функция должна возвращать список (-1 (6 *) -3 (0 *)).
№2
Опpеделите на языке ЛИСП и проверьте работу функции, вычисляющую количество атомов в списочной стpуктуpе (на всех уровнях).
Например, в списке ((a b) c ((d))) имеется 4 атома.
№3
Опpеделите на языке ЛИСП функционал, вставляющий перед каждым элементом списка, обладающим определенным свойством, символ *. Проверьте работу функционала для предикатов:
-неотрицательное число (при вызове используйте лямбда-функцию);
-четное число.
№4
Напишите на языке ПРОЛОГ программу, которая список целых чисел преобразует в новый "двойной" список таким образом, что каждый элемент исходного списка удваивается. Список вводится с клавиатуры, цель – внутренняя.
Например: Список [1,2,3] преобразуется в [1,1,2,2,3,3].
№5
Вариант задачи выбирается по последней цифре пароля. Программы должны быть написаны на языке Пролог. При преобразовании файла должны быть сохранены переводы строк. К отчету следует приложить тексты файлов с входными и выходными данными. Для просмотра файлов с данными можно открыть вспомогательное окно редактора с помощью клавиши F8 (при этом должно быть активным окно редактора).
Запишите в новый файл все строки исходного файла, содержащие в качестве фрагмента заданную строку.

Все файлы в сборе.
Галкина М.Ю.
Зачет
2018 г