Ребят, кто работал с прологом ? Покажите мне как это работает.
Есть такое задание :
* В списке символов S1, S2, ..., Sn найти все вхождения указанного слова, если разделителем между словами является один или несколько пробелов.
Надыбал где то вот такой код
count(X,X,1):-!.
count(_,Y,0):-atomic(Y),!.
count(X,Y,N):-
Y=..[_|Subs],
count_list(X,Subs,N).
count_list(_,[],0):-!.
count_list(X,[H|T],N):-
count(X,H,N1),
count_list(X,T,N2),
N is N1+N2.
start:-readln(S),read(Sl),count_list(Sl,S,N),write('N = '),write(N).
Так вот, как его можно запустить? Что писать на панели запросов ?
