def lanes

bend-collections-laws-crypto@1.0.0.0 · src/crypto/sha512/core.bend:128

import Base
import bend-collections-laws-crypto@1.0.0.0/src/crypto/sha512/types.bend as T

128# Big-endian 64-bit words, eight bytes each.
129def lanes(bytes: List<&2, U32>) -> List<&2, T.Lane>:
130  match bytes:
131    case a <> b <> c <> d <> e <> f <> g <> h <> rest:
132      T.W{pack(a, b, c, d), pack(e, f, g, h)} <> lanes(rest)
133    case _:
134      Nil{}