A-M baby

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)