Добавил:
T0miesh
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лифп / ЛИФП строки 4 вариант
.txt domains
Str,StrN=string
Str1,New,Buf=string
Num=integer.
predicates
nondeterm pr(Str,StrN).
nondeterm spr(Str,String).
nondeterm deleteLastWord(Str,String).
nondeterm concatLastWord(String,String).
clauses
pr("","").
pr(Str,StrN):-fronttoken(Str,Sl,O),pr(O,ON),concat(ON,Sl,StrN1),concat(StrN1," ",StrN).
deleteLastWord(Str,New1):-pr(Str,StrN),fronttoken(Str,Sl2,Os),str_len(Str,LenOfStr),str_len(Sl2,LenOfLastW),Num=LenOfStr-LenOfLastW-1,frontstr(Num,Str,New1,_).
spr(Str,Buf):-deleteLastWord(Str,New1),pr(Str,StrN),fronttoken(StrN,Sl,O),fronttoken(New1,Sl2,Os),concat(Sl,Os,Buf).
concatLastWord(Str,New2):-spr(Str,Buf),fronttoken(Str,Sl,O),concat(Buf,Sl,New2).
goal
Str1="guy typing words into these text",concatLastWord(Str1,New2).
Str,StrN=string
Str1,New,Buf=string
Num=integer.
predicates
nondeterm pr(Str,StrN).
nondeterm spr(Str,String).
nondeterm deleteLastWord(Str,String).
nondeterm concatLastWord(String,String).
clauses
pr("","").
pr(Str,StrN):-fronttoken(Str,Sl,O),pr(O,ON),concat(ON,Sl,StrN1),concat(StrN1," ",StrN).
deleteLastWord(Str,New1):-pr(Str,StrN),fronttoken(Str,Sl2,Os),str_len(Str,LenOfStr),str_len(Sl2,LenOfLastW),Num=LenOfStr-LenOfLastW-1,frontstr(Num,Str,New1,_).
spr(Str,Buf):-deleteLastWord(Str,New1),pr(Str,StrN),fronttoken(StrN,Sl,O),fronttoken(New1,Sl2,Os),concat(Sl,Os,Buf).
concatLastWord(Str,New2):-spr(Str,Buf),fronttoken(Str,Sl,O),concat(Buf,Sl,New2).
goal
Str1="guy typing words into these text",concatLastWord(Str1,New2).
Соседние файлы в папке Лифп