使用`lens`相当于`span`是什么？

Question

假设我有

data SumType = A | B | C

list = [A, B, B, A, C, A]

(as, rest) = span (\case A -> True; _ -> False) list

假设我有棱镜_A，是否有一种方法可以更简洁地使用它来书写lens？

Answer 1

你可以说

(as, rest) = break (isn't _A) list

isn't在Control.Lens.Prism中定义。不幸的是is' p = not . isn't p，尽管没有似乎相应的功能

(as, rest) = span (isRight . matching _A) list

也可以。