22 lines
591 B
Raku
22 lines
591 B
Raku
for
|
|
100000000000000.01, 100000000000000.011,
|
|
100.01, 100.011,
|
|
10000000000000.001 / 10000.0, 1000000000.0000001000,
|
|
0.001, 0.0010000001,
|
|
0.000000000000000000000101, 0.0,
|
|
sqrt(2) * sqrt(2), 2.0,
|
|
-sqrt(2) * sqrt(2), -2.0,
|
|
100000000000000003.0, 100000000000000004.0,
|
|
3.14159265358979323846, 3.14159265358979324
|
|
|
|
-> $a, $b {
|
|
say "$a ≅ $b: ", $a ≅ $b;
|
|
}
|
|
|
|
say "\nTolerance may be adjusted.";
|
|
|
|
say 22/7, " ≅ ", π, ": ", 22/7 ≅ π;
|
|
{ # Localize the tolerance to only this block
|
|
my $*TOLERANCE = .001;
|
|
say 22/7, " ≅ ", π, ": ", 22/7 ≅ π;
|
|
}
|