AlphaGitHub
Source/Packages

Compiler.NaturalMagnitude

packages/compiler/src/Compiler/NaturalMagnitude.alpha

453 lines33 declarations18.7 KiBSHA-256 8508c0c0b7d6
Download exact fileView at revisionf5034773ad4bb52133

def · lines 30–41

magnitudeDigitsValid

Full file
30def magnitudeDigitsValid =
31  (lambda unrestricted digits : Bytes .
32    (bytes-eliminate
33      (lambda unrestricted rest : Bytes . Nat)
34      (succ zero)
35      (lambda unrestricted head : Byte .
36        (lambda unrestricted tail : Bytes .
37          (lambda unrestricted continue : Nat .
38            (Std.Natural/naturalAnd
39              (nat-less-than (byte-to-nat head) (byte-to-nat (byte 10)))
40              continue))))
41      digits))

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.