Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,15 @@
PROGRAM INFINITY
EXCEPTION
PRINT("INFINITY")
ESCI%=TRUE
END EXCEPTION
BEGIN
ESCI%=FALSE
K=1
WHILE 2^K>0 DO
EXIT IF ESCI%
K+=1
END WHILE
END PROGRAM

View file

@ -0,0 +1,8 @@
' FB 1.05.0 Win64
#Include "crt/math.bi"
#Print Typeof(1.5) ' Prints DOUBLE at compile time
Dim d As Typeof(1.5) = INFINITY
Print d; " (String representation of Positive Infinity)"
Sleep

View file

@ -0,0 +1,3 @@
infinity
'<br />'
infinity -> type

View file

@ -0,0 +1,7 @@
x = (1-power(2, -53)) * power(2, 1023) * 2
put ilk(x), x
-- #float 1.79769313486232e308
x = (1-power(2, -53)) * power(2, 1023) * 3
put ilk(x), x, -x
-- #float INF -INF

View file

@ -0,0 +1 @@
inf

View file

@ -0,0 +1,2 @@
var f = inf
echo f

View file

@ -0,0 +1 @@
10 1000.0 powf dup println dup neg println 1 swap / println

View file

@ -0,0 +1,2 @@
constant infinity = 1e300*1e300
? infinity

View file

@ -0,0 +1,11 @@
var a = 1.5/0; # inf
say a.is_inf; # true
say a.is_pos; # true
var b = -1.5/0; # -inf
say b.is_inf; # true
say b.is_neg; # true
var inf = Math.inf;
var ninf = -Math.inf;
say (inf == -ninf); # true

View file

@ -0,0 +1,2 @@
let inf = Double.infinity
inf.isInfinite //true

View file

@ -0,0 +1,3 @@
func getInf() -> Double {
return Double.infinity
}

View file

@ -0,0 +1,2 @@
decl double d
set d Infinity

View file

@ -0,0 +1 @@
def infinite: 1e1000;

View file

@ -0,0 +1 @@
def isinfinite: . == infinite;