JS
тут обосновывают, что таки да http://fprog.ru/2011/issue7/
> unconsRight [] = Nothing; unconsRight [x] = Just (x, []); unconsRight (x:xs) = fmap (x:) <$> unconsRight xs
> unconsRight "Hello!"
Just ('!',"Hello")
я сделяльSize: a a a
2021 June 02
AP
[
у тебя санки копиться будут
[
palindrom :: String -> Bool
palindrom (firstCh:s@(_:_)) | firstCh == lastCh = palindrom body
where
(body, lastCh) = go [] s
go l [x] = (l, x)
go l (x:xs) = go (x:l) xs
palindrom [_] = True
palindrom [ ] = True
palindrom _ = False
[
да это понятно, что в хаскеле это выражается в 0.5 символов, я просто хотел повторить рефаловский алгоритм))))
AP
Цель была сделать в один проход как-нибудь
MK
stalin dome
[
давайте, давайте, придирайтесь к тому, что я английский сам учил
[
больше унижений!
MK
это не придирка и не унижение, а поправка чтобы ты узнал как правильно и больше не ошибался)
[
чисто теоретически, моё решение медленнее, потому что оно где-то около квадрата
[
а наивное - линия
[
моё решение делает
n + (n-2) + (n - 4) + (n - 6) + ... операций, а наивное n * 2