Языки программирования и методы трансляции, LISP, FRL, PROLOG

Задание № 1.

Реализовать функции (@CHAR atom n) и (@FINDCHAR atom char n). Первая возвращает n-ый символ атома atom, а вторая возвращает номер позиции первого вхождения char в atom, при этом n задает номер позиции в atom, начиная с которой необходимо выполнять поиск. Если n опущено, то поиск начинается с начала аtom.

Реализация на LISP

Обзор функций

(DEFUN @CHAR (X N) …)

X символьный атом

N номер символа в атоме

Осуществляет проверку входных данных и в случае отсутствия ошибок передаёт функции @char1 список символов, входящих в атом X и номер N. Также функция отлавливает тривиальные ситуации, когда результат заведомо NIL.

(DEFUN @CHAR1 (X N) …)

X список символов

N номер символа в списке

Осуществляет рекурсивный поиск N-ого элемента в списке. Если N превышает длину списка, возвращает NIL, иначе возвращает N-ый элемент списка.

(DEFUN @FINDCHAR (X Y N) …)

X символьный атом

Y символ

N номер

Осуществляет проверку входных данных и в случае отсутствия ошибок передаёт функции @findchar1 список символов, входящих в атом X, символ Y, номер N (если не был указан, то 1) и 1 (номер текущего элемента).

(DEFUN @FINDCHAR1 (X Y N K) …)

X список символов

Y символ

N номер

K номер текущего элемента в списке

Осуществляет рекурсивный поиск элемента Y в списке X. Возвращает номер позиции найденного элемента в списке (K), только если он не меньше N.