1,2,3,5,6,7,8 如何合并成1-3,5-8

laohuanggua

RT!

求指点！！！

Sapien

不太明白 LZ 的意思，如果要给一个数组分组，可以这样：

1. 
   
2. >> a
   
3. => [1, 2, 3, 5, 6, 7, 8]
   
4. >> a.partition {|i| i < 4 }
   
5. => [[1, 2, 3], [5, 6, 7, 8]]
   

复制代码

zuerrong

$ cat ana.rb

1. x=[1,2,3,5,6,7,8]
   
2. y=[]
   
3. c=false
   
4. 
   
5. x.each_index do |s|
   
6.    unless c
   
7.      y << [x[s]]
   
8.      c=true
   
9.    end
   
10.    if x[s]+1 != x[s+1]
    
11.       y[-1] << x[s]
    
12.       c=false
    
13.    end
    
14. end
    
15.    
    
16. p y

复制代码

$ ruby ana.rb
[[1, 3], [5, 8]]

zuerrong

不太明白 LZ 的意思，如果要给一个数组分组，可以这样：
Sapien 发表于 2010-12-31 21:39

    他说的不是数组分组。而是找出连续序列。

laohuanggua

先谢谢哈。

ricks_wu

mark，看我啥时候把上面那段程序看懂

ricks_wu

勉强看懂，写的真好

zuerrong

勉强看懂，写的真好
ricks_wu 发表于 2011-01-07 11:32

    你也可以多动手写呀。。
everyday scripting with Ruby
这是我的口号，虽然我工作不是用ruby.

pitonas

多动手
1-3,5-8,11,13,15-17

1. #!/usr/bin/ruby -w
   
2. 
   
3. a = [1, 2, 3, 5, 6, 7, 8, 11, 13, 15, 16, 17]
   
4. b = [[a.shift]]
   
5. 
   
6. a.each do |e|
   
7.   e - b[-1][-1] > 1 ? b << [e] : b[-1][1] = e
   
8. end
   
9. 
   
10. puts b.map { |e| e * ?- } * ?,

复制代码