Help for this page

Select Code to Download

Select or download this

0 == 0 == 0
1 <= 1 <= 1
2 <= 2 <= 2
...
5.61779104644474e+306 <= 1e307 <= 1.12355820928895e+307
8.98846567431158e+307 <= 1e308 <= 1.#INF
8.90029543402881e-308 <= 1e-307 <= 1.78005908680576e-307

Select or download this

#!/usr/bin/perl -w
use strict;

...
    my $dir= (qw( < = > ))[ 1 + (0<=>$_) ];
    print prevPower2($_), " $dir= $_ $dir= ", nextPower2($_), $/;
}