Hofstadter Q sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,444: / Line 1,444: @@
 : flips
   ." flips: "
+N 1 do
-N 1 do i q @ i 1- q @ < if 1+ then loop . cr ;
+    i q @ i 1- q @ < if 1+ then
+  loop . cr ;
 : qprint ( n -- )