Основы автоматизированного проектирования химических производств. Миронов В.М - 139 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

139
(SETQ_X_'((A_B)_C_D),
(CAAR_X) ; возвращает А как (CAR(CAR_X)),
(CDAR_X) ; возвращает (B) как (CDR(CAR_X)),
(CADAR_X); возвращает B как (CAR(CDR(CAR_X))).
(LAST_<список>) – возвращает последний элемент списка (атом или спи-
сок).
(MEMBER_<элемент><список>) – просматривает список и ищет в нем за-
данный элемент. Если элемент найден, то возвращается список от элемента
до конца исходного списка, иначе - NIL.
(NTH_<номер><список>) – возвращает элемент списка, имеющий
задан-
ный номер (целое положительное число). Первый элемент списка – нулевой.
Если номер превышает число элементов минус единица, то возвращается
NIL.
(SETQ_A_'(B_C_(D_E))),
(LAST_A); возвращает (D_E),
(MEMBER_'C_A); возвращает (С_(D_E)),
(NTH_0_A); возвращает B,
(NTH_2_A); возвращает (D_E),
(NTH_3_A); возвращает NIL,
(ASSOC_<элемент><список>) – обеспечивает "ассоциативный поиск" в
структурированном списке, т.е. в списке, элементы которого являются спи-
сками, а сами списки построены по
схеме
(<ключевой элемент><значение>).
При удачном поиске возвращается найденный список, иначе - NIL. Та-
ким образом, организуется поиск данных по ключу в сложной структуре дан-
ных.
(SETQ_DETAL_'((KOD_123)(KODM_0123)(M_1.45)),
(ASSOC_'KODM_DETAL) ;возвращается KODM_0123,
(CADR_(KODM_0123)) ;возвращается 0123.
Функция SUBST дополняет ASSOC, позволяя заменять элементы в списке:
(SUBST_<новый элемент><старый элемент><список>) - возвращается об-
новленный список.
Анализ списков осуществляется следующими функциями:
(LISTP_<элемент>) –
возвращает "Т", если элемент – список, иначе - NIL
(ATOM_<элемент>) – возвращает "Т", если элемент – атом, иначе - NIL
(EQ_<выражение1><выражение2>) – проверяет идентичность двух выра-
жений, которые, как правило, списки. Списки считаются идентичными, если
они связаны через SETQ. Идентичные списки всегда равны, но равные спи-
ски не всегда идентичны.
(SRTQ_X_'(A_B_C))
(SRTQ_Y_X)
(EQUAL_X_Y) ;возвращает "Т"
(EQ_X_Y) ;возвращает "Т"

Страницы