Update all new Tasks

Task/Rep-string/Tcl/rep-string-1.tcl

@@ -0,0 +1,11 @@
+proc repstring {text} {
+    set len [string length $text]
+    for {set i [expr {$len/2}]} {$i > 0} {incr i -1} {
+	set sub [string range $text 0 [expr {$i-1}]]
+	set eq [string repeat $sub [expr {int(ceil($len/double($i)))}]]
+	if {[string equal -length $len $text $eq]} {
+	    return $sub
+	}
+    }
+    error "no repetition"
+}

Task/Rep-string/Tcl/rep-string-2.tcl

@@ -0,0 +1,12 @@
+foreach sample {
+    "1001110011" "1110111011" "0010010010" "1010101010" "1111111111"
+    "0100101101" "0100100" "101" "11" "00" "1"
+} {
+    if {[catch {
+	set rep [repstring $sample]
+	puts [format "\"%s\" has repetition (length: %d) of \"%s\"" \
+		  $sample [string length $rep] $rep]
+    }]} {
+	puts [format "\"%s\" is not a repeated string" $sample]
+    }
+}