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

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

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

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

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

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
1
2
3
4
5
6
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 пролога хорошая подсветка семантики, которая наглядно показывает неопределенные предикаты. И даже без нее, если компилятор жалуется на предикат, который не описан в коде (а просто используется), значит просто нет такого встроенного предиката. Неужели это так сложно понять?!

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

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

@Mireol 5 / 5 / 0 Регистрация: 07.11.2011 Сообщений: 52
	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 куда в моем случае следует вставить ваш код? 0

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

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

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

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

Решение