September 2017 Update

Task/Van-der-Corput-sequence/PureBasic/van-der-corput-sequence.purebasic

@@ -0,0 +1,20 @@
+Procedure.d nBase(n.i,b.i)
+  Define r.d,s.i=1
+  While n
+    s*b
+    r+(Mod(n,b)/s)
+    n=Int(n/b)
+  Wend
+  ProcedureReturn r
+EndProcedure
+
+Define.i b,c
+OpenConsole("van der Corput - Sequence")
+For b=2 To 5
+  Print("Base "+Str(b)+": ")
+  For c=0 To 9
+    Print(StrD(nBase(c,b),5)+~"\t")
+  Next
+  PrintN("")
+Next
+Input()