new files

Task/Infinity/Ada/infinity-1.ada

@@ -0,0 +1,24 @@
+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

@@ -0,0 +1,26 @@
+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

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

Task/Infinity/C/infinity-1.c

@@ -0,0 +1,11 @@
+#include <math.h>	/* HUGE_VAL */
+#include <stdio.h>	/* printf() */
+
+double inf(void) {
+  return HUGE_VAL;
+}
+
+int main() {
+  printf("%g\n", inf());
+  return 0;
+}

Task/Infinity/CoffeeScript/infinity-1.coffee

@@ -0,0 +1 @@
+Infinity

Task/Infinity/Fortran/infinity-1.f

@@ -0,0 +1,18 @@
+program to_f_the_ineffable
+   use, intrinsic :: ieee_arithmetic
+   integer :: i
+   real dimension(2) :: y, x = (/ 30, ieee_value(y,ieee_positive_inf) /)
+
+   do i = 1, 2
+      if (ieee_support_datatype(x(i))) then
+         if (ieee_is_finite(x(i))) then
+            print *, 'x(',i,') is finite'
+         else
+            print *, 'x(',i,') is infinite'
+         end if
+
+      else
+         print *, 'x(',i,') is not in an IEEE-supported format'
+      end if
+   end do
+end program to_f_the_ineffable

Task/Infinity/Haskell/infinity-1.hs

@@ -0,0 +1,8 @@
+maxRealFloat :: RealFloat a => a -> a
+maxRealFloat x = encodeFloat b (e-1) `asTypeOf` x where
+  b     = floatRadix x - 1
+  (_,e) = floatRange x
+
+infinity :: RealFloat a => a
+infinity = if isInfinite inf then inf else maxRealFloat 1.0 where
+  inf = 1/0

Task/Infinity/Java/infinity-1.java

@@ -0,0 +1,2 @@
+double infinity = Double.POSITIVE_INFINITY; //defined as 1.0/0.0
+Double.isInfinite(infinity); //true

Task/Infinity/JavaScript/infinity-1.js

@@ -0,0 +1 @@
+Infinity

Task/Infinity/Perl/infinity-1.pl

@@ -0,0 +1,2 @@
+my $x = 0 + "inf";
+my $y = 0 + "+inf";

Task/Infinity/Python/infinity-1.py

@@ -0,0 +1,2 @@
+>>> float('infinity')
+inf

Task/Infinity/Ruby/infinity-1.rb

@@ -0,0 +1,10 @@
+a = 1.0/0       # => Infinity
+a.finite?       # => false
+a.infinite?     # => 1
+
+a = -1/0.0      # => -Infinity
+a.infinite?     # => -1
+
+a = Float::MAX  # => 1.79769313486232e+308
+a.finite?       # => true
+a.infinite?     # => nil

Task/Infinity/Smalltalk/infinity-1.st

@@ -0,0 +1,2 @@
+Float infinity -> INF
+1.0 / 0.0 -> "ZeroDivide exception"

Task/Infinity/Tcl/infinity-1.tcl

@@ -0,0 +1,6 @@
+package require Tcl 8.5
+
+expr {1.0 / 0}  ;# ==> Inf
+expr {-1.0 / 0} ;# ==> -Inf
+expr {inf}      ;# ==> Inf
+expr {1 / 0}    ;# ==> "divide by zero" error; Inf not part of range of integer division