mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +03:00
21 lines
424 B
Idris
21 lines
424 B
Idris
|
natToInt : Nat -> Integer
|
||
|
|
natToInt Z = 0
|
||
|
|
natToInt (S k) = 1 + natToInt k
|
||
|
|
|
||
|
|
%builtin NaturalToInteger natToInt
|
||
|
|
|
||
|
|
lt : Nat -> Nat -> Bool
|
||
|
|
lt Z Z = False
|
||
|
|
lt Z _ = True
|
||
|
|
lt (S j) (S k) = lt j k
|
||
|
|
lt (S _) Z = False
|
||
|
|
|
||
|
|
%transform "lt" lt j k = intToBool (prim__lt_Integer (natToInt j) (natToInt k))
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
printLn $ natToInt 3141592
|
||
|
|
printLn $ natToInt 12345
|
||
|
|
printLn $ lt 100 1000
|
||
|
|
printLn $ lt 9566 7554
|