Kahan summation: Difference between revisions

m
→‎{{header|Factor}}: calculate epsilon at parse time
(Add Factor)
m (→‎{{header|Factor}}: calculate epsilon at parse time)
Line 502:
<lang factor>USING: io kernel literals math math.extras prettyprint sequences ;
 
CONSTANT: epsilon ( -- x )$[ 1.0 [ dup 1 + 1 number= ] [ 2 /f ] until ;]
 
${ 1.0 epsilon dup neg }
1,808

edits