Yellowstone sequence: Difference between revisions
Content added Content deleted
(→{{header|jq}}: typo) |
Alpha bravo (talk | contribs) (Added AutoHotkey) |
||
Line 196: | Line 196: | ||
<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</pre> |
<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</pre> |
||
=={{header|AutoHotkey}}== |
|||
<lang AutoHotkey>A := [], in_seq := [] |
|||
loop 30 { |
|||
n := A_Index |
|||
if n <=3 |
|||
A[n] := n, in_seq[n] := true |
|||
else while true |
|||
{ |
|||
s := A_Index |
|||
if !in_seq[s] && relatively_prime(s, A[n-1]) && !relatively_prime(s, A[n-2]) |
|||
{ |
|||
A[n] := s |
|||
in_seq[s] := true |
|||
break |
|||
} |
|||
} |
|||
} |
|||
for i, v in A |
|||
result .= v "," |
|||
MsgBox % result := "[" Trim(result, ",") "]" |
|||
return |
|||
;-------------------------------------- |
|||
relatively_prime(a, b){ |
|||
return (GCD(a, b) = 1) |
|||
} |
|||
;-------------------------------------- |
|||
GCD(a, b) { |
|||
while b |
|||
b := Mod(a | 0x0, a := b) |
|||
return a |
|||
}</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]</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |