Data update

Task/Extreme-floating-point-values/MiniScript/extreme-floating-point-values.mini

@@ -0,0 +1,22 @@
+import "listUtil"
+
+toBoolStr = function(n)
+  if n == 0 then return "false"
+  return "true"
+end function
+
+// create 'extreme' values from 'normal' values
+negZero = -0
+inf     =  1 / 0
+negInf  = -1 / 0
+nan     =  0 / 0
+
+// print them and do some arithmetic on them
+print [inf, negInf, nan, negZero]
+print [inf + inf, negInf + inf, inf * nan, nan * nan]
+print [inf/inf, negInf/2, nan + inf, negZero/0]
+
+// show some comparisons
+comps = [negZero == 0, inf == -inf, inf == nan, nan == nan]
+comps.apply @toBoolStr
+print comps

Task/Extreme-floating-point-values/Standard-ML/extreme-floating-point-values-1.ml

@@ -0,0 +1,20 @@
+let val inf = 1.0/0.0
+    val ninf = ~1.0/0.0
+    val nzero = ~0.0
+    val nan = 0.0/0.0
+    fun f (s, x) = print (s ^ " \t= " ^ Real.toString x ^ "\n")
+    fun g (s, x) = print (s ^ " \t= " ^ Bool.toString x ^ "\n")
+in app f [("positive infinity", inf),
+          ("negative infinity", ninf),
+          ("negative zero", nzero),
+          ("not a number", nan),
+          ("+inf + 2.0", inf + 2.0),
+          ("+inf - 10.1", inf - 10.1),
+          ("+inf + -inf", inf + ninf),
+          ("0.0 * +inf", 0.0 * inf),
+          ("1.0/-0.0", 1.0 / nzero),
+          ("NaN + 1.0", nan + 1.0),
+          ("NaN + NaN", nan + nan)];
+   app g [("NaN == NaN", Real.==(nan, nan)),
+          ("0.0 == -0.0", Real.==(0.0, nzero))]
+end

Task/Extreme-floating-point-values/Standard-ML/extreme-floating-point-values-2.ml

@@ -0,0 +1,13 @@
+positive infinity 	= inf
+negative infinity 	= ~inf
+negative zero 	= ~0.0
+not a number 	= nan
++inf + 2.0 	= inf
++inf - 10.1 	= inf
++inf + -inf 	= nan
+0.0 * +inf 	= nan
+1.0/-0.0 	= ~inf
+NaN + 1.0 	= nan
+NaN + NaN 	= nan
+NaN == NaN 	= false
+0.0 == -0.0 	= true