Anonymous user
Sum of a series: Difference between revisions
Forth, generic on bounds and function
(added D code) |
(Forth, generic on bounds and function) |
||
Line 47:
writef("sum@[1..1000] = ", series(&term, 1000)) ;
}</pre>
=={{header|Forth}}==
: sum ( fn start count -- fsum )
0e
bounds do
i s>d d>f dup execute f+
loop drop ;
:noname ( x -- 1/x^2 ) fdup f* 1/f ; ( xt )
1 1000 sum f. \ 1.64393456668156
=={{header|Java}}==
public class Sum{
| |||