Data commit

Task/Jensens-Device/Tcl/jensens-device-1.tcl

@@ -0,0 +1,9 @@
+proc sum {var lo hi term} {
+    upvar 1 $var x
+    set sum 0.0
+    for {set x $lo} {$x < $hi} {incr x} {
+        set sum [expr {$sum + [uplevel 1 [list expr $term]]}]
+    }
+    return $sum
+}
+puts [sum i 1 100 {1.0/$i}] ;# 5.177377517639621

Task/Jensens-Device/Tcl/jensens-device-2.tcl

@@ -0,0 +1,8 @@
+proc sum2 {lo hi lambda} {
+    set sum 0.0
+    for {set n $lo} {$n < $hi} {incr n} {
+        set sum [expr {$sum + [apply $lambda $n]}]
+    }
+    return $sum
+}
+puts [sum2 1 100 {i {expr {1.0/$i}}}] ;# 5.177377517639621