def bags_kept

unified-nsga-iii@0.2.2.0 · survival.bend:853

import Base

853def bags_kept(+ref: Nat, +count: Nat, members: List<&2, MRow>, rest: List<&2, Bag>) -> List<&2, Bag>:
854  match members:
855    case Nil{}:
856      rest
857    case +m <> +ms:
858      Bag{ref, 1n+count, {m <> ms : List<&2, MRow>}} <> rest