mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 11:13:36 +03:00
498421a236
This has caught a couple of things in the Idris 2 code base itself. Some tests needed partial annotations too.
37 lines
833 B
Idris
37 lines
833 B
Idris
module Main
|
||
|
||
import Data.List
|
||
|
||
%default partial
|
||
|
||
large : (a: Type) -> a
|
||
-- integer larger than 64 bits
|
||
large Integer = 3518437212345678901234567890123
|
||
-- int close to 2ˆ63
|
||
-- we expect some operations will overflow
|
||
large Int = 3518437212345678901234567890
|
||
|
||
small : (a: Type) -> a
|
||
small Integer = 437
|
||
small Int = 377
|
||
|
||
numOps : (Num a) => List ( a -> a -> a )
|
||
numOps = [ (+), (*) ]
|
||
|
||
negOps : (Neg a) => List (a -> a -> a)
|
||
negOps = [ (-) ]
|
||
|
||
integralOps : (Integral a) => List (a -> a -> a)
|
||
integralOps = [ div, mod ]
|
||
|
||
binOps : (Num a, Neg a, Integral a) => List (a -> a -> a)
|
||
binOps = numOps ++ negOps ++ integralOps
|
||
|
||
main : IO ()
|
||
main = do
|
||
putStrLn $ show (results Integer)
|
||
putStrLn $ show (results Int)
|
||
where
|
||
results : (a:Type) -> (Num a, Neg a, Integral a) => List a
|
||
results a = map (\ op => large a `op` small a) binOps
|