любовь через логику предикатов

девушки = деньги деньги = зло девушки = зло?

> девушки = деньги деньги = зло девушки = зло

а при чём тут предикаты? о_0

Ага, придекаты тут не причем, но,кстати, есть более забавная формулировка, основанная на игре слов:

Девушки = Время * Деньги, Время - это Деньги, а Деньги - это Корень Зла => Девушки = Зло.

А что там с предикатами?

likes(tom, mary).
likes(mary, tom).

in_love(X, Y) :-
        likes(X, Y),
        likes(Y, X).

> А что там с предикатами?

логично) Это я криво спросил. Там признание в любви было

А-а-а. Интересно. Попробуй сам напиши. Предикаты - это же просто отношения. Напридумывай всяких, основываясь на той лабуде, которую в признаниях произносят. =)

Вообще-то, то что девушки - зло известно давно. man Ветхий Завет. В Коране ЕМНИП вообще прямым текстом сказано что почти все жнещины рая не достойны

#! /usr/bin/perl

$money == 1000000;
$girls==true;

while ($girls)
     { $money-=100;
       if ($money < 1000)
       { $girls=false};
     }
print ("Вы банкрот!!!\n");

#Надеюсь без ошибок 

% Сто лет прошло, с тех пор как я пролог забыл
:- op(500, yfx, [fucks, love]).
mary love tom :- tom fucks mary.
tom love mary :- tom fucks mary.
mary love tom :- tom fucks barby.
tom love mary :- tom fucks barby.
?- love(Y, barby).

> mary love tom :- tom fucks mary.

Такой записи, без скобок, я ни в одном прологе не помню. Разве что GNU?

Насколько понмю, ето есть стандартный эдинбургский синтаксис. Операторная форма записи.

Понятно. Мне приходилосьработать толькос Visual Prolog и SWI Prolog. Там не так. Ok. Пойду почитаю, пополню знания.

> Девушки = Время * Деньги, Время - это Деньги, а Деньги - это Корень Зла => Девушки = Зло.

Девушки = плюс минус Зло

Из этого ещё следует, что коли грех -- величина аддитивная, то существуют такие девушки, с которыми грех уменьшается.

Монахини?

Нет, проще - жены?