Hofstadter Figure-Figure sequences: Difference between revisions
Content added Content deleted
Line 2,037: | Line 2,037: | ||
If l <= 40 Then |
If l <= 40 Then |
||
integers.Remove(r(l)) |
integers.Remove(r(l)) |
||
⚫ | |||
Else |
|||
integers.Remove(s(l)) |
|||
End If |
End If |
||
⚫ | |||
Next |
Next |
||
WScript.StdOut.Write "Test for the first 1000 integers: " |
WScript.StdOut.Write "Test for the first 1000 integers: " |