Hofstadter Figure-Figure sequences: Difference between revisions

m
(Added uBasic/4tH version)
Line 2,114:
Local(2)
 
b@ = 0 ' No value found so far
b@ = 0
 
For c@ = 1 To (64*31)-1 ' NoCheck valuethe foundentire so farbitmap
If (FUNC(_GetBitS(c@))) Then b@ = b@ + 1
Until b@ = a@ ' If a value found, increment counter
Line 2,181:
 
0 OK, 0:875</pre>
 
=={{header|VBScript}}==
<lang vb>
374

edits