/* GoogleAds */

Главная

ПРОЕКТ "ЧЕЛОВЕК. ЗЕМЛЯ. ВСЕЛЕННАЯ"

Инструменты пользователя

Инструменты сайта


project:prolog:listing:spiski



Программа "Списки"

Программа «Списки» - демонстрация работы со списками: вывод содержимого списка, вывод отдельных элементов списка.

/* Программа "Списки" - демонстрация работы со списками: вывод содержимого списка, вывод отдельных элементов списка.
Среда - EZY Prolog */
 
domains
/* Список названий */
bird_list = bird_name *
bird_name = symbol
 
/* Список целых чисел */
number_list = number *
number = integer
 
predicates
birds(bird_list)
score(number_list)
 
clauses
/* Список названий */
birds(["sparrow", "robin", "mockingbird", "thunderbird", "bald eagle"]).
 
/* Список целых чисел */
score([56,87,63,89,91,62,85]).
 
goal
 /* Вывести весь список названий.
 Свободная переменная All представляет весь список в целом.
 Он рассматривается при этом как некое целое, элементы играют роль частей этого целого. */
birds(All), write ("Вывод всего списка названий: ", All), nl,
 
birds([S,R,M,T,B]), write ("Вывод всех элементов списка, но без кавычек: ", S, " и ", R, " и ", M, " и ", T, " и ", B), nl,
 
/* Вывести четвёртый элемент списка.
Процесс сопоставления начинается с первого элемента.
Первые три переменные в целевом утверждении являются анонимными, при сопоставлении это обстоятельство, однако, роли не играет.
Переменной B присваивается значение thunderbird.
В этом процессе используется внутренняя связь элементов. */
birds([_,_,_,K,_]), write ("Вывод четвёртого элемента списка: ",K), nl,
 
/* Вывести первый и второй элементы списка. */
birds([B1,B2,_,_,_]), write ("Вывод первого и второго элементов списка: ", B1, " и ", B2), nl,
 
/* Вывести весь список чисел */
score(Number), write ("Вывод всего списка чисел: ", Number), nl,
 
/* Вывести первое, второе и третье число из списка */
score([A1,C1,D1,_,_,_,_]), write ("Вывод первого, второго и третьего числа из списка: ", A1,", ", C1,", ", D1), nl.

Результат:

Вывод всего списка названий: [«sparrow»,«robin»,«mockingbird»,«thunderbird»,«bald eagle»]
Вывод всех элементов списка, но без кавычек: sparrow и robin и mockingbird и thunderbird и bald eagle
Вывод четвёртого элемента списка: thunderbird
Вывод первого и второго элементов списка: sparrow и robin
Вывод всего списка чисел: [56,87,63,89,91,62,85]
Вывод первого, второго и третьего числа из списка: 56, 87, 63

!!Рекомендуем: Семейная Энциклопедия ЗдоровьяЧто должен знать современный человек?Самоанализ. Работа над собойОглавлениеГлавная сайта

project/prolog/listing/spiski.txt · Последние изменения: 2023/09/03 22:22 (внешнее изменение)

Вы можете оставить свои комментарии в разделе "Обсуждение".
Рекомендуем оформить подписку на новости данного раздела. Для этого нажмите на кнопку "Подписаться", расположенную справа снизу каждой страницы (знак конверта).




Индекс цитирования