22 lines
383 B
Haskell
22 lines
383 B
Haskell
mydiv x y =
|
|
x >>= (\numer ->
|
|
y >>= (\denom ->
|
|
if denom > 0
|
|
then Just $ numer `div` denom
|
|
else Nothing))
|
|
|
|
mydiv' x y = do
|
|
numer <- x
|
|
denom <- y
|
|
if denom > 0
|
|
then return $ numer `div` denom
|
|
else Nothing
|
|
|
|
test1 = (Just 99) `mydiv` (Just 11)
|
|
test1' = (Just 99) `mydiv'` (Just 11)
|
|
|
|
test2 = (Just 9) `mydiv` (Just 0)
|
|
test2' = (Just 9) `mydiv'` (Just 0)
|
|
|
|
|