Перенос Слов На Haskell

Тема в разделе "Другие задачи", создана пользователем Winter, 16 май 2014.

  1. Winter

    Winter New Member

    Регистрация:
    29 апр 2014
    Сообщения:
    1
    Симпатии:
    0
    Здравствуйте. Вот есть программа для разбиения текста, находящегося в файле, на строки по n символов, но без разрыва слов. Помогите, пожалуйста, сделать этот самый перенос. Совершенно не представляю как его организовать.
    Код (Text):
    grp :: [String] -> Int -> String -> [String]
    grp [] _ line    = [line]
    grp (s:ss) n line | (length line)+1+(length s) <= n = grp ss n (line ++ " " ++ s)
    | otherwise = [line] ++ (grp ss n s)

    formTxt :: String -> Int -> [String]
    formTxt txt n = grp (words txt) n []
     
Загрузка...

Поделиться этой страницей