safe f [] = Nothing
safe f xs = Just $ f xs
xmin a b
= safe
minimum $ catMaybes
[a
, b
]
main = do
print $ xmin
(Just
2) (Just
3) print $ xmin
(Nothing
) (Just
3) print $ xmin
(Just
2) (Nothing
)
aW1wb3J0IENvbnRyb2wuTW9uYWQKaW1wb3J0IERhdGEuTWF5YmUKCnNhZmUgZiBbXSA9IE5vdGhpbmcKc2FmZSBmIHhzID0gSnVzdCAkIGYgeHMKCnhtaW4gYSBiID0gc2FmZSBtaW5pbXVtICQgY2F0TWF5YmVzIFthLCBiXQoKbWFpbiA9IGRvCiAgIHByaW50ICQgeG1pbiAoSnVzdCAyKSAoSnVzdCAzKQogICBwcmludCAkIHhtaW4gKE5vdGhpbmcpIChKdXN0IDMpCiAgIHByaW50ICQgeG1pbiAoSnVzdCAyKSAoTm90aGluZykgICAKICAgcHJpbnQgJCB4bWluIChOb3RoaW5nOjpNYXliZSBJbnQpIChOb3RoaW5nKQ==