Two identical strings: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
(Added Quackery.) |
||
Line 2,520: | Line 2,520: | ||
957 1110111101 |
957 1110111101 |
||
990 1111011110 |
990 1111011110 |
||
</pre> |
|||
=={{header|Quackery}}== |
|||
<lang Quackery> [ 2 base put |
|||
number$ dup size 2 / split = |
|||
base release ] is 2identical ( n --> b ) |
|||
1000 times |
|||
[ i^ 2identical if |
|||
[ i^ echo sp |
|||
2 base put |
|||
i^ echo cr |
|||
base release ] ] </lang> |
|||
{{out}} |
|||
<pre>3 11 |
|||
10 1010 |
|||
15 1111 |
|||
36 100100 |
|||
45 101101 |
|||
54 110110 |
|||
63 111111 |
|||
136 10001000 |
|||
153 10011001 |
|||
170 10101010 |
|||
187 10111011 |
|||
204 11001100 |
|||
221 11011101 |
|||
238 11101110 |
|||
255 11111111 |
|||
528 1000010000 |
|||
561 1000110001 |
|||
594 1001010010 |
|||
627 1001110011 |
|||
660 1010010100 |
|||
693 1010110101 |
|||
726 1011010110 |
|||
759 1011110111 |
|||
792 1100011000 |
|||
825 1100111001 |
|||
858 1101011010 |
|||
891 1101111011 |
|||
924 1110011100 |
|||
957 1110111101 |
|||
990 1111011110 |
|||
</pre> |
</pre> |
||