[
вот крч
Size: a a a
2021 December 11
AP
Лучше бы кто сделал на unfold и break
[
мне не нравится, что у меня строка тут форсится - сначала исходная, а потом выходная
[
это двойной выстрел в перф, так сказать
AP
И давайте стараться сюда код скидывать, а не скриншоты. Чтобы новички могли его скопировать и поковырять
[
revw :: String -> String
revw = reverse . fst . appendAccToString . flip foldl' ("", "") go
where
appendToAcc ch (s, a) = (s, ch : a)
appendSpace (s, a) = (' ' : s, a)
appendAccToString (s, a) = (reverse a ++ s, [])
go = flip \case
' ' -> \acc -> case acc of
(s, []) -> appendSpace acc
(s, a) -> appendSpace $ appendAccToString acc
ch -> appendToAcc ch
[
зато у меня тут получилась исконно верная ассоциативность у (++) - хоть какой-то плюс
AP
> concatMap reverse . groupBy (on (&&) (not . isSpace)) $ "asd \n123 foo\tbar"
"dsa \n321 oof\trab"AP
А вы рекурсии пишете и свёртки
[
ну да, груп бай как-то редко пригождается, что забываешь, что он есть
AP
> rw = concatMap reverse . groupBy (on (&&) (not . isSpace))
> take 10 $ rw "asd \n123 foo\tbar" <> repeat '!'
"dsa \n321 "
Работает со стримомAP
> груп бай как-то редко пригождается
on — и того реже :)[
ну да кстати
AP
Но разве не в том и смысл, чтобы знать инструмент, который используешь? И тренировать навык, ставя перед собой задачу не писать рекурсию и вообще минимум функций объявлять смостоятельно. Так и познакомитесь со стандартной библиотекой. А Hoogle поможет
[
я его вроде 2 раза видел
один раз в каком-то примере вроде учебном, второй в сорсах вот тут
https://hackage.haskell.org/package/data-aviary-0.4.0/docs/Data-Aviary-Birds.html
один раз в каком-то примере вроде учебном, второй в сорсах вот тут
https://hackage.haskell.org/package/data-aviary-0.4.0/docs/Data-Aviary-Birds.html
EM
Ну так не интересно. Я сам хотел решить )))
[
ну так есть разные решения
[
моё не самое лучшее
EM
Оно мне показалось каким-то сложным. Я думал есть проще вариант.