def dec4

bend-collections-laws-crypto@1.0.0.0 · src/crypto/argon2/phc.bend:188

import Base

188def dec4(ma: Maybe<&2, U32>, mb: Maybe<&2, U32>, mc: Maybe<&2, U32>, md: Maybe<&2, U32>, mr: Maybe<&2, List<&2, U32>>) -> Maybe<&2, List<&2, U32>>:
189  match ma mb mc md mr:
190    case Some{+a} Some{+b} Some{+c} Some{+d} Some{rest}:
191      Some{byte_of(su(a), sv(a), sw(a), su(b)) <> byte_of(sv(b), sw(b), su(c), sv(c)) <> byte_of(sw(c), su(d), sv(d), sw(d)) <> rest}
192    case _ _ _ _ _:
193      None{}