Kolakoski sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,155: / Line 1,155: @@
     cycle = ar.cycle
     s = []
-    (0..).each do |k|
+    loop do
-      t = cycle.next
+      s.push (t=cycle.next)
-      s << t
+      y << (v=s.shift)
-      y << t
+      (v-1).times{s << t}
-      (s[k]-1).times do
-        s << t
-        y << t
-      end
     end
   end