RosettaCodeData/Task/Jensens-Device/Mathematica/jensens-device.math
2023-07-01 13:44:08 -04:00

4 lines
135 B
Text

sum[term_, i_, lo_, hi_] := Block[{temp = 0},
Do[temp = temp + term, {i, lo, hi}];
temp];
SetAttributes[sum, HoldFirst];