AlphaGitHub
Source/Packages

Data.JSON

packages/foundation/standard/src/Data/JSON.alpha

2,617 lines251 declarations113.9 KiBSHA-256 bd63da5ed186
Download exact fileView at revision426597bda5753d86c4

def · lines 918–926

jsonTakeDigitsWithFuel

Full file
First-order leading-digit scan: fold the step `fuel` times over a VALUE accumulator (no function-valued fold, no tail-forcing `bytes-eliminate`).
918def jsonTakeDigitsWithFuel =
919  (lambda unrestricted fuel : Nat .
920    (lambda unrestricted input : Bytes .
921      (nat-eliminate
922        (lambda unrestricted current : Nat . (family JSONDigitSplit))
923        (constructor JSONDigitSplit JSONDigitSplitValue (bytes-builder-empty) input zero)
924        (lambda unrestricted predecessor : Nat .
925          (lambda unrestricted induction : (family JSONDigitSplit) . (jsonTakeDigitsStep induction)))
926        fuel)))

The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.