First commit of partial RosettaCode contents.

Pushing this for testing purposes. Lots of work still needed.

Task/Infinity/0DESCRIPTION

@@ -0,0 +1,5 @@
+Write a function which tests if infinity is supported for floating point numbers (this step should be omitted for languages where the language specification already demands the existence of infinity, e.g. by demanding [[IEEE]] numbers), and if so, returns positive infinity. Otherwise, return the largest possible positive floating point number.
+
+For languages with several floating point types, use the type of the literal constant 1.5 as floating point type.
+
+C.F. [[Extreme floating point values]]

Task/Infinity/1META.yaml

@@ -0,0 +1,4 @@
+---
+category:
+- Discrete math
+note: Basic language learning

Task/Infinity/AWK/infinity.awk

@@ -0,0 +1,6 @@
+  BEGIN {
+    k=1;
+    while (2^(k-1) < 2^k) k++;
+    INF = 2^k;
+    print INF;
+  }

Task/Infinity/C/infinity-2.c

@@ -0,0 +1,9 @@
+#define _ISOC99_SOURCE
+
+#include <math.h>
+#include <stdio.h>
+
+int main() {
+  printf("%g\n", INFINITY);
+  return 0;
+}

Task/Infinity/C/infinity.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-2.coffee

@@ -0,0 +1,2 @@
+Number.POSITIVE_INFINITY
+Number.NEGATIVE_INFINITY

Task/Infinity/CoffeeScript/infinity-3.coffee

@@ -0,0 +1 @@
+isFinite x

Task/Infinity/CoffeeScript/infinity.coffee

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

Task/Infinity/Forth/infinity.fth

@@ -0,0 +1,7 @@
+: inf ( -- f ) 1e 0e f/ ;
+inf f.    \ implementation specific. GNU Forth will output "inf"
+
+: inf? ( f -- ? ) s" MAX-FLOAT" environment? drop f> ;
+\ IEEE infinity is the only value for which this will return true
+
+: has-inf ( -- ? ) ['] inf catch if false else inf? then ;

Task/Infinity/Fortran/infinity-2.f

@@ -0,0 +1,2 @@
+real :: x
+real :: huge_real = huge(x)

Task/Infinity/Fortran/infinity.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/Go/infinity.go

@@ -0,0 +1,19 @@
+package main
+
+import (
+    "fmt"
+    "math"
+)
+
+// function called for by task
+func posInf() float64 {
+    return math.Inf(1) // argument specifies positive infinity
+}
+
+func main() {
+    x := 1.5 // type of x determined by literal
+    // that this compiles demonstrates that PosInf returns same type as x,
+    // the type specified by the task.
+    x = posInf()                     // test function
+    fmt.Println(x, math.IsInf(x, 1)) // demonstrate result
+}

Task/Infinity/Haskell/infinity-2.hs

@@ -0,0 +1,4 @@
+*Main> infinity :: Float
+Infinity
+*Main> infinity :: Double
+Infinity

Task/Infinity/Haskell/infinity-3.hs

@@ -0,0 +1,4 @@
+Prelude> 1 / 0 :: Float
+Infinity
+Prelude> 1 / 0 :: Double
+Infinity

Task/Infinity/Haskell/infinity-4.hs

@@ -0,0 +1,4 @@
+Prelude> read "Infinity" :: Float
+Infinity
+Prelude> read "Infinity" :: Double
+Infinity

Task/Infinity/Haskell/infinity.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-2.java

@@ -0,0 +1,3 @@
+public static double getInf(){
+   return Double.POSITIVE_INFINITY;
+}

Task/Infinity/Java/infinity-3.java

@@ -0,0 +1 @@
+double biggestNumber = Double.MAX_VALUE;

Task/Infinity/Java/infinity.java

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

Task/Infinity/JavaScript/infinity-2.js

@@ -0,0 +1,2 @@
+Number.POSITIVE_INFINITY
+Number.NEGATIVE_INFINITY

Task/Infinity/JavaScript/infinity-3.js

@@ -0,0 +1 @@
+isFinite(x)

Task/Infinity/JavaScript/infinity.js

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

Task/Infinity/Lua/infinity.lua

@@ -0,0 +1,3 @@
+function infinity()
+  return 1/0 --lua uses unboxed C floats for all numbers
+end

Task/Infinity/PHP/infinity.php

@@ -0,0 +1 @@
+INF

Task/Infinity/Perl/infinity-2.pl

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

Task/Infinity/Perl/infinity-3.pl

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

Task/Infinity/Perl/infinity-4.pl

@@ -0,0 +1 @@
+my $x = 1e1000;

Task/Infinity/Perl/infinity-5.pl

@@ -0,0 +1 @@
+my $y = 10**10**10;

Task/Infinity/Perl/infinity-6.pl

@@ -0,0 +1,3 @@
+use bigint;
+my $x = 1e1000;
+my $y = 10**10**10;

Task/Infinity/Perl/infinity-7.pl

@@ -0,0 +1,3 @@
+use bigint;
+my $x = inf;
+my $y = -inf;

Task/Infinity/Perl/infinity.pl

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

Task/Infinity/PicoLisp/infinity.l

@@ -0,0 +1,4 @@
+(load "@lib/math.l")
+
+: (exp 1000.0)
+-> T

Task/Infinity/Python/infinity-2.py

@@ -0,0 +1,4 @@
+>>> 1.0 / 0.0
+Traceback (most recent call last):
+  File "<stdin>", line 1, in <module>
+ZeroDivisionError: float division

Task/Infinity/Python/infinity.py

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

Task/Infinity/Ruby/infinity-2.rb

@@ -0,0 +1 @@
+a = Float::INFINITY       # => Infinity

Task/Infinity/Ruby/infinity.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/Scala/infinity.scala

@@ -0,0 +1,11 @@
+scala> 1 / 0.
+res2: Double = Infinity
+
+scala> -1 / 0.
+res3: Double = -Infinity
+
+scala> 1 / Double.PositiveInfinity
+res4: Double = 0.0
+
+scala> 1 / Double.NegativeInfinity
+res5: Double = -0.0

Task/Infinity/Tcl/infinity-2.tcl

@@ -0,0 +1,11 @@
+% format %lx -1      ;# all bits set
+ffffffffffffffff
+
+% regsub f 0x[format %lx -1] 7 ;# unset the sign bit for positive
+0x7fffffffffffffff
+
+% set ii [expr [regsub f 0x[format %lx -1] 7]] ;# show as decimal
+9223372036854775807
+
+% incr ii
+9223372036854775808 ;# silently upgrade to unbounded integer, still positive

Task/Infinity/Tcl/infinity.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