EM
Понял. Спасибо. Помозгую ещё.
Size: a a a
2021 December 10
И
если у тебя есть рекурсивный вызов, то накопленный результат можно просто передавать аргументом в функцию
zt
unwords . map reverse . words
A
пробелы не сохранит
zt
Да?
O
да
2021 December 11
A
Prelude> (unwords . map reverse . words) "hello world"
"olleh dlrow"
"olleh dlrow"
A
было два, стало один
O
"олег дароу"
И
ты имеешь в виду что типо такого матчинга?
rev (' ':xs) = undefined
rev (x:xs) = undefinedA
ага
A
и с рекурсией
A
собссно три строчки получилось
И
ну и с каким то аккумулятором видимо еще :)
A
даже двумя 8)
ЗП
можно линзами)
AP
Вообще можно обойтить base'овыми Data.List.break и Data.List.takeWhile
AP
λ> :m +Data.List
λ> :m +Data.Char
λ> rw [] = []; rw xs = let (w, ws) = break isSpace xs in reverse w <> ks ws; ks [] = []; ks xs = let (s, ss) = break (not . isSpace) xs in s <> rw ss
λ> rw "asd fgh jkl"
"dsa hgf lkj"
AP
break хватило
AP
rw [] = []
rw xs =
let (w, ws) = break isSpace xs
in reverse w <> ks ws
ks [] = []
ks xs =
let (s, ss) = break (not . isSpace) xs
in s <> rw ss
(rw == "reverseWords", "ks" == "keepSpaces", просто я в репле экономил символы)Машина состояний :)