~/jendhub

def chain_fits

bend-collections@1.0.0.0 · src/containers/internal/intrusive_list.bend:347

import bend-collections@1.0.0.0/src/containers/internal/intrusive_list.bend as IntrusiveList
import Base

347def chain_fits(~S: Type, ~N: Data, ~next: S -> N -> S & Maybe<&2, N>, +fuel: Nat, r: S & Maybe<&2, N>) -> S & Bool:
348  match fuel r:
349    case _ Tuple{s, None{}}: (s, True{})
350    case 0n Tuple{s, Some{node}}: (s, False{})
351    case 1n+p Tuple{s, Some{node}}:
352      chain_fits(~S, ~N, ~next, p, next(s, node))

Uses (5)

Used by (1)