Map-функция - Lisp

Узнай цену своей работы

Формулировка задачи:

Задача: Реализовать функцию (@CASE-OF <селектор> <вариант1> ... <вариантN> ) - аналог оператора CASE языка Си. Каждый вариант имеет вид <случай> <форма>, где <случай> ::= <S -выражение>. Сначала вы- числяется значение селектора. Затем среди вариантов ищется первый, у которого случай совпал (EQL) со значением селектора. Результатом функции будет значение соответствующей формы. Проблема в записи решения, используя map-функции.

Решение задачи: «Map-функция»

textual
Листинг программы
(s (b b) (a a))

Оцени полезность:

7   голосов , оценка 4.143 из 5