Data update

Task/Eban-numbers/FutureBasic/eban-numbers.basic

@@ -0,0 +1,50 @@
+void local fn Eban( start as NSUInteger, finish as NSUInteger, printable as BOOL )
+  NSUInteger i, b, r, m, t, count
+
+  if ( start = 2 )
+    printf @"eban numbers up to and including %lu", finish
+  else
+    printf @"eban numbers between %lu and %lu:", start, finish
+  end if
+
+  count = 0
+  for i = start to finish step 2
+    b = int(i / 100000000)
+    r = i % 100000000
+    m = int(r / 1000000)
+    r = i % 1000000
+    t = int(r / 1000)
+    r = r % 1000
+    if m >= 30 && m <= 66 then m = (m % 10)
+    if t >= 30 && t <= 66 then t = (t % 10)
+    if r >= 30 && r <= 66 then r = (r % 10)
+    if b = 0 || b = 2 || b = 4 || b = 6
+      if m = 0 || m = 2 || m = 4 || m = 6
+        if t = 0 || t = 2 || t = 4 || t = 6
+          if r = 0 || r = 2 || r = 4 || r = 6
+            if printable == YES then printf @"%lu \b", i
+            count++
+          end if
+        end if
+      end if
+    end if
+  next
+  if printable == YES then print
+  printf @"%lu eban numbers found\n", count
+end fn
+
+void local fn EbanNumbers
+  CFTimeInterval t = fn CACurrentMediaTime
+  fn Eban(    2, 1000,      YES )
+  fn Eban( 1000, 4000,      YES )
+  fn Eban(    2, 10000,      NO )
+  fn Eban(    2, 100000,     NO )
+  fn Eban(    2, 1000000,    NO )
+  fn Eban(    2, 10000000,   NO )
+  fn Eban(    2, 100000000,  NO )
+  printf @"Compute time: %.3f sec\n", fn CACurrentMediaTime - t
+end fn
+
+fn EbanNumbers
+
+HandleEvents