Yellowstone sequence: Difference between revisions
Content added Content deleted
Line 795: | Line 795: | ||
: init 3 0 do i 1+ y i th ! loop ; ( --) |
: init 3 0 do i 1+ y i th ! loop ; ( --) |
||
: show cr #yellow 0 do y i th ? loop ; ( --) |
: show cr #yellow 0 do y i th ? loop ; ( --) |
||
⚫ | |||
: loop1 |
: loop1 begin 1+ over 2 gcd-y[] 1 = >r over 1 gcd-y[] 1 > r> or 0= until ; |
||
begin |
|||
1+ |
|||
over 2 - cells y + @ over gcd 1 = >r |
|||
⚫ | |||
until |
|||
; |
|||
( i k -- i k f) |
|||
: loop2 over true swap 0 ?do over y i th @ = if 0= leave then loop ; |
: 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 ; |
: yellow #yellow 3 do i 3 begin loop1 loop2 until y rot th ! loop ; |