Two identical strings: Difference between revisions

Content added Content deleted

Inline

@@ Line 910: / Line 910: @@
 :  1110111101
 :  1111011110"</lang>
+=={{header|Arturo}}==
+<lang rebol>loop 0..1000 'i [
+    bin: as.binary i
+    if even? size bin [
+        half: (size bin)/2
+        if equal? slice bin 0 dec half
+                  slice bin half dec size bin ->
+            print [pad to :string i 4 ":" bin]
+    ]
+]</lang>
+{{out}}
+<pre>   3 : 11
+: 1010
+: 1111
+: 100100
+: 101101
+: 110110
+: 111111
+: 10001000
+: 10011001
+: 10101010
+: 10111011
+: 11001100
+: 11011101
+: 11101110
+: 11111111
+: 1000010000
+: 1000110001
+: 1001010010
+: 1001110011
+: 1010010100
+: 1010110101
+: 1011010110
+: 1011110111
+: 1100011000
+: 1100111001
+: 1101011010
+: 1101111011
+: 1110011100
+: 1110111101
+: 1111011110</pre>
 =={{header|AWK}}==
@@ Line 973: / Line 1,018: @@
 count: 30
 </pre>
 =={{header|BASIC}}==
 <lang BASIC>10 DEFINT A-Z: DIM B(15)