[
Prelude> let dup a = (a,a) in snd . foldl1 (\(x,y) (w,z) -> (z,x)) . map dup $ [1..5]
4
я не знаю, как, но оно работает
я не знаю, как, но оно работает
Size: a a a
2021 July 04
я не знаю, как, но оно работает
A
(fromJust $ foldr (\x y -> y <|> Just x) Nothing) [1, 2, 3]
[
а, оно работает потому что foldl, а не foldr
[
в задании надо foldr1
A
так с ним совсем просто
A
.
[
надо предпоследний
A
а ок понял
[
нужно получить 4
A
snd $ foldr1 (\x y -> if (fst y) then y else (True, snd x)) . fmap ((,) False) $ [1..5]A
Самый тупой вариант)
[
ладно
[
хотя сохранение состояния в true это тупо
[
и способ хуёво расширяется
[
разве что на int перейти
A
можно вместо була инт использовать
A
ага
A
Можно так ещё
let Left u = foldr1 (\x y -> y >> x >>= Left) . map Right $ [1..5] in uA
Без булов
[