def sum_go

bend-collections-laws-crypto@1.0.0.0 · src/math/generic.bend:118

import Base
import bend-collections-laws-crypto@1.0.0.0/src/math/num.bend as N

118def sum_go(~T: Data, ~op: N.Op<T> -> T, ~test: N.Test<T> -> Bool, xs: List<&2, T>, acc: Maybe<&2, T>) -> Maybe<&2, T>:
119  match xs acc:
120    case Nil{} _:
121      acc
122    case Con{x, rest} None{}:
123      None{}
124    case Con{+x, rest} Some{+a}:
125      sum_go(~T, ~op, ~test, rest, cadd(~T, ~op, ~test, a, x))