def to_each

near-v-framework@0.4.0.0 · domain/architecture/view/ops.bend:288

import Base
import near-v-framework@0.4.0.0/general/compound/edge/type.bend as E

288def to_each(ps: List<&2, Placed>, +from: String, +y: String, +d: String, +t: String, +rest: List<&2, E.Edge>) -> List<&2, E.Edge>:
289  match ps:
290    case []:
291      rest
292    case p <> more:
293      match p:
294        case Placed{pk, +pp}:
295          keep_edge(String.eq(pk, y) && Bool.not(String.eq(from, pp)), E.Edge{from, pp, d, t}, to_each(more, from, y, d, t, rest))