def model_fold_step

stelliferous@0.0.2.0 · proofs/traversal_array_refinement.bend:93

import Base
import stelliferous@0.0.2.0/traversal_array.bend as Traversal

93def model_fold_step(~Model: Data,~Element: Data,~Accumulator: Data,~Context: Data,
94  ~sample: Model -> Context -> U32 -> Element,~combine: Accumulator -> Element -> Accumulator,
95  state: Traversal.State<&2,&2,Model,Accumulator,Context>) -> Traversal.State<&2,&2,Model,Accumulator,Context>:
96  Traversal.State{+reader,accumulator,+position,+context} = state
97  Traversal.State{reader,combine(accumulator,sample(reader,context,position)),(position + 1 : U32),context}