AG
Size: a a a
AG
к
ЗП
(a, b) -> fmap (a ,) b
strange
к
ЗП
strength :: Functor f => a -> f b -> f (a,b)
strength = fmap . (,)
a
type Lens s t a b = Functor f => (a -> f b) -> s -> f t
strength :: Lens s t (f a) a -> s -> f t
strength = ($ id)
ex1 = strength _2 ("meme", [1..4]) == [("meme", 1), ("meme", 2), ("meme", 3), ("meme", 4)]
Oℕ
AG
P
Oℕ
P
Oℕ
Oℕ
Oℕ
P
к
P
P
к
KV