Hofstadter Figure-Figure sequences: Difference between revisions
Hofstadter Figure-Figure sequences (view source)
Revision as of 18:50, 15 November 2015
, 8 years ago→{{header|uBasic/4tH}}
(Added uBasic/4tH version) |
|||
Line 2,114:
Local(2)
b@ = 0 ' No value found so far
For c@ = 1 To (64*31)-1 '
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>
|