THIRD LAB, Prolog - rextester

Language: Layout:

%картина(название, автор, стиль, год написания)
картина(дождевик, иван, экспрессионизм, 1200).
картина(отрава, иван, ренессанс, 1250).
картина(барбос, николай, экспрессионизм, 1300).
картина(дрессировщик, николай, ренессанс, 1350).
картина(боинг, вангог, ренессанс, 1400).
картина(радиатор, вангог, классицизм, 1450).
картина(кукуруза, адам, барокко, 1500).
картина(пшено, адам, барокко, 1678).
картина(санларан, дора, барокко, 1688).
картина(дорадура, дора, барокко, 1621).
картина(барбисайз, дора, классицизм, 1901).
картина(колечко, тимур, классицизм, 1902).
картина(конопля, крот, ренессанс, 1903).
картина(фельдшер, крот, ренессанс, 1904).
картина(фломастер, лоли, классицизм, 1905).
картина(бревно, лоли, экспрессионизм, 2020).
картина(калашникова, волондеморд, экспрессионизм, 2020).
картина(больница, волондеморд, экспрессионизм, 2021).
картина(мухомор, гарри, экспрессионизм, 2021).
картина(антресоль, гарри, классицизм, 2022).

старыеКартины(Картина) :- картина(Картина, _, _, Год), Год < 1400, write(Картина), write(' - '), write(Год), nl.
сортировкаПоСтилю(Стиль) :- картина(Название, _, Стиль, _), write(Название), write(' - '), write(Стиль), nl.
сортировкаПоАвтору(Автор) :- картина(Название, Автор, _, _), write(Название), write(' - '), write(Автор), nl.

[ - ] Show input
Absolute running time: 0.31 sec, cpu time: 0.17 sec, memory peak: 7 Mb, absolute service time: 0,46 sec