Idris2/tests/idris2/builtin006/Test.idr

data MyNat
    = Z
    | S MyNat MyNat

natToInt : MyNat -> Integer
natToInt Z = 0
natToInt (S k _) = 1 + natToInt k

%builtin NaturalToInteger natToInt
[ builtin ] O(1) natToInteger for any 'Nat'-like type (#1363) 2021-05-10 14:14:19 +03:00			`data MyNat`
			`= Z`
Refactor `%builtin` (#1803) * Stub for future 'identity' optimisation I plan to add this later, but I'm using for now for NaturalToInteger and IntegerToNatural * Refactor `%builtin` fixes #1799 - automatically optimise all Natural shaped things - NaturalToInteger and IntegerToNatural now use new `Identity` flag (internal use only for now) which signals the function is identity at runtime * Use NaturalToInteger and IntegerToNatural for Nat and Fin Also define show fin in terms of finToInteger, for speed * Fix name handling for %builtin * [ tests ] fixes + #1799 * remove %builtin from libs Add back after next version * Use resolved names where convenient 2021-08-03 16:19:17 +03:00			`\| S MyNat MyNat`
[ builtin ] O(1) natToInteger for any 'Nat'-like type (#1363) 2021-05-10 14:14:19 +03:00
			`natToInt : MyNat -> Integer`
			`natToInt Z = 0`
Refactor `%builtin` (#1803) * Stub for future 'identity' optimisation I plan to add this later, but I'm using for now for NaturalToInteger and IntegerToNatural * Refactor `%builtin` fixes #1799 - automatically optimise all Natural shaped things - NaturalToInteger and IntegerToNatural now use new `Identity` flag (internal use only for now) which signals the function is identity at runtime * Use NaturalToInteger and IntegerToNatural for Nat and Fin Also define show fin in terms of finToInteger, for speed * Fix name handling for %builtin * [ tests ] fixes + #1799 * remove %builtin from libs Add back after next version * Use resolved names where convenient 2021-08-03 16:19:17 +03:00			`natToInt (S k _) = 1 + natToInt k`
[ builtin ] O(1) natToInteger for any 'Nat'-like type (#1363) 2021-05-10 14:14:19 +03:00
			`%builtin NaturalToInteger natToInt`