RosettaCodeData/Task/Jensens-Device/Mathematica/jensens-device.math

5 lines
135 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
sum[term_, i_, lo_, hi_] := Block[{temp = 0},
Do[temp = temp + term, {i, lo, hi}];
temp];
SetAttributes[sum, HoldFirst];