langs a-z

Task/Extreme-floating-point-values/OCaml/extreme-floating-point-values.ocaml

@@ -0,0 +1,32 @@
+# infinity;;
+- : float = infinity
+# neg_infinity;;
+- : float = neg_infinity
+# nan;;
+- : float = nan
+# -0.;;
+- : float = -0.
+# -. 0.;;
+- : float = -0.
+# 1. /. 0.;;
+- : float = infinity
+# -1. /. 0.;;
+- : float = neg_infinity
+# -. infinity;;
+- : float = neg_infinity
+# infinity +. neg_infinity;;
+- : float = nan
+# 0. /. 0.;;
+- : float = nan
+# infinity /. infinity;;
+- : float = nan
+# nan = nan;;
+- : bool = false
+# nan == nan;;
+- : bool = true
+# 0. *. infinity;;
+- : float = nan
+# 0. = -0.;;
+- : bool = true
+# 0. == -0.;;
+- : bool = false

Task/Extreme-floating-point-values/Oz/extreme-floating-point-values-1.oz

@@ -0,0 +1,24 @@
+declare
+Inf = 1.0e234 * 1.0e234
+MinusInf = 1.0e234 * ~1.0e234
+Zero = 1.0 / Inf
+MinusZero = 1.0 / MinusInf
+NaN = 0.0 / 0.0
+
+{System.showInfo "infinite: "#Inf}
+{System.showInfo "-infinite: "#MinusInf}
+{System.showInfo "0: "#Zero}
+{System.showInfo "-0: "#MinusZero}  %% seems to be identical to Zero
+{System.showInfo "NaN: "#NaN}
+
+{System.showInfo "inf + -inf: "#Inf+MinusInf}
+{System.showInfo "NaN * 0: "#NaN*0.0}
+{System.showInfo "0 * NaN: "#0.0*NaN}
+{System.showInfo "inf * 0: "#Inf*0.0}
+{System.showInfo "0 * inf: "#0.0*Inf}
+
+{Show NaN == NaN}  %% shows 'true' !
+{Show Zero == MinusZero}
+
+{Show 1.0/0.0 == Inf} %% true
+{Show 1.0/~0.0 == MinusInf} %% true

Task/Extreme-floating-point-values/Oz/extreme-floating-point-values-2.oz

@@ -0,0 +1,14 @@
+infinite: 1.#INF
+-infinite: -1.#INF
+0: 0.0
+-0: 0.0
+NaN: -1.#IND
+inf + -inf: -1.#IND
+NaN * 0: -1.#IND
+0 * NaN: -1.#IND
+inf * 0: -1.#IND
+0 * inf: -1.#IND
+true
+true
+true
+true

Task/Extreme-floating-point-values/Perl-6/extreme-floating-point-values.pl6

@@ -0,0 +1,14 @@