Data commit

Task/Jensens-Device/AppleScript/jensens-device.applescript

@@ -0,0 +1,17 @@
+set i to 0
+
+on jsum(i, lo, hi, term)
+    set {temp, i's contents} to {0, lo}
+    repeat while i's contents ≤ hi
+        set {temp, i's contents} to {temp + (term's f(i)), (i's contents) + 1}
+    end repeat
+    return temp
+end jsum
+
+script term_func
+    on f(i)
+        return 1 / i
+    end f
+end script
+
+return jsum(a reference to i, 1, 100, term_func)