langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Detect-division-by-zero/Standard-ML/detect-division-by-zero-1.ml
+++ b/Task/Detect-division-by-zero/Standard-ML/detect-division-by-zero-1.ml
@ -0,0 +1,4 @@
+fun div_check (x, y) = (
+  ignore (x div y);
+  false
+) handle Div => true
--- a/Task/Detect-division-by-zero/Standard-ML/detect-division-by-zero-2.ml
+++ b/Task/Detect-division-by-zero/Standard-ML/detect-division-by-zero-2.ml
@ -0,0 +1,2 @@
+fun div_check (x, y) =
+  not (Real.isFinite (x / y))