def batch

stelliferous@0.0.2.0 · proofs/traversal_batch_refinement.bend:17

import Base
import stelliferous@0.0.2.0/proofs/storage_tree_model.bend as Tree

17def batch(~Element: Data,~Context: Data,~map: Context -> U32 -> Element -> Element,count: Nat,+position: U32,+context: Context,+source: Tree.Tree<Element>,
18  target: Tree.Tree<Element>) -> Tree.Tree<Element>:
19  match count:
20    case 0n: target
21    case 1n+rest:
22      batch(~Element,~Context,~map,rest,(position + 1 : U32),context,source,Tree.write(Element,target,position,map(context,position,Tree.read(Element,source,position))))