Jensen's Device: Difference between revisions
Content added Content deleted
(Added Oz example.) |
m (→{{header|Tcl}}: avoid a hazard) |
||
Line 426: | Line 426: | ||
set sum 0.0 |
set sum 0.0 |
||
for {set x $lo} {$x < $hi} {incr x} { |
for {set x $lo} {$x < $hi} {incr x} { |
||
set sum [expr {$sum + [uplevel 1 expr $term]}] |
set sum [expr {$sum + [uplevel 1 [list expr $term]]}] |
||
} |
} |
||
return $sum |
return $sum |