mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +03:00
34 lines
675 B
Idris
34 lines
675 B
Idris
|
|
||
|
|
foo : Either (Either () ()) () -> String
|
||
|
|
foo (Left (Left ())) = "Left Left"
|
||
|
|
foo (Left (Right ())) = "Left Right"
|
||
|
|
foo (Right ()) = "Right"
|
||
|
|
|
||
|
|
bah : List Nat -> Nat
|
||
|
|
bah [] = 0
|
||
|
|
bah (x :: xs) = x + bah xs
|
||
|
|
|
||
|
|
baz : Int -> Int
|
||
|
|
baz 10 = -1
|
||
|
|
baz _ = -2
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
-- primitives
|
||
|
|
printLn $ the Int $ 10 + 11 * 92
|
||
|
|
printLn $ the Bits32 $ 8 * 9 * 10
|
||
|
|
printLn $ the Integer $ 19 * 19
|
||
|
|
|
||
|
|
-- pattern matching
|
||
|
|
putStrLn $ foo $ Left (Left ())
|
||
|
|
putStrLn $ foo $ Right ()
|
||
|
|
putStrLn $ foo $ Left (Right ())
|
||
|
|
|
||
|
|
-- recursion
|
||
|
|
printLn $ bah [0 .. 10]
|
||
|
|
printLn $ bah [11, 2]
|
||
|
|
|
||
|
|
-- primitive pattern matching
|
||
|
|
printLn $ baz 10
|
||
|
|
printLn $ baz (-100)
|