mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-24 13:23:10 +03:00
16 lines
414 B
Idris
16 lines
414 B
Idris
|
import Stuff
|
||
|
|
|
||
|
|
(>>=) : (Maybe a) -> (a -> Maybe b) -> Maybe b
|
||
|
|
(>>=) Nothing k = Nothing
|
||
|
|
(>>=) (Just x) k = k x
|
||
|
|
|
||
|
|
mthings : (foo : Maybe (Maybe Int)) -> (bar : Maybe (Maybe Int)) -> Maybe Int
|
||
|
|
mthings mx my
|
||
|
|
= do Just x <- mx
|
||
|
|
| Nothing => Just 0
|
||
|
|
Just y <- my
|
||
|
|
| Nothing => Just 1
|
||
|
|
let z : Int -> Int
|
||
|
|
z x = prim__add_Int x y
|
||
|
|
Just (z (prim__add_Int x x))
|