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))))

)

)


 

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

78611. Рынок труда. Региональные особенности рынка труда в современной России 38.5 KB
  Рынок труда. Региональные особенности рынка труда в современной России. Специфика рынка труда во многом определяется особенностями того товара который на нем представлен. Поэтому на рынке труда продается и покупается не сам труд а услуги труда количество и качество которых зависят от многих факторов уровня профессиональной подготовки работника его квалификации опыта добросовестности и других.
78612. Инфляция: особенности российской инфляции и антиинфляционная деятельность государства 115 KB
  Инфляция: особенности российской инфляции и антиинфляционная деятельность государства. Сущностью инфляции является дисбаланс между совокупным предложением и совокупным спросом в сторону превышения последнего сложившийся одновременно на всех рынках на товарном денежном и рынке ресурсов. Это открытая форма инфляции. Некоторые экономисты полагают что дефицит это антипод открытой инфляции: если отпустить цены то дефицит быстро исчезнет но за это придется заплатить повышением общего уровня цен.
78613. Социальная политика государства 35 KB
  Исходя из приоритета анализа экономики необходимо прежде всего остановиться на регулировании доходов непосредственных Участников хозяйственной деятельности. Дело в том что внутренние механизмы рыночной саморегуляции и распределения доходов не могут быть признаны социально удовлетворительными. Требуется государственное вмешательство с целью корректировки системы распределения и перераспределения доходов в обществе. При этом необходимо сознавать что регулирование доходов отношения найма занятости относятся не только к сфере...
78614. Многообразие форм собственности в рыночной экономике 49.5 KB
  Многообразие форм собственности в рыночной экономике. Так человек обладая собственностью на свою рабочую силу и вступая в отношения найма присваивает заработную плату и тем самым реализует экономическое отношение собственности. Право собственности закрепляет фиксирует и регулирует отношения людей к вещам и в этом смысле оно всегда производно от экономических отношений собственности. Но в то же время оно выступает и предпосылкой экономического присвоения ибо закрепленное право собственности на любые блага открывает путь к экономической...
78615. Конкуренция как условие функционирования рыночной экономики. Виды конкуренции 46 KB
  Конкуренция как условие функционирования рыночной экономики. Конкуренция это соперничество товаропроизводителей за выгодные условия хозяйствования и получение максимальной прибыли. Конкуренция основана на частной собственности и хозяйственной самостоятельности. По форме конкуренция представляет систему норм правил и методов хозяйствования рыночных субъектов.
78616. Основные методы государственного регулирования рыночной экономики 37.5 KB
  Впервые комплексный анализ экономической политики государства был проведен в 1952 г. Согласно Тинбергену вопервых правительственные органы должны выбрать конечные цели экономической политики и сформулировать их что обычно делается в терминах максимизации функции общественного благосостояния. Важнейшая проблема на которой остановился Тинберген соответствие между количеством целей и количеством инструментов при проведении экономической политики. Тинберген сделал вывод что политики могут достичь обеих целей тогда когда количество...
78617. Определение потерь напора в подъемных трубах фонтанных скважин, давления на забое и К. П. Д подъемника 56 KB
  Требуется определить гидравлические потери напора, забойное давление и К. П. Д. подъемника при фонтанировании по подъемным трубам и по эксплуатационной колонне. При фонтанировании скважины при том же дебите и забойном давлении по 190-мм эксплуатационной колоне уменьшатся гидравлические сопротивления и повысится устьевое давление.
78619. Реструктуризация предприятии (производства, управления) 33 KB
  Под ним подразумевается коренная перестройка перепроектирование деловых процессов для достижения радикального скачкообразного улучшения деятельности фирмы. Это позволяет преодолеть негативное воздействие сложившихся хозяйственных догм; пренебрежение действующими системами структурами и процедурами компании и радикальное изменение способов хозяйственной деятельности; приведение к значительным изменениям показателей хозяйственной деятельности на порядок отличающихся от предыдущих. К началу процесса реструктуризации необходимо иметь ее...