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

)

)


 

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

34986. Функции рынка 32.5 KB
  Растет цена сигнал к расширению производства: падает цена сигнал к его сокращению. Информационная функция Цена складывающаяся на каждом из рынков содержит богатую информацию необходимую всем участникам хозяйственной экономической деятельности. Ценообразующая функция В результате взаимодействия производителей и потребителей предложения и спроса на товары и услуги на рынке формируется цена. Рыночная цена представляет собой своего рола итог баланс сопоставления затрат производителей и полезности ценности данного блага для...
34987. Структура и инфраструктура рынка 36 KB
  По охвату экономического пространства различают местный рынок города района области; национальный внутренний отдельной республики государства и мировой внешний. По участию в кругообороте выделяют рынок ресурсов и рынок продуктов. В зависимости от определенных видов товаров рынок делится на несколько сфер.
34988. Условия формирования рыночной экономики в России 31.5 KB
  Готовые западные рецепты формирования цивилизованного рынка могут оказаться неэффективными для России. Вместе с тем имеют место общемировые тенденции развития рынка которые должны быть учтены и у нас. Прежде всего необходимо многообразие форм собственности в том числе наличие частной собственности в результате чего создается неограниченное число участников рынка.
34989. Рыночное равновесие. Гибкая работа рыночного механизма 25 KB
  Равновесная цена это цена при которой удается продать все количество товаров изготовленных на продажу то есть величина спроса и величина предложения совпадают. Рыночное равновесие недолговечно оно постоянно нарушается изза изменения спроса или предложения. На изменение условий предложения цена реагирует поиному. Однако увеличение предложения товаров вновь меняет ситуацию на рынке и спрос падает.
34990. Монополия 36.5 KB
  Это может быть государственная организация частная регулируемая монополия или частная нерегулируемая монополия. Государственная монополия может с помощью политики цен преследовать достижение самых разных целей: например установить цену ниже себестоимости если товар имеет большое значение для покупателей которые не в состоянии приобретать его за полную стоимость. Монополия контролирует занимаемый ею сектор рынка полностью или в значительной степени. Виды монополий Естественная монополия состояние товарного рынка при котором...
34991. Защита прав потребителей 29 KB
  Во многих зарубежных странах законодательная административная и судебная защита прав потребителей превратилась в существенный фактор развития экономики. Законодательство России защищающее права потребителей существует недавно практика его применения невелика но оно становится реальной силой с которой начинают считаться и небольшие предприятиятоваропроизводители и гигантымонополисты. Закон РФ О защите прав потребителей регулирует отношения между потребителями и предпринимателями устанавливает права потребителей и механизм их.
34992. Взаимодействие между спросом и предложением 52.5 KB
  Конкуренция в переводе с латинского означает сходиться сталкиваться это экономическое соперничество состязательность обособленных товаропроизводителей и потребителей за получение максимального дохода. В широком смысле слова понятие конкуренция употребляется в экономической науке как элемент рыночного механизма обеспечивающий взаимодействие субъектов рыночного хозяйства в процессе производства купли и продажи товаров а также в сфере приложения капитала. В более узком смысле понятие конкуренция употребляется как соперничество...
34993. Препринимательство 30.5 KB
  Самостоятельность в организации производства дополняется коммёрческой свободой. Она предполагает поиск новых путей развития производства. Предприниматель второго типа для достижения намеченной цели имеет во внешней среде альтернативные возможности сопоставляет их с имеющимися ресурсами и выбирает новую комбинацию факторов производства. Предприниматель берет на себя инициативу соединения и координацию факторов производства труда земли и капитала.