Все ротации списков в Haskell [дубликат]

На этот вопрос уже есть ответы здесь:

Как определить функцию вращения (8 ответов)

Закрыт 2 года назад .

У меня есть функция поворота списка:

rotate :: [a] -> [a]
rotate [] = []
rotate (x:xs) = xs ++ [x]

Теперь мне нужна функция, которая дает список со всеми возможными поворотами конечного списка:

rotateAll :: [a] -> [[a]]

В императивном языке я бы сделал что-то вроде (в псевдокоде)

for i = 1 to length of list
  append list to rotateList
  list = rotate(list)

Конечно, императивное мышление вряд ли поможет мне найти функциональное решение этой проблемы. Я ищу некоторые подсказки о том, как решить эту проблему.

Дополнительные мысли:

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

rotateAll xs = [xs (rotate xs) (rotate (rotate xs)) (rotate (rotate (rotate xs)))...]

Конечно, я не знаю, сколько раз это делать. Я был бы доволен, если бы делал это бесконечно, а затем использовал бы take (length xs), чтобы получить конечное число списков, которые мне нужны. Это фактически демонстрирует вторую проблему :, определяющую, когда следует остановиться. Я не знаю, является ли использование takeнаиболее эффективным или элегантным способом решения проблемы, но это пришло мне в голову, когда я печатал это, и оно должно работать.

Приложение: Теперь, когда я нашел два решения самостоятельно или с подсказками. Я с радостью приветствую любые другие решения, которые быстрее или используют другие подходы. Спасибо!

задан Code-Apprentice 8 August 2012 в 22:49

0 ответов

Другие вопросы по тегам:

functional-programming haskell list

Все ротации списков в Haskell [дубликат]

0 ответов

Похожие вопросы: