Initial data commit

Task/Van-der-Corput-sequence/Tcl/van-der-corput-sequence-1.tcl

@@ -0,0 +1,10 @@
+proc digitReverse {n {base 2}} {
+    set n [expr {[set neg [expr {$n < 0}]] ? -$n : $n}]
+    set result 0.0
+    set bit [expr {1.0 / $base}]
+    for {} {$n > 0} {set n [expr {$n / $base}]} {
+	set result [expr {$result + $bit * ($n % $base)}]
+	set bit [expr {$bit / $base}]
+    }
+    return [expr {$neg ? -$result : $result}]
+}

Task/Van-der-Corput-sequence/Tcl/van-der-corput-sequence-2.tcl

@@ -0,0 +1,13 @@
+# Print the first 10 terms of the Van der Corput sequence
+for {set i 1} {$i <= 10} {incr i} {
+    puts "vanDerCorput($i) = [digitReverse $i]"
+}
+
+# In other bases
+foreach base {3 4 5} {
+    set seq {}
+    for {set i 1} {$i <= 10} {incr i} {
+	lappend seq [format %.5f [digitReverse $i $base]]
+    }
+    puts "${base}: [join $seq {, }]"
+}