Data update

Task/Eulers-constant-0.5772.../FutureBasic/eulers-constant-0.5772....basic

@@ -0,0 +1,22 @@
+void local fn Euler
+  long   n = 10000000, k
+  double a, h = 1.0
+
+  for k = 2 to n
+    h += 1 / k
+  next
+  a = log( n + 0.5 + 1 / ( 24 * n ) )
+
+  printf @"From the definition, err. 3e-10"
+  printf @"Hn    %.15f", h
+  printf @"gamma %.15f", h - a
+  printf @"k = %ld\n", n
+  printf @"C     %.15f", 0.5772156649015328
+end fn
+
+CFTimeInterval t
+t = fn CACurrentMediaTime
+fn Euler
+printf @"\vCompute time: %.3f ms",(fn CACurrentMediaTime-t)*1000
+
+HandleEvents