Select Code to Download

print "Division by N\n";
for my $n (1..100) {
    if ( $n/100 == 0.01*$n ) { print "t" }
...
Division by N
ttttttttttttttttttttttttttttttttttntttttntttttntttttttttntttttttttttnn
+tttttttttttnnttttttttttnnttttt

if (( x - y ) > epsilon ) then true

perl -e 'our $sum;for(1..1000000){$sum+=0.00000001};printf "%1.20f\n",
+ $sum'
0.00999999999994859168

perl -e 'printf "%0.20f\n", 2/0x1000000'     [11:08am]
0.00000011920928955078