Two identical strings: Difference between revisions

m
No edit summary
Line 2,188:
defstr byte
 
NSUInteger n = 1, k = 0, p = 2
UInt64 n = 1
UInt64 k = 0
UInt64 p = 2
 
while (1)
if n >= p then p += p
k = n + n * p
if k < 1000 then printf @"%4llu4lu %@", k, bin(k) else exit while
n++
wend
 
HandleEvents
HandleEvent
</syntaxhighlight>
{{output}}
Line 2,234 ⟶ 2,232:
990 11011110
</pre>
 
 
 
=={{header|Go}}==
715

edits