如何使用单片眼镜修改嵌套地图和scala中的另一个字段
How to use monocle to modify a nested map and another field in scala
我第一次尝试单片眼镜
案例class:
case class State(mem: Map[String, Int], pointer: Int)
我想使用标准 Scala 进行当前修改:
def add1 = (s: State) => s.copy(
mem = s.mem.updated("a", s.mem("a") + 1),
pointer = s.pointer + 1
)
这是我用单片眼镜实现的
val mem = GenLens[State](_.mem)
val pointer = GenLens[State](_.pointer)
val add2 = (mem composeLens at("a")).modify(_.map(_ + 1)) andThen pointer.modify(_ + 1)
不幸的是,代码并不清晰……
- 有没有更简洁的方法?
- 我们可以用宏生成所有样板文件吗?
[更新] 我想出了一个组合器
def combine[S, A, B](lsa : Lens[S, A], f: A => A, lsb: Lens[S, B], g: B => B) : S => S = { s =>
val a = lsa.get(s)
val b = lsb.get(s)
val s2 = lsa.set(f(a))
val s3 = lsb.set(g(b))
s2(s3(s))
}
问题是我还需要出一个中介没用的S
[update2] 我已经清理了组合器的代码。
def mergeLens[S, A, B](lsa : Lens[S, A], lsb : Lens[S, B]) : Lens[S, (A, B)] =
Lens.apply[S, (A, B)](s => (lsa.get(s), lsb.get(s)))(t => (lsa.set(t._1) andThen lsb.set(t._2)))
def combine[S, A, B](lsa : Lens[S, A], f: A => A, lsb: Lens[S, B], g: B => B) : S => S = {
mergeLens(lsa, lsb).modify { case (a, b) => (f(a), g(b)) }
}
您可以使用 index
而不是 at
获得稍微短一点的版本:
(mem composeOptional index("a")).modify(_ + 1) andThen pointer.modify(_ + 1)
但是,如果两个Lenses
指向同一字段,mergeLens
也称为水平组合不满足Lens
定律:
import monocle.macros.GenLens
case class Person(name: String, age: Int)
val age = GenLens[Person](_.age)
val age2 = mergeLens(age, age)
val john = Person("John", 25)
age2.get(age2.set((5, 10))(john)) != (5, 10)
我第一次尝试单片眼镜
案例class:
case class State(mem: Map[String, Int], pointer: Int)
我想使用标准 Scala 进行当前修改:
def add1 = (s: State) => s.copy(
mem = s.mem.updated("a", s.mem("a") + 1),
pointer = s.pointer + 1
)
这是我用单片眼镜实现的
val mem = GenLens[State](_.mem)
val pointer = GenLens[State](_.pointer)
val add2 = (mem composeLens at("a")).modify(_.map(_ + 1)) andThen pointer.modify(_ + 1)
不幸的是,代码并不清晰……
- 有没有更简洁的方法?
- 我们可以用宏生成所有样板文件吗?
[更新] 我想出了一个组合器
def combine[S, A, B](lsa : Lens[S, A], f: A => A, lsb: Lens[S, B], g: B => B) : S => S = { s =>
val a = lsa.get(s)
val b = lsb.get(s)
val s2 = lsa.set(f(a))
val s3 = lsb.set(g(b))
s2(s3(s))
}
问题是我还需要出一个中介没用的S
[update2] 我已经清理了组合器的代码。
def mergeLens[S, A, B](lsa : Lens[S, A], lsb : Lens[S, B]) : Lens[S, (A, B)] =
Lens.apply[S, (A, B)](s => (lsa.get(s), lsb.get(s)))(t => (lsa.set(t._1) andThen lsb.set(t._2)))
def combine[S, A, B](lsa : Lens[S, A], f: A => A, lsb: Lens[S, B], g: B => B) : S => S = {
mergeLens(lsa, lsb).modify { case (a, b) => (f(a), g(b)) }
}
您可以使用 index
而不是 at
获得稍微短一点的版本:
(mem composeOptional index("a")).modify(_ + 1) andThen pointer.modify(_ + 1)
但是,如果两个Lenses
指向同一字段,mergeLens
也称为水平组合不满足Lens
定律:
import monocle.macros.GenLens
case class Person(name: String, age: Int)
val age = GenLens[Person](_.age)
val age2 = mergeLens(age, age)
val john = Person("John", 25)
age2.get(age2.set((5, 10))(john)) != (5, 10)