Data commit

Task/Rep-string/Jq/rep-string-1.jq

@@ -0,0 +1,20 @@
+def is_rep_string:
+  # if self is a rep-string then return [n, prefix]
+  # where n is the number of full occurrences of prefix
+  def _check(prefix; n; sofar):
+    length as $length
+    | if length <= (sofar|length) then [n, prefix]
+      else (sofar+prefix) as $sofar
+      | if  startswith($sofar) then _check(prefix; n+1; $sofar)
+        elif ($sofar|length) > $length and
+             startswith($sofar[0:$length]) then [n, prefix]
+        else [0, prefix]
+        end
+      end
+  ;
+
+  [range (1; length/2 + 1) as $i
+     | .[0:$i] as $prefix
+     | _check($prefix; 1; $prefix)
+     | select( .[0] > 1 ) ]
+  ;

Task/Rep-string/Jq/rep-string-2.jq

@@ -0,0 +1,17 @@
+def test:
+  (
+   "1001110011",
+   "1110111011",
+   "0010010010",
+   "1010101010",
+   "1111111111",
+   "0100101101",
+   "0100100",
+   "101",
+   "11",
+   "00",
+   "1"
+  ) | { (.) : is_rep_string }
+;
+
+test

Task/Rep-string/Jq/rep-string-3.jq

@@ -0,0 +1,12 @@
+ $ jq -n -c -f rep-string.jq
+ {"1001110011":[[2,"10011"]]}
+ {"1110111011":[[2,"1110"]]}
+ {"0010010010":[[3,"001"]]}
+ {"1010101010":[[5,"10"],[2,"1010"]]}
+ {"1111111111":[[10,"1"],[5,"11"],[3,"111"],[2,"1111"],[2,"11111"]]}
+ {"0100101101":[]}
+ {"0100100":[[2,"010"]]}
+ {"101":[]}
+ {"11":[[2,"1"]]}
+ {"00":[[2,"0"]]}
+ {"1":[]}