Получить префикс строки до первого вхождения символа ":" - Prolog
Формулировка задачи:
Дана строка символов, в которой есть двоеточие. Получить все символы, расположенные до первого двоеточия включительно.
Решение задачи: «Получить префикс строки до первого вхождения символа ":"»
textual
Листинг программы
predicates
get_pref(string,char,string)
clauses
get_pref("",_,"").
get_pref(S,P,"") :- frontchar(S,Q,_), P=Q.
get_pref(S,P,R) :- frontchar(S,Q,L), Q<>P, get_pref(L,P,U), frontchar(R,Q,U).
goal
get_pref("QWERT:YUIOP",':',R),write(R),nl.