Yellowstone sequence: Difference between revisions
Added uBasic/4tH version
Alpha bravo (talk | contribs) (Added AutoHotkey) |
(Added uBasic/4tH version) |
||
Line 2,291:
1 2 3 4 9 8 15 14 5 6 25 12 35 16 7 10 21 20 27 22 39 11 13 33 26 45 28 51 32 17
=={{header|uBasic/4tH}}==
{{trans|VBA}}
{{works with|v3.64.0}}
<lang>Dim @y(30)
@y(0) = 1
@y(1) = 2
@y(2) = 3
For i = 3 To 29
k = 3
Do
k = k + 1
If (FUNC(_gcd(k, @y(i-2))) = 1) + (FUNC(_gcd(k, @y(i-1))) > 1) Then
Continue
EndIf
For j = 1 To i - 1
If @y(j) = k Then Unloop : Continue
Next
@y(i) = k : Break
Loop
Next
For i = 0 To 29
Print @y(i); " ";
Next
Print : End
_gcd Param (2)
If b@ = 0 Then Return (a@)
Return (FUNC(_gcd(b@, a@ % b@)))</lang>
{{out}}
<pre>
1 2 3 4 9 8 15 14 5 6 25 12 35 16 7 10 21 20 27 22 39 11 13 33 26 45 28 51 32 17
0 OK, 0:670
</pre>
=={{header|VBA}}==
<lang Tcl>
| |||