def partition
import bendvy-ecs-core@0.1.0.3/owned_event_log.bend as OwnedEventLogimport Base
34def partition(~P:Type,rows:List<Row<P>>,+ids:List<&2,Nat>) -> List<Row<P>> & List<Row<P>>:
35 match rows:
36 case []:([],[])
37 case Row{+id,payload} <> rest:partitioned(~P,contains(ids,id),Row{id,payload},partition(~P,rest,ids))