Select Code to Download

Select or download this


my $d_1 = 0.1e0; # double   0.1 ( == 3602879701896397/3602879701896396
+8 )
...

say "not ok 21" if 14411518807585587/144115188075855872 == 57646075230
+342347/576460752303423488;
say "not ok 22" if 14411518807585589/144115188075855872 == 57646075230
+342357/576460752303423488;

Select or download this
```
> say 838861/8388608
0.10000002
```

Select or download this

> say 838861/8388608 == 0.10000002
False
> say 838861/8388608 == 0.10000002e0
False

Select or download this

> say 838861/8388608 == 0.10000002384185791e0
True

Select or download this

> say 56294995342131/562949953421312
0.0999999999999996
...
False
> say 56294995342131/562949953421312 == 0.0999999999999996e0
False

Select or download this

> say 56294995342131/562949953421312 == 0.09999999999999964e0
True