def run

bend-collections@1.0.0.0 · spec/crypto/secp256k1/curve.bend:50

import Base

50# (the first register is looked at first; the result is run_go's)
51def run(+p: Nat, prog: List<&2, SOp>, regs: List<&2, Nat>) -> List<&2, Nat>:
52  match regs:
53    case Nil{}: run_go(p, prog, Nil{})
54    case 0n <> t: run_go(p, prog, 0n <> t)
55    case (1n+k) <> t: run_go(p, prog, (1n+k) <> t)