Replymessage unavailable
safeDivide :: Float -> Float -> Maybe Float
safeDivide _ 0 = Nothing
safeDivide x y = Just (x / y)
-- استفاده مونادی
computation :: Maybe Float
computation = do
a <- safeDivide 10 2 -- Just 5
b <- safeDivide a 2 -- Just 2.5
c <- safeDivide b 0 -- Nothing
return c -- نتیجه نهایی: Nothing