domains
file=input
predicates
nondeterm has_second_e(string)
nondeterm has_max_length(string,string)
nondeterm search(string)
nondeterm search(string,string,string)
nondeterm test(string)
clauses
has_second_e(String):-
frontchar(String,_,Rest),
frontchar(Rest,101,_).
has_max_length(New,Old):-
str_len(New,N),
str_len(Old,M),
N>=M.
search(String):-
search(String,"",""),!.
search("",Token,""):-
has_second_e(Token),
write(Token);
write("Can`t found!"),!.
search(String,"",""):-
fronttoken(String,Token,Rest),
search(Rest,Token,""),!.
search(String,Token,Last):-
has_max_length(Token,Last),
has_second_e(Token),
search(String,"",Token),!.
search(String,_,Last):-
fronttoken(String,Token,Rest),
search(Rest,Token,Last),!.
search("",_,Last):-
write(Last),!.
test(Filename):-
openread(input,Filename),
readdevice(input),
readln(String),
closefile(input),
search(String),
nl.
goal
search("belka strelka testsss"),nl.
Comments
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎