def cr.vm.l3keys

bend-osdev-crypto@0.1.0.0 · vmac.bend:322

import Base
import bend-osdev-word64@0.1.0.0/word64.bend as W

322# the L3 pairs of 64-bit words of the KDF bytes xs both below p64, in order
323def cr.vm.l3keys(xs: List<&2, W.W64>) -> List<&2, CrU128>:
324  match xs:
325    case Con{+a, Con{+b, t}}:
326      cr.vm.l3keys.pick(Bool.and(W.W64.is_lt(a, cr.vm.p64()), W.W64.is_lt(b, cr.vm.p64())), a, b, cr.vm.l3keys(t))
327    case _:
328      Nil{}