all tasks

Task/Van-der-Corput-sequence/Seed7/van-der-corput-sequence.seed7

@@ -0,0 +1,32 @@
+$ include "seed7_05.s7i";
+  include "float.s7i";
+
+const func float: vdc (in var integer: number, in integer: base) is func
+  result
+    var float: vdc is 0.0;
+  local
+    var integer: denom is 1;
+    var integer: remainder is 0;
+  begin
+    while number <> 0 do
+      denom *:= base;
+      remainder := number rem base;
+      number := number div base;
+      vdc +:= flt(remainder) / flt(denom);
+    end while;
+  end func;
+
+const proc: main is func
+  local
+    var integer: base is 0;
+    var integer: number is 0;
+  begin
+    for base range 2 to 5 do
+      writeln;
+      writeln("Base " <& base);
+      for number range 0 to 9 do
+        write(vdc(number, base) digits 6 <& " ");
+      end for;
+      writeln;
+    end for;
+  end func;