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

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

Новые блоги и статьи Все статьи Все блоги /
Создаем утилиты CLI с помощью Node.js run.dev 07.03.2025 Помню те времена, когда командная строка считалась уделом гиков и сисадминов. Они давно прошли. Но история повторяется и интерфейс командной строки (CLI) снова ягодка опять в средах разработки и стал. . .	Тестирование в JavaScript: как использовать Jest и Cypress run.dev 07.03.2025 Когда DOM-дерево рассыпается от одной неверной строчки кода, а асинхронные операции превращают отлаженный компонент в источник головной боли, тесты помогут спасти ситуацию. Два инструмента особенно. . .	Управление версиями Python с помощью pyenv py-thonny 07.03.2025 Знакома ли вам ситуация, когда вы начинаете новый проект, а он требует Python 3. 8, в то время как на вашей системе установлен Python 3. 10? Или когда вы пытаетесь запустить старый скрипт, а он выдаёт. . .	Обработка двоичных данных в Python py-thonny 07.03.2025 При работе с данными мы можем встретиться с двумя совершенно разными типами: текстовыми и двоичными. Хотя с текстом мы взаимодействуем постоянно, именно бинарные данные лежат в основе всех цифровых. . .	Сайт компании Red-Star-Soft переехал на новый хостинг! Etyuhibosecyu 06.03.2025 Как и советовал Rius, я покинул хостинг от "Ru-Center" и перенес сайт red-star-soft. com на хостинг с более позитивными отзывами (спойлер: найти его было далеко не просто) (чтобы прочитать текст,. . .
Альтернативная сериализация в Java: сравнение Kryo, Protobuf и Avro Jamaican 06.03.2025 Сериализация — один из краеугольных процессов в Java-разработке. Превращение объектов в поток байтов для хранения или передачи по сети с последующим восстановлением звучит просто, но реализация этого. . .	Битва Java-кешей: Сравниваем Ehcache, Caffeine и Hazelcast Jamaican 06.03.2025 Производительность — вечный Святой Грааль для Java-разработчиков. Мы оптимизируем алгоритмы, настраиваем JVM, распараллеливаем процессы, но неизменно приходим к одному и тому же средству ускорения —. . .	Параметры подтверждения сообщения Kafka Jamaican 06.03.2025 Среди распределённых систем и высоконагруженных приложений Apache Kafka занимает особое место. Эта платформа потоковой обработки данных давно стала стандартом де-факто для организаций, которым. . .	Оптимизация времени запуска Spring Boot Jamaican 06.03.2025 Вы когда-нибудь сидели, барабаня пальцами по столу, пока ваше Spring Boot приложение медленно поднимается? Этот момент, когда вы успеваете сходить за кофе, пообщаться с коллегами и вернуться, а. . .	Деплой Kubernetes в Java: масштабирование Spring Boot приложений Jamaican 06.03.2025 Когда ваше Spring Boot приложение внезапно получает всплеск трафика или требует плавного обновления без простоя — традиционные методы деплоя часто пасуют. Именно здесь на сцену выходит Kubernetes —. . .

@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

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

Решение