Hofstadter Q sequence: Difference between revisions
Content added Content deleted
m (Forth - minor edit) |
m (Forth - minor edit) |
||
Line 1,418: | Line 1,418: | ||
1 0 q ! |
1 0 q ! |
||
1 1 q ! |
1 1 q ! |
||
N 2 do |
|||
N 2 do i i 1- q @ - q @ i i 2 - q @ - q @ + i q ! loop ; |
|||
i i 1- q @ - q @ |
|||
i i 2 - q @ - q @ |
|||
+ i q ! |
|||
loop ; |
|||
: flips |
: flips |