Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Исходный текст программы

Министерство образования и науки Российской Федерации

ФГБОУ ВПО «Московский государственный открытый университет имени В.С. Черномырдина»

Чебоксарский политехнический институт (филиал)

Кафедра информационных технологий и программирования

ЛАБОРАТОРНАЯ РАБОТА 6

по дисциплине «Функциональное и логическое программирование»

вариант 4

 

Выполнил:

студент 4 курса

специальности 230105

очного отделения

Григорьев Сергей Радиславович

учебный шифр 610155

 

Проверил:

Малов А.А.

 

Чебоксары 2012

 

Практическое задание 1

Определить рекурсивную функцию, возвращающую количество элементов в списке без какого-либо указываемого элемента.

 

Исходный текст программы

 

(defun foo (A L)

(labels ((ret (A L N)

(cond

((null L) N)

((listp (car L)) (+ (ret A (car L) 0) (ret A (cdr L) N)))

(T

(if (not (eql (car L) A)) (ret A (cdr L) (1+ N)) (ret A (cdr L) N))))))

(ret A L 0)))

 

Результаты

 

Практическое задание 2

Определить рекурсивную функцию, возвращающую количество определенных элементов в списке.

 

 

Исходный текст программы

(defun foo (A L)

(labels ((ret (A L N)

(cond

((null L) N)

((listp (car L)) (+ (ret A (car L) 0) (ret A (cdr L) N)))

(T

(if (eql (car L) A) (ret A (cdr L) (1+ N)) (ret A (cdr L) N))))))

(ret A L 0)))

Результаты

<== предыдущая лекция | следующая лекция ==>
Старшая группа (16-21 лет) | VEHICLE REGISTRATION CERTIFICATE


Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных