Data update

Task/Jensens-Device/Asymptote/jensens-device.asymptote

@@ -0,0 +1,5 @@
+real temp = 0;
+for(int i = 1; i <= 100; ++i) {
+    temp += 1/i;
+}
+write(temp);

Task/Jensens-Device/BASIC256/jensens-device.basic

@@ -1,3 +1,6 @@
+call Evaluation()
+end
+
 subroutine Evaluation()
 	lo = 1 : hi = 100 : temp = 0
 	for i = lo to hi
@@ -5,6 +8,3 @@ subroutine Evaluation()
 	next i
 	print temp
 end subroutine
-
-call Evaluation()
-end

Task/Jensens-Device/Chipmunk-Basic/jensens-device.basic

@@ -0,0 +1,11 @@
+100 call evaluation
+110 end
+120 sub evaluation()
+130   lo = 1
+140   hi = 100
+150   temp = 0
+160   for i = lo to hi
+170     temp = temp+(1/i)
+180   next i
+190   print temp
+200 end sub

Task/Jensens-Device/Dart/jensens-device.dart

@@ -0,0 +1,14 @@
+double i = 0;
+double sum(int lo, int hi, double Function() term) {
+  double temp = 0;
+  for (i = lo.toDouble(); i <= hi; i++) temp += term();
+  return temp;
+}
+
+double termFunc() {
+  return 1.0 / i;
+}
+
+void main() {
+  print(sum(1, 100, termFunc));
+}

Task/Jensens-Device/GW-BASIC/jensens-device.basic

@@ -0,0 +1,11 @@
+100 GOSUB 120
+110 END
+120 REM Evaluation
+130   LET A = 1
+140   LET B = 100
+150   LET T = 0
+160   FOR I = A TO B
+170     LET T = T + (1/I)
+180   NEXT I
+190   PRINT T
+200 RETURN

Task/Jensens-Device/Gambas/jensens-device.gambas

@@ -0,0 +1,17 @@
+Sub Evaluation()
+
+  Dim i As Integer, lo As Integer = 1, hi As Integer = 100
+  Dim tmp As Float = 0
+
+  For i = lo To hi
+    tmp += (1 / i)
+  Next
+  Print tmp
+
+End Sub
+
+Public Sub Main()
+
+  Evaluation
+
+End

Task/Jensens-Device/Minimal-BASIC/jensens-device.basic

@@ -0,0 +1,12 @@
+100 GOSUB 120
+110 GOTO 210
+120 REM Evaluation
+130   LET A = 1
+140   LET B = 100
+150   LET T = 0
+160   FOR I = A TO B
+170     LET T = T+(1/I)
+180   NEXT I
+190   PRINT T
+200 RETURN
+210 END

Task/Jensens-Device/QBasic/jensens-device.basic

@@ -0,0 +1,12 @@
+CALL EVALUATION
+END
+
+SUB Evaluation
+    LET lo = 1
+    LET hi = 100
+    LET temp = 0
+    FOR i = lo TO hi
+        LET temp = temp + (1 / i)
+    NEXT i
+    PRINT temp
+END SUB

Task/Jensens-Device/Yabasic/jensens-device.basic

@@ -1,3 +1,6 @@
+Evaluation()
+end
+
 sub Evaluation()
     lo = 1 : hi = 100 : temp = 0
     for i = lo to hi
@@ -5,5 +8,3 @@ sub Evaluation()
     next i
     print temp
 end sub
-
-Evaluation()