連続する整数をまとめる
http://d.hatena.ne.jp/higepon/20080925/1222326246
(via http://www.atdot.net/~ko1/diary/200809.html#d27)
(via http://shinh.skr.jp/m/?date=20080927#p01)
a=[1,3,4,5,6,12,13,15] a.map{|e|x,y=$*[-1];e-1==(y||x)?$*[-1]=[x,e]:$*<<e};p$*
割と読みやすいかも.まだ縮みそう.