Лабораторная работа №1

Вариант задачи выбирается по последней цифре пароля. Программа должна быть написана на языке ЛИСП.

Текст функции можно набирать в любом текстовом редакторе (например, в Блокноте). Файл следует сохранить с расширением lsp, лучше в той же папке, где находится ЛИСП. Запуск интерпретатора ЛИСПа и загрузки текста написанной функции можно осуществить 3 способами:

Наложите с помощью мышки файл с текстом функции на файл mulisp.com.
Запустите файл mulisp.com и после появления приглашения в виде $ введите в командную строку:
load 'имя файла

Скопируйте в буфер обмена текст функции, запустите файл mulisp.com и после появления приглашения в виде $, зайдите в системное меню (черный квадратик в левом верхнем углу окна работы) и выполните команду Изменить-Вставить. После вставки текста нажмите клавишу Enter.
При отсутствии ошибок появится приглашение $, после которого можно обращаться к функции и проверять ее работу. Выход из ЛИСПа осуществляется с помощью команды (system).

Обращение к функции можно также включить в файл после описания функции, но для того, чтобы результаты появились на экране, следует использовать функцию PRINT с аргументом – обращением к функции. Например, для функции ATOM_IN_LIST из примера2 п 1.10.1 можно записать в файл определение и вызов функции:

(defun ATOM_IN_LIST (l)

  (COND

      ((NULL l) nil)
       ((ATOM (CAR l)) t)
       (t (ATOM_IN_LIST (CDR l))) 
  )
       )
(PRINT (ATOM_IN_LIST '(() 1 (1 2) )))

После запуска ЛИСПа и загрузки файла, на экран будут выведен результат работы функции: t.

В теле функции использование операторов set и setq не допускается!

Вариант 1

Опpеделите на языке ЛИСП и проверьте работу функции, преобразующей список L в "двойной" список таким образом, чтобы каждый элемент удвоился.

Например, при L=(1 2 3) функция должна возвращать список (1 1 2 2 3 3).



Лабораторная работа №2

Вариант задачи выбирается по последней цифре пароля. Текст функции сохраняйте в файле. Функция может вызывать вспомогательные функции. В теле функций использование операторов set и setq не допускается!

Вариант 1

Опpеделите на языке ЛИСП и проверьте работу функции, вычисляющей глубину списка (максимальное количество вложенных скобок).

Например, глубина списка ((((1))) 2 (3 4)) равна 4.



Лабораторная работа №3

Вариант задачи выбирается по последней цифре пароля. Текст функции сохраняйте в файле. В теле функции использование операторов set и setq не допускается!

Вариант 1,6

Опpеделите на языке ЛИСП функционал, заменяющий все элементы списка, не обладающие определенным свойством, на символ *. Проверьте работу функционала для предикатов:

-число;

-неположительное число (при вызове используйте лямбда-функцию).



Лабораторная работа №4

Вариант 1

Напишите на языке ПРОЛОГ программу, которая преобразует список целых чисел во множество. Список вводится с клавиатуры, цель – внутренняя.

Например: Список [1,2,1,4,1,2,3] преобразуется в [1,2,4,3].




Лабораторная работа №5

Вариант задачи выбирается по последней цифре пароля. Программы должны быть написаны на языке Пролог. При преобразовании файла должны быть сохранены переводы строк. К отчету следует приложить тексты файлов с входными и выходными данными. Для просмотра файлов с данными можно открыть вспомогательное окно редактора с помощью клавиши F8 (при этом должно быть активным окно редактора).

Вариант 1

В текстовом файле, состоящем из нескольких строк, во всех словах, оканчивающихся на "ing", замените это окончание на "ed".



Контрольная работа

Программы должны быть написаны на языке двух языках: Лисп и Пролог. В программе на Прологе исходные данные должны вводиться с клавиатуры, цель - внутренняя.

Вариант 1

Вставьте в список новые элементы X перед всеми вхождениями Y.

Например: На Лиспе при x=5, y=1 и списке (1 2 1 5 8 1 0) результатом будет список
(5 1 2 5 1 5 8 5 1 0).