304 lines
17 KiB
Prolog
304 lines
17 KiB
Prolog
% trait_adj(Trait, Adjective).
|
|
|
|
trait_adj('добросовестность', 'аккуратный').
|
|
trait_adj('добросовестность', 'бережливый').
|
|
trait_adj('добросовестность', 'благоразумный').
|
|
trait_adj('добросовестность', 'вежливый').
|
|
trait_adj('добросовестность', 'внимательный').
|
|
trait_adj('добросовестность', 'воспитанный').
|
|
trait_adj('добросовестность', 'высоконравственный').
|
|
trait_adj('добросовестность', 'гибкий').
|
|
trait_adj('добросовестность', 'деликатный').
|
|
trait_adj('добросовестность', 'дипломатичный').
|
|
trait_adj('добросовестность', 'дисциплинированный').
|
|
trait_adj('добросовестность', 'добросовестный').
|
|
trait_adj('добросовестность', 'запасливый').
|
|
trait_adj('добросовестность', 'зрелый').
|
|
trait_adj('добросовестность', 'исполнительный').
|
|
trait_adj('добросовестность', 'компетентный').
|
|
trait_adj('добросовестность', 'корректный').
|
|
trait_adj('добросовестность', 'культурный').
|
|
trait_adj('добросовестность', 'методичный').
|
|
trait_adj('добросовестность', 'наблюдательный').
|
|
trait_adj('добросовестность', 'надежный').
|
|
trait_adj('добросовестность', 'объективный').
|
|
trait_adj('добросовестность', 'обязательный').
|
|
trait_adj('добросовестность', 'опрятный').
|
|
trait_adj('добросовестность', 'опытный').
|
|
trait_adj('добросовестность', 'организованный').
|
|
trait_adj('добросовестность', 'ответственный').
|
|
trait_adj('добросовестность', 'порядочный').
|
|
trait_adj('добросовестность', 'последовательный').
|
|
trait_adj('добросовестность', 'практичный').
|
|
trait_adj('добросовестность', 'предусмотрительный').
|
|
trait_adj('добросовестность', 'пунктуальный').
|
|
trait_adj('добросовестность', 'самостоятельный').
|
|
trait_adj('добросовестность', 'системный').
|
|
trait_adj('добросовестность', 'скрупулезный').
|
|
trait_adj('добросовестность', 'собранный').
|
|
trait_adj('добросовестность', 'совестливый').
|
|
trait_adj('добросовестность', 'старательный').
|
|
trait_adj('добросовестность', 'тактичный').
|
|
trait_adj('добросовестность', 'терпеливый').
|
|
trait_adj('добросовестность', 'трудолюбивый').
|
|
trait_adj('добросовестность', 'уважительный').
|
|
trait_adj('добросовестность', 'упорный').
|
|
trait_adj('добросовестность', 'усердный').
|
|
trait_adj('добросовестность', 'усидчивый').
|
|
trait_adj('добросовестность', 'учтивый').
|
|
trait_adj('добросовестность', 'хозяйственный').
|
|
trait_adj('добросовестность', 'целеустремленный').
|
|
trait_adj('добросовестность', 'целомудренный').
|
|
trait_adj('добросовестность', 'честный').
|
|
trait_adj('добросовестность', 'экономный').
|
|
|
|
trait_adj('интроверсия', 'адекватный').
|
|
trait_adj('интроверсия', 'впечатлительный').
|
|
trait_adj('интроверсия', 'гармоничный').
|
|
trait_adj('интроверсия', 'задумчивый').
|
|
trait_adj('интроверсия', 'замкнутый').
|
|
trait_adj('интроверсия', 'застенчивый').
|
|
trait_adj('интроверсия', 'инертный').
|
|
trait_adj('интроверсия', 'интроспективный').
|
|
trait_adj('интроверсия', 'лаконичный').
|
|
trait_adj('интроверсия', 'неболтливый').
|
|
trait_adj('интроверсия', 'независимый').
|
|
trait_adj('интроверсия', 'неторопливый').
|
|
trait_adj('интроверсия', 'осторожный').
|
|
trait_adj('интроверсия', 'приватный').
|
|
trait_adj('интроверсия', 'рефлексивный').
|
|
trait_adj('интроверсия', 'самокритичный').
|
|
trait_adj('интроверсия', 'сдержанный').
|
|
trait_adj('интроверсия', 'скромный').
|
|
trait_adj('интроверсия', 'созерцательный').
|
|
trait_adj('интроверсия', 'сосредоточенный').
|
|
trait_adj('интроверсия', 'тихий').
|
|
trait_adj('интроверсия', 'уединенный').
|
|
trait_adj('интроверсия', 'уравновешенный').
|
|
trait_adj('интроверсия', 'чувствительный').
|
|
|
|
trait_adj('невротизм', 'агрессивный').
|
|
trait_adj('невротизм', 'алчный').
|
|
trait_adj('невротизм', 'апатичный').
|
|
trait_adj('невротизм', 'безвольный').
|
|
trait_adj('невротизм', 'бездуховный').
|
|
trait_adj('невротизм', 'безжалостный').
|
|
trait_adj('невротизм', 'безответственный').
|
|
trait_adj('невротизм', 'беспокойный').
|
|
trait_adj('невротизм', 'бесстыжий').
|
|
trait_adj('невротизм', 'бесчувственный').
|
|
trait_adj('невротизм', 'брезгливый').
|
|
trait_adj('невротизм', 'властолюбивый').
|
|
trait_adj('невротизм', 'вульгарный').
|
|
trait_adj('невротизм', 'высокомный').
|
|
trait_adj('невротизм', 'гневливый').
|
|
trait_adj('невротизм', 'грубый').
|
|
trait_adj('невротизм', 'двуличный').
|
|
trait_adj('невротизм', 'ехидный').
|
|
trait_adj('невротизм', 'жадный').
|
|
trait_adj('невротизм', 'жестокий').
|
|
trait_adj('невротизм', 'завистливый').
|
|
trait_adj('невротизм', 'задиристый').
|
|
trait_adj('невротизм', 'злой').
|
|
trait_adj('невротизм', 'злопамятный').
|
|
trait_adj('невротизм', 'избалованный').
|
|
trait_adj('невротизм', 'импульсивный').
|
|
trait_adj('невротизм', 'инфантильный').
|
|
trait_adj('невротизм', 'истеричный').
|
|
trait_adj('невротизм', 'капризный').
|
|
trait_adj('невротизм', 'коварный').
|
|
trait_adj('невротизм', 'конфликтный').
|
|
trait_adj('невротизм', 'лживый').
|
|
trait_adj('невротизм', 'лицемерный').
|
|
trait_adj('невротизм', 'льстивый').
|
|
trait_adj('невротизм', 'меркантильный').
|
|
trait_adj('невротизм', 'мнительный').
|
|
trait_adj('невротизм', 'мрачный').
|
|
trait_adj('невротизм', 'мстительный').
|
|
trait_adj('невротизм', 'навязчивый').
|
|
trait_adj('невротизм', 'наглый').
|
|
trait_adj('невротизм', 'надменный').
|
|
trait_adj('невротизм', 'напряженный').
|
|
trait_adj('невротизм', 'неопрятный').
|
|
trait_adj('невротизм', 'нервный').
|
|
trait_adj('невротизм', 'нервозный').
|
|
trait_adj('невротизм', 'неуверенный').
|
|
trait_adj('невротизм', 'неуравновешенный').
|
|
trait_adj('невротизм', 'неустойчивый').
|
|
trait_adj('невротизм', 'обидчивый').
|
|
trait_adj('невротизм', 'паникерский').
|
|
trait_adj('невротизм', 'пессимистичный').
|
|
trait_adj('невротизм', 'плаксивый').
|
|
trait_adj('невротизм', 'раздражительный').
|
|
trait_adj('невротизм', 'ранимый').
|
|
trait_adj('невротизм', 'сомневающийся').
|
|
trait_adj('невротизм', 'суетливый').
|
|
trait_adj('невротизм', 'тревожно-мнительный').
|
|
trait_adj('невротизм', 'тревожный').
|
|
trait_adj('невротизм', 'уязвимый').
|
|
|
|
trait_adj('открытость к опыту', 'абстрактный').
|
|
trait_adj('открытость к опыту', 'аналитичный').
|
|
trait_adj('открытость к опыту', 'дальновидный').
|
|
trait_adj('открытость к опыту', 'естественный').
|
|
trait_adj('открытость к опыту', 'избирательный').
|
|
trait_adj('открытость к опыту', 'изобретательный').
|
|
trait_adj('открытость к опыту', 'интеллектуальный').
|
|
trait_adj('открытость к опыту', 'интеллигентный').
|
|
trait_adj('открытость к опыту', 'концептуальный').
|
|
trait_adj('открытость к опыту', 'креативный').
|
|
trait_adj('открытость к опыту', 'любознательный').
|
|
trait_adj('открытость к опыту', 'мечтательный').
|
|
trait_adj('открытость к опыту', 'мудрый').
|
|
trait_adj('открытость к опыту', 'находчивый').
|
|
trait_adj('открытость к опыту', 'невежественный').
|
|
trait_adj('открытость к опыту', 'непредубежденный').
|
|
trait_adj('открытость к опыту', 'нестандартный').
|
|
trait_adj('открытость к опыту', 'образный').
|
|
trait_adj('открытость к опыту', 'образованный').
|
|
trait_adj('открытость к опыту', 'ограниченный').
|
|
trait_adj('открытость к опыту', 'одаренный').
|
|
trait_adj('открытость к опыту', 'оригинальный').
|
|
trait_adj('открытость к опыту', 'открытый').
|
|
trait_adj('открытость к опыту', 'прогрессивный').
|
|
trait_adj('открытость к опыту', 'романтичный').
|
|
trait_adj('открытость к опыту', 'сообразительный').
|
|
trait_adj('открытость к опыту', 'творческий').
|
|
trait_adj('открытость к опыту', 'широкомыслящий').
|
|
trait_adj('открытость к опыту', 'экспериментальный').
|
|
trait_adj('открытость к опыту', 'эрудированный').
|
|
trait_adj('открытость к опыту', 'эстетичный').
|
|
|
|
trait_adj('экстравертность', 'адаптивный').
|
|
trait_adj('экстравертность', 'азартный').
|
|
trait_adj('экстравертность', 'активный').
|
|
trait_adj('экстравертность', 'альтруистичный').
|
|
trait_adj('экстравертность', 'бесстрашный').
|
|
trait_adj('экстравертность', 'благородный').
|
|
trait_adj('экстравертность', 'великодушный').
|
|
trait_adj('экстравертность', 'веселый').
|
|
trait_adj('экстравертность', 'выразительный').
|
|
trait_adj('экстравертность', 'галантный').
|
|
trait_adj('экстравертность', 'гуманный').
|
|
trait_adj('экстравертность', 'добродушный').
|
|
trait_adj('экстравертность', 'добрый').
|
|
trait_adj('экстравертность', 'дружелюбный').
|
|
trait_adj('экстравертность', 'женственный').
|
|
trait_adj('экстравертность', 'жизнелюбивый').
|
|
trait_adj('экстравертность', 'жизнерадостный').
|
|
trait_adj('экстравертность', 'заботливый').
|
|
trait_adj('экстравертность', 'инициативный').
|
|
trait_adj('экстравертность', 'искренний').
|
|
trait_adj('экстравертность', 'коллективный').
|
|
trait_adj('экстравертность', 'коммуникабельный').
|
|
trait_adj('экстравертность', 'компанейский').
|
|
trait_adj('экстравертность', 'контактный').
|
|
trait_adj('экстравертность', 'красноречивый').
|
|
trait_adj('экстравертность', 'ласковый').
|
|
trait_adj('экстравертность', 'легкий').
|
|
trait_adj('экстравертность', 'миролюбивый').
|
|
trait_adj('экстравертность', 'мужественный').
|
|
trait_adj('экстравертность', 'напористый').
|
|
trait_adj('экстравертность', 'нежный').
|
|
trait_adj('экстравертность', 'обаятельный').
|
|
trait_adj('экстравертность', 'общительный').
|
|
trait_adj('экстравертность', 'отзывчивый').
|
|
trait_adj('экстравертность', 'позитивный').
|
|
trait_adj('экстравертность', 'понимающий').
|
|
trait_adj('экстравертность', 'приветливый').
|
|
trait_adj('экстравертность', 'радушный').
|
|
trait_adj('экстравертность', 'разговорчивый').
|
|
trait_adj('экстравертность', 'решительный').
|
|
trait_adj('экстравертность', 'смелый').
|
|
trait_adj('экстравертность', 'уверенный').
|
|
trait_adj('экстравертность', 'улыбчивый').
|
|
trait_adj('экстравертность', 'харизматичный').
|
|
trait_adj('экстравертность', 'храбрый').
|
|
trait_adj('экстравертность', 'чистосердечный').
|
|
trait_adj('экстравертность', 'чуткий').
|
|
trait_adj('экстравертность', 'шутливый').
|
|
trait_adj('экстравертность', 'щедрый').
|
|
trait_adj('экстравертность', 'экспансивный').
|
|
trait_adj('экстравертность', 'эмпатичный').
|
|
trait_adj('экстравертность', 'энергичный').
|
|
|
|
% Черты
|
|
trait('экстравертность').
|
|
trait('интроверсия').
|
|
trait('открытость к опыту').
|
|
trait('невротизм').
|
|
trait('добросовестность').
|
|
|
|
% Жанры
|
|
genre('приключенческий').
|
|
genre('ужасы').
|
|
genre('боевик').
|
|
genre('драма').
|
|
genre('романтика').
|
|
genre('научная фантастика').
|
|
genre('детектив').
|
|
genre('документальный').
|
|
genre('биографический').
|
|
|
|
% Связь черты и жанры
|
|
trait_genre('экстравертность', 'приключенческий').
|
|
trait_genre('экстравертность', 'ужасы').
|
|
trait_genre('экстравертность', 'боевик').
|
|
|
|
trait_genre('интроверсия', 'драма').
|
|
trait_genre('интроверсия', 'романтика').
|
|
|
|
trait_genre('открытость к опыту', 'научная фантастика').
|
|
trait_genre('открытость к опыту', 'детектив').
|
|
|
|
trait_genre('невротизм', 'романтика').
|
|
trait_genre('невротизм', 'драма').
|
|
|
|
trait_genre('добросовестность', 'документальный').
|
|
trait_genre('добросовестность', 'биографический').
|
|
|
|
% фильм по жанру
|
|
movie_genre('Индиана Джонс', 'приключенческий').
|
|
movie_genre('Джуманджи', 'приключенческий').
|
|
|
|
movie_genre('Оно', 'ужасы').
|
|
movie_genre('Заклятие', 'ужасы').
|
|
|
|
movie_genre('Мстители', 'боевик').
|
|
movie_genre('Джон Уик', 'боевик').
|
|
|
|
movie_genre('Зелёная миля', 'драма').
|
|
movie_genre('1+1', 'драма').
|
|
|
|
movie_genre('Титаник', 'романтика').
|
|
movie_genre('Ла-Ла Ленд', 'романтика').
|
|
|
|
movie_genre('Интерстеллар', 'научная фантастика').
|
|
movie_genre('Начало', 'научная фантастика').
|
|
|
|
movie_genre('Шерлок Холмс', 'детектив').
|
|
movie_genre('Достать ножи', 'детектив').
|
|
|
|
movie_genre('Планета Земля', 'документальный').
|
|
movie_genre('Наши океаны', 'документальный').
|
|
|
|
movie_genre('Социальная сеть', 'биографический').
|
|
movie_genre('Игры разума', 'биографический').
|
|
|
|
adjs_genres(Adjs, GenresSet) :-
|
|
findall(Genre,
|
|
( member(Adj, Adjs),
|
|
trait_adj(Trait, Adj),
|
|
trait_genre(Trait, Genre)
|
|
),
|
|
Genres),
|
|
sort(Genres, GenresSet).
|
|
|
|
movies_from_adjectives(Adjs, MoviesSet) :-
|
|
adjs_genres(Adjs, Genres),
|
|
findall(Movie,
|
|
( member(G, Genres),
|
|
movie_genre(Movie, G)
|
|
),
|
|
Movies),
|
|
sort(Movies, MoviesSet). |