Вывод списка анаграмм

@IvanArtt · Регистрация: 10.12.2020

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

Добрый день, необходимо написать функцию, используя Data.list, выводящую список анаграмм.
anagram :: [String] -> [[String]]
Пример:
anagram ["abc", "hehe", "foo", "cba", "eheh", "hhee", "oof", "ofo"]

[["eheh","hehe","hhee"],["foo","ofo","oof"]]

Я додумался только до nub.permutations, но это принимает на вход только одну строку и выводит список ее анаграмм

@Curry · 10.12.2020, 22:16

Ну, если только их Data.List

Haskell
1
2
3
4
5
6
7
import Data.List 
 
anagram :: [String] -> [[String]]
anagram = map (nub. map snd) . groupBy (\(l,_) (r,_) -> l == r) . sortOn fst .  map (\s -> (sort s,s))
 
main::IO()
main = print $ anagram ["abc", "hehe", "foo", "cba", "eheh", "hhee", "oof", "ofo"]

@IvanArtt · 10.12.2020, 22:20 **[ТС]**

Спасибо, но я видимо забыл уточнить, надо выводить не все анаграммы, а только те, которых больше, как в примере

@Curry · 10.12.2020, 22:34

Сообщение от IvanArtt

Спасибо, но я видимо забыл уточнить, надо выводить не все анаграммы, а только те, которых больше, как в примере

Вы вообще "забыли" сформулировать задание. Привести пример, это ни разу не формулировка, а только дополнение к ней.
Попытайтесь снова.

@IvanArtt · 10.12.2020, 22:37 **[ТС]**

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

Функция должна иметь следующий тип:

anagram :: [String] -> [[String]]

Пример:

anagram ["abc", "hehe", "foo", "cba", "eheh", "hhee", "oof", "ofo"]

[["eheh","hehe","hhee"],["foo","ofo","oof"]]

То есть в вывод идут только самые длинные списки, в данном случае состоящие из 3 слов

@Curry · 10.12.2020, 22:53

Сообщение от IvanArtt

надо найти все множества анаграмм, которые содержат в себе наибольшее количество слов.

Формулировать задание вы не умеете.
Я понял так

Haskell
1
2
3
4
anagram :: [String] -> [[String]]
anagram lst =  let t = map (nub. map snd) $ groupBy (\(l,_) (r,_) -> l == r) $ sortOn fst $  map (\s -> (sort s,s)) lst
                   cmax = maximum $ map length t
               in  filter (\l -> cmax == length l) t

@IvanArtt · 10.12.2020, 22:57 **[ТС]**

Но весь код надо уместить в одну строку

@Curry · 10.12.2020, 23:04

Haskell
1
anagram lst =  let {t = map (nub. map snd) $ groupBy (\(l,_) (r,_) -> l == r) $ sortOn fst $  map (\s -> (sort s,s)) lst;  cmax = maximum $ map length t} in  filter (\l -> cmax == length l) t

@IvanArtt · 11.12.2020, 06:46 **[ТС]**

Решение работает, но есть ли вариант уместить весь код в строку длинной не больше 104 символов, данный вариант я смог укоротить только до 146 символов, я думаю порядок слов не важен

@Catstail · 11.12.2020, 14:40

IvanArtt, нда... Что за формулировка!.. "в вывод идут только самые длинные списки, в данном случае состоящие из 3 слов". Строка "abc" породит список из шести слов. Почему ее нет в выводе? И можно ли использовать функции Data.List?

Мне кажется, результат должен быть другим... Вот (по образу и подобию варианта Curry):

Haskell
1
2
3
4
5
6
import Data.List
 
f ss = let {t = nub $ map (\x -> sort $ nub $ permutations x) ss; cmax = maximum $ map length t} in filter (\z -> cmax == length z) t
 
main = print $ f ["abc", "hehe", "foo", "cba", "eheh", "hhee", "oof", "ofo"]
[["abc","acb","bac","bca","cab","cba"],["eehh","eheh","ehhe","heeh","hehe","hhee"]]

@Curry · 11.12.2020, 14:56

Catstail, из примера я решил что формулировка что-то вроде. "Дан список строк. Разобрать его на подсписки в каждом из которых все анаграммы одного и того же слова из исходного списка. Вывести список подсписков-анаграмм максимальной длины."

@Catstail · 11.12.2020, 14:58

Curry, а... Я его не понял.

@_CyberSecurity_ · 12.12.2020, 22:10

Надо найти все множества анаграмм, которые содержат в себе наибольшее количество слов.

Функция должна иметь следующий тип:

Haskell
1
anagram :: [String] -> [[String]]

Пример:

Haskell
1
2
GHCi> anagram ["abc", "hehe", "foo", "cba", "eheh", "hhee", "oof", "ofo"]
[["eheh","hehe","hhee"],["foo","ofo","oof"]]

То есть в вывод идут только самые длинные списки, в данном случае состоящие из 3 слов Код в одну строку и символов не более 100

Это было само задание, такой код получился:

Haskell
1
anagram lst =  let {t = map (nub. map snd) $ groupBy (\(l,_) (r,_) -> l == r) $ sortOn fst $  map (\s -> (sort s,s)) lst;  cmax = maximum $ map length t} in  filter (\l -> cmax == length l) t

Он не проходит по длине, (если что `import Data.List` прописывать не нужно), заранее спасибо

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@IvanArtt 0 / 0 / 0 Регистрация: 10.12.2020 Сообщений: 5

	Вывод списка анаграмм 10.12.2020, 21:37. Показов 2236. Ответов 12 Метки нет (Все метки) Добрый день, необходимо написать функцию, используя Data.list, выводящую список анаграмм. anagram :: [String] -> [[String]] Пример: anagram ["abc", "hehe", "foo", "cba", "eheh", "hhee", "oof", "ofo"] [["eheh","hehe","hhee"],["foo","ofo","oof"]] Я додумался только до nub.permutations, но это принимает на вход только одну строку и выводит список ее анаграмм 0

@IvanArtt 0 / 0 / 0 Регистрация: 10.12.2020 Сообщений: 5
	10.12.2020, 22:20 [ТС]
	Спасибо, но я видимо забыл уточнить, надо выводить не все анаграммы, а только те, которых больше, как в примере 0

@IvanArtt 0 / 0 / 0 Регистрация: 10.12.2020 Сообщений: 5
	10.12.2020, 22:37 [ТС]
	Прошу прощения, надо найти все множества анаграмм, которые содержат в себе наибольшее количество слов. Функция должна иметь следующий тип: anagram :: [String] -> [[String]] Пример: anagram ["abc", "hehe", "foo", "cba", "eheh", "hhee", "oof", "ofo"] [["eheh","hehe","hhee"],["foo","ofo","oof"]] То есть в вывод идут только самые длинные списки, в данном случае состоящие из 3 слов 0

@IvanArtt 0 / 0 / 0 Регистрация: 10.12.2020 Сообщений: 5
	10.12.2020, 22:57 [ТС]
	Но весь код надо уместить в одну строку 0

@IvanArtt 0 / 0 / 0 Регистрация: 10.12.2020 Сообщений: 5
	11.12.2020, 06:46 [ТС]
	Решение работает, но есть ли вариант уместить весь код в строку длинной не больше 104 символов, данный вариант я смог укоротить только до 146 символов, я думаю порядок слов не важен 0

@Curry Модератор 5158 / 3487 / 536 Регистрация: 01.06.2013 Сообщений: 7,564 Записей в блоге: 9
	11.12.2020, 14:56
	Catstail, из примера я решил что формулировка что-то вроде. "Дан список строк. Разобрать его на подсписки в каждом из которых все анаграммы одного и того же слова из исходного списка. Вывести список подсписков-анаграмм максимальной длины." 1

@Catstail Супер-модератор 38192 / 21125 / 4309 Регистрация: 12.02.2012 Сообщений: 34,732 Записей в блоге: 14
	11.12.2020, 14:58
	Curry, а... Я его не понял. 1