Поиск слова в строке Prolog

@Scrym · Регистрация: 07.01.2017

Author24 — интернет-сервис помощи студентам

Добрый день.
Для программы книжного интернет-магазина нужно реализовать поиск по автору/названию книги. Как сделать так, чтобы поиск производился не только по полному названию книги, но и любому слову из него?

Prolog

search_bookname(N):-
    book(S, A, P, W, T, K,G),
    S = N, 
    write(S), write(" ("), write(A), write(") - Edition: "), write(P),write(", Genre: "), write(W),write(", Year: "), write(T),write(", Available: "), write(G),write(", Price: "), write(K), nl,  
    fail.
search_bookname(_):- !

Prolog

run("5"):-  
    write("------------------------------"),nl,
    write("Search Bookname"),nl,
    write("Bookname: "), readln(N),
    search_bookname(N),
    menu.

@Scrym · 10.08.2022, 15:00 **[ТС]**

Что я делаю не так?

Prolog

search_author(N):-
    book(S, A, P, W, T, K,G),
                 fronttoken(A,H,A_Rest),
                 fronttoken(Hi,H," "),
                 fronttoken(Rest,Hi,Res),
    N = Res, 
    write(S), write(" ("), write(A), write(") - Edition: "), write(P),write(", Genre: "), write(W),write(", Year: "), write(T),write(", Available: "), write(G),write(", Price: "), write(K), nl,  
    fail.

@Scrym · 11.08.2022, 14:32 **[ТС]**

Таким образом поиск происходит по первому слову. Как реализовать поиск по любому слову?

Prolog

search_bookname(N):-
    book(S, A, P, W, T, K,G),
    fronttoken(S,S1,S2),
    N=S1,
    write(S), write(" ("), write(A), write(") - Edition: "), write(P),write(", Genre: "), write(W),write(", Year: "), write(T),write(", Available: "), write(G),write(", Price: "), write(K), nl,  
    fail.

	11.08.2022, 14:32