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

)

)


 

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

76946. Особенности административно-правового статуса иностранных граждан и лиц без гражданства 28.5 KB
  Правовое положение иностранных граждан на территории РФ регулируется российским законодательством а также международными договорами. Законы РФ распространяются на всех лиц находящихся на ее территории. Правовое положение иностранных граждан регламентируется Конституцией законами России международными договорами правилами пребывания иностранных граждан на территории РФ и транзитного проезда иностранных граждан через территорию РФ. Законодательство различает иностранных граждан постоянно проживающих и временно пребывающих на территории...
76947. Понятие и признаки органов исполнительной власти РФ, система органов исполнительной власти, их классификация 29.22 KB
  Понятие и признаки органов исполнительной власти РФ система органов исполнительной власти их классификация. Орган исполнительной власти государственное учреждение обладающее относительной самостоятельностью структурной организацией наделенное государственно-властными полномочиями исполнительно-распорядительного характера и действующее в пределах определенной территории. Признаки органа исполнительной власти: является государственным учреждением; вместе с органами законодательной и судебной власти входит в систему органов...
76948. Президент Российской Федерации и исполнительная власть 27.36 KB
  Назначает и отзывает после консультаций с соответствующими комитетами или комиссиями палат Федерального Собрания дипломатических представителей РФ в иностранных государствах и международных организациях; Федеральные министерства федеральные службы и федеральные агентства руководство деятельностью которых осуществляет Президент РФ: Министерство внутренних дел РФ подведомственная ему Федеральная миграционная служба Министерство РФ по делам гражданской обороны чрезвычайных ситуаций и ликвидации последствий стихийных бедствий Министерство...
76949. Правительство Российской Федерации: порядок формирования, состав, основные полномочия 25.06 KB
  Правительство РФ – это коллегиальный орган состоящий из Председателя Правительства РФ заместителей Председателя Правительства РФ и федеральных министров. ФКЗ О Правительстве РФ по сути является документом составляющим вместе с Конституцией РФ правовую базу деятельности Правительства РФ. Председатель Правительства РФ назначается Президентом РФ с согласия Государственной Думы и освобождается от неё на основаниях предусмотренных законом. Заместители Председателя Правительства РФ и федеральные министры назначаются на должность и...
76950. Федеральные органы исполнительной власти России: понятие, система, структура, правовое положение, функции 26.71 KB
  Федеральные органы исполнительной власти России: понятие система структура правовое положение функции. В систему федеральных органов исполнительной власти входят федеральные министерства федеральные службы и федеральные агентства. Правовое положение или правовой статус органов исполнительной власти подразумевает что все они действуют на основе законов и других нормативных актов осуществляют нормотворческую деятельность совершают действия возложенные на них нормативными актами имеют полномочия компетенцию а также обладают...
76951. Органы исполнительной власти субъектов Российской Федерации 27.14 KB
  Органы исполнительной власти субъектов Российской Федерации.государственная и территориальная целостность Российской Федерации. распространение суверенитета Российской Федерации на всю ее территорию; верховенство Конституции и федеральных законов на всей территории Российской Федерации...
76953. Общественные объединения как субъекты административного права: понятие, порядок и цели создания, правовой статус, прекращение деятельности 26.21 KB
  Виды общественных объединений: 1 в зависимости от организационноправовой формы: – общественная организация – основанное на членстве общественное объединение созданное на основе совместной деятельности для защиты общих интересов и достижения уставных целей объединившихся граждан; – общественное движение – состоящее из участников и не имеющее членства массовое общественное объединение преследующее социальные политические и иные общественно полезные цели поддерживаемые участниками общественного движения; – общественный фонд является одним...
76954. Государственная служба в России как правовой институт административного права: понятие, принципы, система и правовые основы 25.29 KB
  Государственная служба Российской Федерации – профессиональная служебная деятельность граждан Российской Федерации по обеспечению исполнения полномочий: – Российской Федерации; – федеральных органов государственной власти иных федеральных государственных органов; – субъектов Российской Федерации; – органов государственной власти субъектов Российской Федерации иных государственных органов субъектов Российской Федерации; – лиц замещающих должности устанавливаемые Конституцией Российской Федерации федеральными законами для непосредственного...