Разработать программу для разбиения текста, находящегося в файле, на строки задаваемой длины с переносом - Lisp

Формулировка задачи:

Добрый день!) Помогите, пожалуйста, разработать программу с помощью языка функционального программирования lisp для разбиения текста, находящегося в файле, на строки длиной около 80 символов с переносом слов.

Решение задачи: «Разработать программу для разбиения текста, находящегося в файле, на строки задаваемой длины с переносом»

Листинг программы

(defn task [n file]
  (->> (clojure.string/replace file #"\s{2,}|[\s&&[^ ]]" " ")
       (re-seq (re-pattern (str ".{0," n "}\\s")))))
;; => #'learn-clojure.example/task

Объяснение кода листинга программы

Создана функция task, которая принимает два аргумента: n и file.
В первой строке кода используется функция clojure.string/replace для замены двойных пробелов и всех символов новой строки, кроме пробела, на один пробел.
Затем используется функция re-seq, которая применяет регулярное выражение к строке, созданной на предыдущем шаге.
Регулярное выражение создается с помощью функции re-pattern, которая принимает строку, где точка соответствует любому символу, а количество точек и пробелов до следующей точки соответствует n.
Результатом выполнения функции re-seq является последовательность строк, которые были получены путем разбиения исходной строки на n частей.
Функция возвращает результат re-seq, который представляет собой последовательность строк, разделенных пробелами.
Если n равно 0, функция возвращает пустую строку.
Если n равно 1, функция возвращает исходную строку без изменений.
Если n больше 1, функция возвращает последовательность строк, разделенных пробелами, которые были получены путем разбиения исходной строки на n частей.