1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
#!/usr/bin/env ruby
tabs = [
[ 1,-1,1, 1,-1,1, 1,-1,1, 1,-1,1 ],
[ 1,-1, 1,-1, 1,-1, 1,-1 ],
[ 1,-1, 1,-1, 1,-1, 1,-1, 1, -1 ],
[ 1,-1,-2, 1,-1,-2, 1,-1,-3 ],
[ 1,-1,1,2, 1,-1,1,2 ]
]
tabs.each do |tab|
tab.each do |t|
print "#{t}, "
end
puts
seqlen=1
i=0
while seqlen<tab.length
while i+seqlen < tab.length
if tab[i] != tab[(i + seqlen)]
seqlen=seqlen+1
i = 0
end
i+=1
end
if ((seqlen<tab.length) && (tab.length%seqlen)==0)
puts "periodic sub-sequence of length = #{seqlen}"
seqlen=seqlen+1
i=0
else
puts "no (more) sub-sequence"
seqlen=tab.length
end
end
puts
end |