Разбить строку на список строк

@Chornopolskiy · Регистрация: 02.11.2018

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

Заданная строка, написать функцию через FOLDR за один проход по списку не используя REVERSE, получающий из этой строки список слов: начиная с конца строки берем один символ, затем следующие два символа и т.д. пока строка не закончится, затем если в первом слове не хватит символов, то дополнить ее символами '-': "fgghhjjkklk"->["----f","gghh","jjk","kl","k" ]

Не прошу сделать вместо меня, просто нужен совет как такое можно было бы реализовать.

@Catstail · 23.11.2021, 18:57

В качестве сворачиваемого списка использовать не строку, а список [n,n-1..1], где n длина строки. При свертке вычислять сколько пропустить в исходной строке и сколько взять. Как вариант.

Добавлено через 4 часа 33 минуты
Иезуитская задача...

Haskell
1
2
3
4
5
6
7
8
9
10
get stri d t | d>0 && t>0 = take t $ drop d stri
             | d==0       = take t stri
             | otherwise  = (take (abs d) $ repeat '-') ++ (take (t+d) stri)
             
task stri = foldr (\ (d,t) acc -> [get stri d t]++acc) [] pairs
            where n = length stri
                  pairs = h n 1
                  h p k = if p<=0 then [] else (h (p-k) (k+1)) ++ [(p-k,k)]
                  
main = print $ task "qwertyuiopasdf"

@Curry · 23.11.2021, 20:36

Haskell
1
2
3
4
5
6
7
8
job :: String -> [String]
job s = let ln = length s
            -- Достаточное кол-во членов арифм. прогрессии чтобы сумма прогресси была не меньше ln
            n  = ceiling $ sqrt( (fromIntegral ln :: Double) * 8 + 1)/2
            -- сумма элементов прогрессии равна длинне строки вместе c заполнителем
            sn  = (n*n + n) `div` 2
        in fst $ foldr(\i (r,s') -> let (h,t) = splitAt (length s' - i) s' in (t:r,h))
            ([],((take (sn-ln) $ repeat '-') ++ s)) [n, n-1 .. 1]

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Chornopolskiy 2 / 2 / 0 Регистрация: 02.11.2018 Сообщений: 55

	Разбить строку на список строк 23.11.2021, 13:14. Показов 1618. Ответов 2 Метки fold, haskell, list (Все метки) Заданная строка, написать функцию через FOLDR за один проход по списку не используя REVERSE, получающий из этой строки список слов: начиная с конца строки берем один символ, затем следующие два символа и т.д. пока строка не закончится, затем если в первом слове не хватит символов, то дополнить ее символами '-': "fgghhjjkklk"->["----f","gghh","jjk","kl","k" ] Не прошу сделать вместо меня, просто нужен совет как такое можно было бы реализовать. 0

Разбить строку на список строк

Решение