8 lines
134 B
Factor
8 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 .
|