Kolakoski sequence: Difference between revisions

m
→‎{{header|Ruby}}: mainly spelling
(→‎{{header|Ruby}}: Added Ruby)
m (→‎{{header|Ruby}}: mainly spelling)
Line 1,176:
[30, [1,3,1,2]],
[30, [1,3,2,1]]].each do |num,ar|
puts "\nFirst #{num} of the sequence generatgedgenerated by #{ar.inspect}:"
p arres = create_generator(ar).take(num)
puts "Possible Kolakoski sequence? #{arres.join.start_with?(rle(arres).join)}"
end
</lang>
{{out}}
<pre>
<pre>First 20 of the sequence generatgedgenerated by [1, 2]:
[1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1]
Possible Kolakoski sequence? true
 
First 20 of the sequence generatgedgenerated by [2, 1]:
[2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2]
Possible Kolakoski sequence? true
 
First 30 of the sequence generatgedgenerated by [1, 3, 1, 2]:
[1, 3, 3, 3, 1, 1, 1, 2, 2, 2, 1, 3, 1, 2, 2, 1, 1, 3, 3, 1, 2, 2, 2, 1, 3, 3, 1, 1, 2, 1]
Possible Kolakoski sequence? true
 
First 30 of the sequence generatgedgenerated by [1, 3, 2, 1]:
[1, 3, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 3, 3, 2, 2, 1, 1, 3, 2, 1, 1, 1, 1, 3, 3, 3, 2, 2, 1]
Possible Kolakoski sequence? false
</pre>
 
=={{header|zkl}}==
{{trans|Python}}
1,149

edits