20981

Конструирующая рекурсия

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

Информатика, кибернетика и программирование

DEFUN F11_2 X L COND NULL L T = 0 REM X CAR L NIL T F11_2 X CDR L DEFUN F11_1 X Y S IF = 2 Y SETQ S NIL SETQ S F11_1 N Y 1 COND AND = 0 REM X Y F11_2 Y S CONS Y S T REVERSE S DEFUN F11 N COND OR NOT INTEGERP N NOT PLUSP N Error_Not_Integer = N 1 NIL T F11_1 N N Реверсировать элементы списка произвольной структуры на всех уровнях. DEFUN F12_1 L COND NULL L ' ATOM CAR L APPEND F12_1 CDR L LIST CAR L LISTP CAR L APPEND...

Русский

2013-08-02

20.47 KB

1 чел.

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

Конструирующая рекурсия.

  1.  Сформировать список простых множителей заданного числа.

(DEFUN F11_2 (X L)

(COND ((NULL L) T)

((= 0 (REM X (CAR L))) NIL)

(T (F11_2 X (CDR L)))

)

)

(DEFUN F11_1 (X Y S)

(IF (= 2 Y)

(SETQ S NIL)

(SETQ S (F11_1 N (- Y 1)))

)

(COND ((AND (= 0 (REM X Y)) (F11_2 Y S)) (CONS Y S))

(T (REVERSE S))

)

)

(DEFUN F11 (N)

(COND ((OR (NOT (INTEGERP N)) (NOT (PLUSP N))) Error!_Not_Integer)

((= N 1) NIL)

(T (F11_1 N N))

)

)

  1.  Реверсировать элементы списка произвольной структуры на всех уровнях.

(DEFUN F12_1 (L)

(COND ((NULL L) '())

((ATOM (CAR L)) (APPEND (F12_1 (CDR L)) (LIST (CAR L))))

((LISTP (CAR L)) (APPEND (F12_1 (CDR L)) (LIST (F12_1 (CAR L)))))

)

)

(DEFUN F12 (L)

(COND ((NOT (LISTP L)) Error!_Not_list!)

((NULL L) List_is_Empty!)

(T (F12_1 L))

)

)

  1.  Линеаризовать список произвольной структуры.

(DEFUN F13_1 (L)

(COND ((NULL L) NIL)

((LISTP (CAR L)) (APPEND (F13_1 (CAR L)) (F13_1 (CDR L))))

(T (CONS (CAR L) (F13_1 (CDR L))))

)

)

(DEFUN F13 (L)

(COND ((NOT (LISTP L)) Error!_Not_list!)

((NULL L) List_is_Empty!)

(T (F13_1 L))

)

)

  1.  Сформировать список, являющийся пересечением двух заданных линейных списков.  Повторяющиеся в исходных списках элементы должны входить в результирующий список не более одного раза.

(DEFUN F14_1 (L1 L2 P)

(COND ((NULL L2) P)

((AND (MEMBER (CAR L2) L1) (NOT (MEMBER (CAR L2) P)))

(SETQ P (CONS (CAR L2) P))

(SETQ P (F14_1 L1 (CDR L2) P)))

(T (SETQ P (F14_1 L1 (CDR L2) P)))

)

)

(DEFUN F14 (L1 L2)

(COND ((OR (NOT (LISTP L1)) (NOT (LISTP L2))) Error!_Not_list!)

((NULL L1) NIL)

((NULL L2) NIL)

(T (F14_1 L1 L2))

)

)

  1.  Сформировать список чисел ряда Фибоначчи (см. задание N 5) от первого числа до числа с заданным номером включительно.

(DEFUN F15_1 (M N P H)

(SETQ H (+ (CAR P) (CDR P)))

(IF (< M N)

(CONS H (F15_1 (+ M 1) N (CONS H (CAR P))))

(LIST H)

)

)

(DEFUN F15 (N)

(COND ((NOT (NUMBERP N)) Error!_Not_number!)

((<= N 0) Error!_Wrong_number!)

((EQ N 1) '(1))

((EQ N 2) '(1 2))

(T (CONS 1 (CONS 2 (F15_1 3 N))))

)

)


 

А также другие работы, которые могут Вас заинтересовать

73307. Особенности продвижения сайта с помощью социальных сетей на примере интернет ресурса Программы двойных дипломов 7.24 MB
  Именно ввиду того, что Интернет в наше время является едва ли не ключевым источником какой-либо информации, веб-технологиям уделяется большое внимание. Каждая крупная организация сегодня для привлечения своей ключевой аудитории в большей степени использует именно Интернет и Интернет-ресурсы. Одним из таких ресурсов является сайт организации, то есть место в Интернете
73308. ОСНОВНЫЕ ЭТАПЫ СТАНОВЛЕНИЯ НАЛОГОВОЙ СИСТЕМЫ РОССИИ 190.5 KB
  Эволюция налоговой системы в РФ. Исследования становления и развития налоговой системы РФ. Сравнение налоговой системы плановой экономики СССР с переходной налоговой системой РФ.
73309. Отдельные основания и способы прекращения права собственности 342 KB
  Общие положения прекращения права собственности. Понятие прекращения права собственности. Понятие и сущность основания и способа прекращения права собственности. Значение разграничения оснований и способов прекращения права собственности.
73310. Мошенничество как преступление 134.5 KB
  Характерной чертой мошенничества выделяющей его среди других видов преступлений против собственности является факт того, что собственник (либо другой владелец имущества), будучи введенным в заблуждение, по собственной воле передаёт мошеннику имущество (право на имущество)
73311. Организация финансовых результатов в ООО СФ «Жилпромстрой» 152.5 KB
  Учет, прогнозирование и планирование финансово-хозяйственной деятельности необходимы на любой стадии производствa. Любые ресурсы имеют свои ограничения и задача руководителя добиться максимального эффектa от их использования. Хозяйственные операции сопровождаются образованием и расходованием денежных средств, соотношение доходов и расходов организации определяют его финансовый результат.
73312. ВИДИ ПРАВ, СВОБОД І ОБОВЯЗКІВ ЛЮДИНИ І ГРОМАДЯНИНА. ЇХ СИСТЕМА В КОНСТИТУЦІЇ УКРАЇНИ 189 KB
  Дослідити ґенезу прав і свобод людини і громадянина на різних історичних етапах становлення держави; визначення поняття та змісту гарантій прав і свобод людини та громадянина; конкретизація ролі та місця держави, та органів державної влади щодо гарантування прав і свобод людини та громадянина; визначення сутності теоретичних засад гарантій прав і свобод людини та громадянина; проаналізувати концептуальні проблеми механізму реалізації права людини і громадянина в Україні...
73313. Основные задачи развития в период первой зрелости (молодости) 269 KB
  Основные задачи развития в период первой зрелости молодости. Обзор теорий развития психики отечественных и зарубежных психологов. Главной целью работы является выделить основные задачи развития как психологического так и социального.
73314. Чувство взрослости как центральное новообразование в структуре личности подростка 287.5 KB
  Исследование личности подростка в возрастной психологии Возрастная психология как область психологического знания. Новообразования и особенности развития личности подростка. Чувство взрослости как центральное новообразование в структуре личности подростка...