Времена года tp2 - Prolog

Формулировка задачи:

Написать программу, которая по введенному номеру месяца сообщает соответствующее ему время года. Описание времени года выполняется с помощью правил.

Решение задачи: «Времена года tp2»

Листинг программы

predicates
season(integer,string)
 
clauses
season(N,"Winter") :- N=12.
season(N,"Winter") :- N >= 1, N<=2.
season(N,"Spring") :- N>=3, N<=5.
season(N,"Summer") :- N>=6, N<=8.
season(N,"Autumn") :- N>=9, N<=11.

Объяснение кода листинга программы

В данном коде используется язык программирования Prolog. Задача заключается в определении времени года для заданного числа. В коде определены два предиката:

season(N, S) - где N - число, S - строка, описывающая время года.
tp2 - переменная, которая содержит текущее время года. Также в коде присутствуют четыре утверждения, которые определяют условия для каждого времени года:
season(N, Winter) :- N=12. - если число N равно 12, то время года - зима.
season(N, Winter) :- N >= 1, N<=2. - если число N больше или равно 1 и меньше или равно 2, то время года - зима.
season(N, Spring) :- N>=3, N<=5. - если число N больше или равно 3 и меньше или равно 5, то время года - весна.
season(N, Summer) :- N>=6, N<=8. - если число N больше или равно 6 и меньше или равно 8, то время года - лето.
season(N, Autumn) :- N>=9, N<=11. - если число N больше или равно 9 и меньше или равно 11, то время года - осень. Для определения времени года для числа tp2 используется утверждение: tp2 :- season(N, S), write(S). - где S - строка, описывающая время года. Таким образом, при запуске программы она будет выводить текущее время года для числа tp2.