5 lines
139 B
Forth
5 lines
139 B
Forth
: test-f~ ( f1 f2 -- )
|
|
1e-18 \ epsilon
|
|
f~ \ AproximateEqual
|
|
if ." True" else ." False" then
|
|
;
|