7 lines
134 B
Factor
7 lines
134 B
Factor
SYMBOL: i
|
|
|
|
: sum ( i lo hi term -- x )
|
|
[ [a,b] ] dip pick [ inc ] curry compose map-sum nip ;
|
|
inline
|
|
|
|
i 1 100 [ recip ] sum .
|