Two identical strings: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Modula-2) |
Not a robot (talk | contribs) (Add Draco) |
||
Line 1,501: | Line 1,501: | ||
end |
end |
||
end</lang> |
end</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> |
|||
=={{header|Draco}}== |
|||
<lang draco>proc nonrec concat_self(word n) word: |
|||
word rslt, k; |
|||
k := n; |
|||
rslt := n; |
|||
while k ~= 0 do |
|||
k := k >> 1; |
|||
rslt := rslt << 1 |
|||
od; |
|||
rslt | n |
|||
corp |
|||
proc nonrec main() void: |
|||
word n, conc; |
|||
n := 1; |
|||
while |
|||
conc := concat_self(n); |
|||
conc < 1000 |
|||
do |
|||
writeln(conc:3, ": ", conc:b:10); |
|||
n := n + 1 |
|||
od |
|||
corp</lang> |
|||
{{out}} |
{{out}} |
||
<pre> 3: 11 |
<pre> 3: 11 |
||
Line 1,572: | Line 1,627: | ||
990 1111011110 |
990 1111011110 |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
{{works with|Factor|0.99 2021-02-05}} |
{{works with|Factor|0.99 2021-02-05}} |