12 lines
416 B
Smalltalk
12 lines
416 B
Smalltalk
{ #(100000000000000.01 100000000000000.011) .
|
|
#(100.01 100.011) .
|
|
{10000000000000.001 / 10000.0 . 1000000000.0000001000} .
|
|
#(0.001 0.0010000001) .
|
|
#(0.000000000000000000000101 0.0) .
|
|
{ 2 sqrt * 2 sqrt . 2.0} .
|
|
{ 2 sqrt negated * 2 sqrt . -2.0} .
|
|
#(3.14159265358979323846 3.14159265358979324)
|
|
} pairsDo:[:val1 :val2 |
|
|
Stdout printCR: e'{val1} =~= {val2} -> {val1 isAlmostEqualTo:val2 nEpsilon:2}'
|
|
]
|