RosettaCodeData/Task/Detect-division-by-zero/Pure/detect-division-by-zero-3.pure

6 lines
98 B
Plaintext

> divide n m = catch (\_ -> "divide by 0") (n div m);
> divide 0 1;
0
> divide 1 0;
"divide by 0"