remove _ in names
This commit is contained in:
parent
829db87c40
commit
3af7344581
1270 changed files with 0 additions and 18916 deletions
|
|
@ -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;
|
||||
}
|
||||
|
|
@ -1 +0,0 @@
|
|||
Infinity
|
||||
|
|
@ -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
|
||||
|
|
@ -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
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
double infinity = Double.POSITIVE_INFINITY; //defined as 1.0/0.0
|
||||
Double.isInfinite(infinity); //true
|
||||
|
|
@ -1 +0,0 @@
|
|||
Infinity
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
my $x = 0 + "inf";
|
||||
my $y = 0 + "+inf";
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
>>> float('infinity')
|
||||
inf
|
||||
|
|
@ -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
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
Float infinity -> INF
|
||||
1.0 / 0.0 -> "ZeroDivide exception"
|
||||
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue