Programming Gems::SWI-Prolog

Материал из NNLUG Wiki

Перейти к: навигация, поиск

SWI-Prolog

Возведение числа в квадрат 

 #!/usr/lib/swi-prolog/bin/i386/pl -q -g main -s
 f(X,Y) :- Y is X*X.
 main :-
   f(2,Y),
   print(Y),nl,
   halt.

Источник — «http://lug-wiki.nnov.ru/index.php/Programming_Gems::SWI-Prolog»