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

5 lines
135 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
sum[term_, i_, lo_, hi_] := Block[{temp = 0},
Do[temp = temp + term, {i, lo, hi}];
temp];
SetAttributes[sum, HoldFirst];