Data update

Task/Infinity/Ada/infinity-1.ada

@@ -1,24 +0,0 @@
-with Ada.Text_IO; use Ada.Text_IO;
-
-procedure Infinities is
-   function Sup return Float is -- Only for predefined types
-      Result : Float := Float'Last;
-   begin
-      if not Float'Machine_Overflows then
-         Result := Float'Succ (Result);
-      end if;
-      return Result;
-   end Sup;
-
-   function Inf return Float is -- Only for predefined types
-      Result : Float := Float'First;
-   begin
-      if not Float'Machine_Overflows then
-         Result := Float'Pred (Result);
-      end if;
-      return Result;
-   end Inf;
-begin
-   Put_Line ("Supremum" & Float'Image (Sup));
-   Put_Line ("Infimum " & Float'Image (Inf));
-end Infinities;

Task/Infinity/Ada/infinity-2.ada

@@ -1,26 +0,0 @@
-with Ada.Text_IO; use Ada.Text_IO;
-
-procedure Infinities is
-   type Real is digits 5 range -10.0..10.0;
-
-   function Sup return Real is
-      Result : Real := Real'Last;
-   begin
-      return Real'Succ (Result);
-   exception
-      when Constraint_Error =>
-         return Result;
-   end Sup;
-
-   function Inf return Real is
-      Result : Real := Real'First;
-   begin
-      return Real'Pred (Result);
-   exception
-      when Constraint_Error =>
-         return Result;
-   end Inf;
-begin
-   Put_Line ("Supremum" & Real'Image (Sup));
-   Put_Line ("Infimum " & Real'Image (Inf));
-end Infinities;

Task/Infinity/Ada/infinity-3.ada

@@ -1 +0,0 @@
-subtype Safe_Float is Float range Float'Range;

Task/Infinity/Arturo/infinity.arturo

@@ -1,2 +1,2 @@
-print infinity
-print neg infinity
+print infinite
+print neg infinite

Task/Infinity/Euphoria/infinity.ex

@@ -1,3 +0,0 @@
-constant infinity = 1E400
-
-? infinity -- outputs "inf"

Task/Infinity/PowerShell/infinity.psh

@@ -1,3 +0,0 @@
-function infinity {
-    [double]::PositiveInfinity
-}