A
Size: a a a
A
AA
AA
stack scriptAA
AA
AA
AV
AV
AA
pred :: a -> IO Boolxs :: [a]filter :: Monad m => (a -> m Bool) -> [a] -> m [a]take 10 поднятое fmap, или через do нотацию – ничего не происходит, точнее вычисления пытаются дойти до конца бесконечного списка. Как обойти такую проблему?a = return [1..] :: IO [Int]
take 10 <$> a
AA
AA
PM
AV
NI
MK
AV
AV
AV
AV
AV
v & key "foo" %~ view (key "bar" . _JSON . to(f))