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

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

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

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

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

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 пролога хорошая подсветка семантики, которая наглядно показывает неопределенные предикаты. И даже без нее, если компилятор жалуется на предикат, который не описан в коде (а просто используется), значит просто нет такого встроенного предиката. Неужели это так сложно понять?!

Новые блоги и статьи Все статьи Все блоги /
TypeScript: Интерфейсы vs Типы run.dev 11.04.2025 Современная разработка на JavaScript сталкивается с множеством проблем при масштабировании проектов. Типизация кода стала хорошим инструментом, помогающим избежать ошибок во время выполнения,. . .	Управление топиками и разделами Kafka Javaican 11.04.2025 Apache Kafka — распределенная платформа потоковой передачи данных, которая стала стандартом для построения высоконагруженных систем обмена сообщениями. В современной архитектуре микросервисов,. . .	Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .
Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи с помощью арктангенса для метода обработки данных из double buffering. Hrethgir 10.04.2025 Публикация в доработке, метод арктангенса в комментариях внизу. Вообще изначально я пренебрёг квадратурой числа, но потом понял, что для вычисления приблизительного значения - сгодится, формулу. . .	Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .

@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

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

Решение