ТОР 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))) Результаты
Не нашли, что искали? Воспользуйтесь поиском:
|