14 lines
481 B
Factor
14 lines
481 B
Factor
USING: formatting generalizations kernel math math.functions ;
|
|
|
|
100000000000000.01 100000000000000.011
|
|
100.01 100.011
|
|
10000000000000.001 10000.0 /f 1000000000.0000001000
|
|
0.001 0.0010000001
|
|
0.000000000000000000000101 0.0
|
|
2 sqrt dup * 2.0
|
|
2 sqrt dup neg * -2.0
|
|
3.14159265358979323846 3.14159265358979324
|
|
|
|
[ 2dup -1e-15 ~ "%+47.30f %+47.30f -1e-15 ~ : %u\n" printf ]
|
|
2 8 mnapply
|