remove _ in names

This commit is contained in:
Ingy döt Net 2013-04-10 12:38:21 -07:00
parent 829db87c40
commit 3af7344581
1270 changed files with 0 additions and 18916 deletions

View file

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

View file

@ -1 +0,0 @@
Infinity

View file

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

View file

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

View file

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

View file

@ -1 +0,0 @@
Infinity

View file

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

View file

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

View file

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

View file

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

View file

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