Yellowstone sequence: Difference between revisions
m
→{{header|Forth}}
Line 805:
( i k -- i k f)
: loop2 over true swap 0 ?do over y i th @ = if 0= leave then loop ;
: yellow #yellow 3 do i 3 begin loop1 loop2 until y rot th ! loop ;
: main init yellow show ;
Line 820 ⟶ 812:
<pre>main
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 ok</pre>
=={{header|FreeBASIC}}==
<lang freebasic>function gcd(a as uinteger, b as uinteger) as uinteger
| |||