20983

Функционалы

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

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

DEFUN SORT FileName File1 File2 File3 File4 SETQ F OPENINPUTFILE FileName SETQ F1 OPENOUTPUTFILE File1 SETQ F2 OPENOUTPUTFILE File2 SETQ F3 OPENOUTPUTFILE File3 SETQ F4 OPENOUTPUTFILE File4 IF NOT EQ NIL F LOOP EQ NIL SETQ X READ F SORT_IS_FINISHED COND NUMBERP X WRITE X F1 LISTP X WRITE X F2 ;EQ SYM TYPE X WRITE X F3 T WRITE X F4 ERROR_WRONG_FILE_NAME .

Русский

2013-08-02

20.7 KB

3 чел.

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

Функционалы.

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

(DEFUN  F21_1  (L F K)

(COND ((NULL L)  NIL)

((FUNCALL F (CAR L)) (CONS K (F21_1 (CDR L) F (+ K 1))))  

(T (F21_1 (CDR L) F (+ K 1)))

)

)

(DEFUN F21 (L F)

(COND ((NOT (LISTP L)) ERROR!_WRONG_LIST_ARGUMENT!)

((NULL L) LIST_IS_EMPTY!)

 (T (F21_1 L F 1))

)

)

пример

(F21 ‘(-10 3 A P 4 -3 2 6 S) ‘MINUSP)  => (1 6)

 (F21 ‘(-10 3 A P 4 -3 2 6 S) ‘PLUSP)   => (2 5 7 8)

(F21 ‘(-10 3 A P 4 -3 2 6 S) ‘SYMBOLP)  => (3 4 9)

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

(DEFUN F22 (L)

(COND ((NOT (LISTP L)) ERROR!_WRONG_LIST_ARGUMENT!)

((NULL L) LIST_IS_EMPTY!)

 (T (MAPLIST '(LAMBDA(L) (APPLY + L)) L))

)

)

пример

(F22 ‘(1 1 1 1 1 1 1))  => (7 6 5 4 3 2 1)

(F22 ‘(1 2 3 4 5 6 7))  => (28 27 25 22 18 13 7)

  1.  Удалить из исходного линейного списка все вхождения заданного элемента.

(DEFUN F23 (L X)

(COND ((NOT (ATOM X)) ERROR!_WRONG_ARGUMENT!)

((NOT (LISTP L)) ERROR!_WRONG_LIST_ARGUMENT!)

((NULL L) LIST_IS_EMPTY!)

(T  (MAPCON '(LAMBDA (L)

(IF (EQ (CAR L) X)

NIL

(LIST (CAR L))

)

)

L)

)

)

)

пример

(F23 ‘(A C X C A B Y X D A) X)   => (A C C A B Y D A)

(F23 ‘(A C X C A B Y X D A) A)   => (C X C B Y X D)

(F23 ‘(0 1 0 0 1 1 1 0 0) 1)   => (0 0 0 0 0)

  1.  Оставить в исходном линейном списке не более одного вхождения каждого элемента.

(DEFUN F24 (L)

(COND ((NOT (LISTP L)) "WRONG LIST ARGUMENT")

 (T  (MAPCON '(LAMBDA (L)

(IF (MEMBER (CAR L) (CDR L))

NIL

(LIST (CAR L))

)

)

     L)

)

)

)

пример

(F24 ‘(A C X C A B Y X D A))   => (A C X B Y D)

(F24 ‘(0 1 0 0 1 1 1 0 0))   => (0 1)

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

(DEFUN F25 (L1 L2)

(COND ((OR (NOT (LISTP L1)) (NOT (LISTP L2))) ERROR!_WRONG_LIST_ARGUMENT!)

((OR (NULL L1) (NULL L2)) ERROR!_LIST_IS_EMPTY!)

((NOT (= (LENGTH L1) (LENGTH L2))) ERROR!_DIFFERENT_LENGTHS!)

(T  (MAPCAN '(LAMBDA (L1 L2)

(IF (AND (ATOM L1) (ATOM L1) (Not (EQ L1 L2)))

(LIST (CONS L1 L2))

NIL

)

)

L1 L2)

)

)

)

пример

(F25 ‘(A B C D 2 F) ‘(A C X 3 6 F))  => ((B . C) (C . X) (D . 3) (2 . 6))

(F25 ‘(A B C D 2 F) ‘(A C X 3))   => ERROR!_DIFFERENT_LENGTHS!

Входной  файл  на внешнем носителе содержит исходные данные в виде множества допустимых в ЛИСП структур данных.  Рассортировать его  и записать на внешний носитель в виде четырех файлов, каждый из которых содержит либо  числовые  атомы,  либо  символьные атомы, либо точечные пары, либо списки.

(DEFUN SORT (FileName File1 File2 File3 File4)

(SETQ F   (OPEN-INPUT-FILE FileName))

(SETQ F1 (OPEN-OUTPUT-FILE File1))

(SETQ F2 (OPEN-OUTPUT-FILE File2))

(SETQ F3 (OPEN-OUTPUT-FILE File3))

(SETQ F4 (OPEN-OUTPUT-FILE File4))

(IF (NOT (EQ NIL F))

 (LOOP

  

  ((EQ NIL (SETQ X (READ F))) SORT_IS_FINISHED)

  (COND ((NUMBERP X) (WRITE X F1))

   ((LISTP X) (WRITE X F2))

   ;((EQ SYM (TYPE X)) (WRITE X F3))

   (T (WRITE X F4))

)

)

ERROR!_WRONG_FILE_NAME!

)

)


 

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

48482. Деньги, кредит, банки 505.5 KB
  Возникновение сущность функции и роль денег 4 часа План лекции Возникновение денег Сущность денег их свойства Функции денег Роль денег 1 вопрос. Возникновение денег Объективная необходимость появления денег порождена потребностями товарного обмена. Непосредственные предпосылки появления денег связаны с развитием производительных сил...
48483. Управление и менеджмент 2.02 MB
  Школы управления. Организация как объект управления Организационные структуры органов управления организации: сущность и виды Стили в системе управления предприятием Классификация стилей управления.
48484. Предмет земельного права и виды земельных правоотношений 225 KB
  Предмет земельного права и виды земельных правоотношений. Предмет земельного права – осознанные волевые земельные отношения. Данный вид правоотношений многоплановый носит характер взимания цены расчета нормативной цены арендной платы земельного налога и др. Фрагментарно данный вид правоотношений присутствует при возмещении убытков потерь в сельскохозяйственном производстве при изъятии земельного участка для государственных и муниципальных нужд а также при ограничении прав собственника.
48485. Организация учета в системе управления предприятием 524.5 KB
  Основы организации учета и контроля в системе управление предприятием Специализация любой области науки непосредственно связана с четким определением целей задач предмета и методов его исследования. Бухгалтерский учет как наиболее распространенный совмещает в себе все виды хозяйственного учета и применяется в микроэкономике субъектами предпринимательской деятельности независимо от форм собственности и методов хозяйствования. Стандартизация учетных процедур уступает местом наиболее гибким системам учета сориентированным на анализ...
48486. АРБИТРАЖНЫЙ ПРОЦЕСС 319 KB
  Конституционный суд: разрешает дела о соответствии Конституции РФ федеральных законов нормативных актов органов государственной власти РФ и субъектов Федерации; разрешает споры о компетенции между органами государственной власти; дает толкование Конституции РФ; дает заключение о соблюдении установленного порядка выдвижения обвинения Президента РФ. Верховный суд: является высшим судебным органом по гражданским уголовным и иным делам подведомственным судам общей юрисдикции. Судьи действуют самостоятельно как при установлении...
48488. Хімічний склад організмів 398.5 KB
  АТФ. Набуття формування та систематизація теоретичних знань про органічні молекули макромолекули нуклеінові кислоти АТФ їх будову властивості біологічне значення . Мотивація навчальної діяльності Розширити знання про біологічну роль в організмі нуклеінових кислотАТФ. Будова і властивості АТФ 4.
48489. Особенности налогообложения экспортных операций 771 KB
  Рассмотрим вопросы НДС при экспорте. Далее Закон о НДС.1 Закона о НДС. Она рассчитывается исходя из договорной контрактной стоимости определяемой по свободным или регулируемым ценам тарифам с учетом установленных налоговым законодательством общегосударственных налогов и сборов за исключением НДС.
48490. ГРАЖДАНСКОЕ ПРАВО 1.03 MB
  Любая отрасль права характеризуется предметом и методом правового регулирования. Предмет правового регулирования Предмет правового регулирования те общественные отношения которые регулируются данной отраслью права. Предмет гражданского права можно считать определенным только если мы перечислим все общественные отношения входящие в гражданское право.