Самое длинное слово в строке

@Astonjke · Регистрация: 21.12.2009

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

Помогите пожалуйста с задачей:
В заданной строке найти самое длинное слово и напечатать его.

Вот, с помощью Обработка строк в Турбо Пролог написал программу, которая выводит длину каждого слова. Подскажите, как сравнивать эти слова, чтобы найти самое длинное.

Prolog

domains
    list=name*
    name=symbol
predicates
    length(string,integer)
    word(string,list)
clauses
    length("",0):-!.
    length(S,N):-
        frontchar(S,_,S1),
        length(S1,N1),
        N=N1+1.
    word(S,[H|T]):-
        fronttoken(S,H,S1),length(H,X),write(X),nl,!,
        word(S1,T).
        word(_,[]).

@aag · 27.11.2011, 12:10

Prolog

DOMAINS
s=string sl=s* i=integer
%
PREDICATES
mxw(s,i,sl)
m(i,s,i,sl,i,sl)
%
CLAUSES
%
mxw(A,B,C):- fronttoken(A,D,E), !, mxw(E,F,G), str_len(D,H), m(H,D,F,G,B,C).
mxw(_,0,[]).
%
m(A,B,C,_,A,[B]):- A>C, !.
m(A,B,A,C,A,[B|C]):- !.
m(_,_,A,B,A,B).

Prolog

Goal: mxw("vo dvore trava na trave drova",A,B)
A=5, B=["dvore","trava","trave","drova"]
1 Solution
Goal: mxw("vo dvore trava na trave shvangertzup",A,B)
A=12, B=["shvangertzup"]
1 Solution

@Mireol · 23.05.2012, 15:22

Здравствуйте, очень надеюсь на вашу помощь, т.к. совсем не знаю, к кому еще обратиться.
Нужно найти самое длинное слово и вывести его на экран. Нашла здесь на форуме похожую тему: Самое длинное слово в строке, пытаюсь переделать под SWI-Prolog, но ругается на fronttoken: "Undefined procedure: fronttoken/3".

@Грымзик · 23.05.2012, 16:26

Prolog

1
2
3

fronttoken(S,T,STail):-atom_chars(S,SList),
    append(TList,[' '|STailList],SList),
    atom_chars(T,TList),atom_chars(STail,STailList).

Только данный код не будет работать, если строка начинается с пробелов, это доделайте самостоятельно.

@Mireol · 23.05.2012, 16:43

сейчас у меня программа выглядит так:

mxw(A,B,C):- fronttoken(A,D,E), !, mxw(E,F,G), str_len(D,H), m(H,D,F,G,B,C).
mxw(_,0,[]).
m(A,B,C,_,A,[B]):- A>C, !.
m(A,B,A,C,A,[B|C]):- !.
m(_,_,A,B,A,B).

на запрос выдается ошибка:
?- mxw('vo dvore trava na trave drovadvs',A,B).
ERROR: mxw/3: Undefined procedure: fronttoken/3
Exception: (6) mxw('vo dvore trava na trave drovadvs', _G458, _G459) ?
creep

куда в моем случае следует вставить ваш код?

@Грымзик · 23.05.2012, 16:50

Ну а как Вы думаете? Неужели может не быть никаких предположений или быть сразу несколько предположений.

@Mireol · 23.05.2012, 16:59

в том то и дело, что теперь ругается на "ERROR: mxw/3: Undefined procedure: str_len/2"

@Грымзик · 23.05.2012, 17:29

Слушайте, ну мозги включите! Жалуется же на str_len, при чему тут "куда вставлять". В редакторе SWI пролога хорошая подсветка семантики, которая наглядно показывает неопределенные предикаты. И даже без нее, если компилятор жалуется на предикат, который не описан в коде (а просто используется), значит просто нет такого встроенного предиката. Неужели это так сложно понять?!

@Mireol 5 / 5 / 0 Регистрация: 07.11.2011 Сообщений: 52
	23.05.2012, 15:22	3
	Здравствуйте, очень надеюсь на вашу помощь, т.к. совсем не знаю, к кому еще обратиться. Нужно найти самое длинное слово и вывести его на экран. Нашла здесь на форуме похожую тему: Самое длинное слово в строке, пытаюсь переделать под SWI-Prolog, но ругается на fronttoken: "Undefined procedure: fronttoken/3". 0

@Mireol 5 / 5 / 0 Регистрация: 07.11.2011 Сообщений: 52
	23.05.2012, 16:43	5
	сейчас у меня программа выглядит так: mxw(A,B,C):- fronttoken(A,D,E), !, mxw(E,F,G), str_len(D,H), m(H,D,F,G,B,C). mxw(_,0,[]). m(A,B,C,_,A,[B]):- A>C, !. m(A,B,A,C,A,[B\|C]):- !. m(_,_,A,B,A,B). на запрос выдается ошибка: ?- mxw('vo dvore trava na trave drovadvs',A,B). ERROR: mxw/3: Undefined procedure: fronttoken/3 Exception: (6) mxw('vo dvore trava na trave drovadvs', _G458, _G459) ? creep куда в моем случае следует вставить ваш код? 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	23.05.2012, 16:50	6
	Ну а как Вы думаете? Неужели может не быть никаких предположений или быть сразу несколько предположений. 0

@Mireol 5 / 5 / 0 Регистрация: 07.11.2011 Сообщений: 52
	23.05.2012, 16:59	7
	в том то и дело, что теперь ругается на "ERROR: mxw/3: Undefined procedure: str_len/2" 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	23.05.2012, 17:29	8
	Слушайте, ну мозги включите! Жалуется же на str_len, при чему тут "куда вставлять". В редакторе SWI пролога хорошая подсветка семантики, которая наглядно показывает неопределенные предикаты. И даже без нее, если компилятор жалуется на предикат, который не описан в коде (а просто используется), значит просто нет такого встроенного предиката. Неужели это так сложно понять?! 0

Самое длинное слово в строке

Решение