複数の数字入った配列を「人向けに」きれいにまとめて表示をさせる「きれいなロジック」を教えていただけませんか?

Question

配列の中に、
複数の番号を格納しているとき、
それをまとめて表示する「綺麗なロジック」を
教えていただけないでしょうか?

data=["1","2","3","5","7","8","9","10","11","12","15","16"]

このようなデータがある時に

1～3,5,7～12,15,16

という
「人が見てきれいな」出力を作りたいのですが、
「綺麗なロジック」が思いつきません。

熟練の方、
短く、早く、美しいロジックを
ご教授願えないでしょうか?

私がrubyやVBAを使っているのでサンプルはrubyですが、
rubyやVBAが第一希望ですが、他の言語でもOKです。
ですがが、
「言語特有の（モジュール等を使った）ロジック」でない方がありがたいです。

Comments

[tanat]

まずはご自身で作成されたコードを提示して、どこがきれいではないと感じているかを質問されては？

Answer 1

PHPの例が出ていないので載せておきます。ネストした配列の初期化が容易にできるPHPらしい解法です。
if文や三項演算子などによる条件分岐が1つも無いのが特徴です。

整数配列の連続区間をハイフンで連結してグループ化する定番のアレ - Qiita

$data = [1, 2, 3, 4, 5, 8, 9, 10, 13, 14, 20, 22];
foreach ($data as $i => $v) {
    $pairs[$v - $i][isset($pairs[$v - $i])] = $v;
}
foreach ($pairs as $pair) {
    $ranges[] = implode('～', $pair);
}
echo implode(',', $ranges);

Comments

[raccy]

そっか、別に隣と見比べるのでは無く、インデックスと値の差分でグループ化すれば良いだけだったんですね…。無駄に大変なことをしてしまった＞＜

[takataka75]

ありがとうございます。
一番美しいかも

[退会済みユーザー]

こんなのよく思いつくなぁ。。。

[zohnam]

これすごいわー。
今まさに必要なコードだったので助かりました。

Answer 2

RubyであればEnumerable#chunk_whileが使えます。

上のリンク先のマニュアルにまさしくそのような出力をするための例が載っています。それを参考にまとめて書くと次のようになります。

data = ["1", "2", "3", "5", "7", "8", "9", "10", "11", "12", "15", "16"]
puts data.map(&:to_i)
         .chunk_while { |a, b| b == a.succ }
         .map { |x| x.size < 3 ? x : "#{x.first}～#{x.last}"}
         .join(',')

ですが、chunk_whileのような隣同士をみてグルーピングするという関数やメソッドが用意されている言語は見当たらないです(group_byのようなグルーピングであればHaskellやLINQでみらえますが)。ということで、chunk_whileでしていることをEnumerable#injectで置き換えます。

data = ["1", "2", "3", "5", "7", "8", "9", "10", "11", "12", "15", "16"]
puts data.map(&:to_i)
         .inject([]) { |a, x| a.empty? || a.last.last.succ != x ?
                              a + [[x]] :
                              a.take(a.size - 1) + [(a.last + [x])] }
         .map { |x| x.size < 3 ? x : "#{x.first}～#{x.last}"}
         .join(',')

Comments

[退会済みユーザー]

勉強になります。

Answer 3

ruby で書いてみました。
行数はすこし多いですが、他の言語にも翻訳しやすいかと思います。

# 連続した数値毎に分割する
def seq_array(array)
  ans = []
  loop {
    break if array.empty?
    # 数字が連続している先頭部分と残りに分割する
    div = array.partition.with_index {|x, idx| x == idx + array[0] }
    ans << div[0]
    array = div[1]
  }
  ans
end

def seq_array_to_s(array)
  array.map do |seq|
    (seq.length > 2) ? "#{seq[0]}〜#{seq[-1]}" : seq.join(',')
  end.join(',')
end

data = ["1", "2", "3", "5", "7", "8", "9", "10", "11", "12", "15", "16"]
seq_array = seq_array(data.map(&:to_i).sort)
puts seq_array_to_s(seq_array)

先頭の数字が連続している部分を取り出す処理をまず書きました。
それをループさせて残り部分が空になるまで繰り返します。(再帰で書き直すこともできるかもしれない)
すると、最初の数列全体を 連続した部分毎に分割することができます。
あとは、この分割数列を文字列化する処理を書きました。

分割処理と文字化処理が明確に分離しているので、文字列書式を変更するのは容易だと思います。

追記 2017-08-06
seq_array を loop でなく、group_by で書き直すことができました。
さらに数値範囲を示す文字をパラメータで指定できるようにしてみました。

# 連続した数値毎に分割する
def to_seq_array(array)
  array.group_by.with_index {|x, idx| x - idx }.values
end

def to_range_array(seq_array, range_str = '〜')
  seq_array.map { |seq| seq.size > 2 ? "#{seq[0]}#{range_str}#{seq[-1]}" : seq }
end

data = ["1", "2", "3", "5", "7", "8", "9", "10", "11", "12", "15", "16"]
seq_array = to_seq_array(data.map(&:to_i))

range_array = to_range_array(seq_array)
puts range_array.join(',')

range_array = to_range_array(seq_array, "..")
puts range_array.join(' ')

実行結果：

$ ruby xxx.rb
1〜3,5,7〜12,15,16
1..3 5 7..12 15 16

Comments

[退会済みユーザー]

勉強になります。

Answer 4

初心者ですが挑戦してみました。

# encoding: utf-8

data = ["1","2","3","5","7","8","9","10","11","12","15","16"]

data.map!(&:to_i)

d = (data.min..data.max).to_a
k = d - data

k.each do |_k|
  d[d.index(_k)] = '/'
end

d = d.join(',').split('/').map do |e|
  e = e.split(',').reject(&:empty?).map(&:to_i)
  e.size > 2 ? "#{e.min}~#{e.max}" : e
end

puts d.reject(&:empty?).join(', ')
# => 1~3, 5, 7~12, 15, 16

Comments

[takataka75]

ありがとうございました。
参考にします。

Answer 5

Pythonで書いてみました。

data,lst,ans = ["1","2","3","5","7","8","9","10","11","12","15","16"],[],[]
for i,n in enumerate(data):
    if not lst or int(n)-int(lst[len(lst)-1]) == 1:
        lst.append(n)
        if i == len(data)-1:ans += lst
    else:
        if i == len(data)-1:lst.append(n)
        if len(lst) <= 2:ans += lst
        else:ans += ["%s~%s"%(lst[0],str(int(lst[0])+len(lst)-1))]
        lst.clear()
        lst.append(n)
print(ans)

#実行結果
['1~3', '5', '7~12', '15', '16']

Comments

[takataka75]

ありがとうございました。
参考にします。

Answer 6

あまり綺麗ではないですが，Ruby で書いてみました．

data = ["1","2","3","5","7","8","9","10","11","12","15","16"]

d = data.map{|x| x.to_i}.sort.uniq
ret = []
tmp = [d.shift]
d.each do |x|
  if tmp.last + 1 == x then
    tmp << x
  else
    ret << tmp
    tmp = [x]
  end
end
ret << tmp

puts ret.map{|x| 
  if x.length > 2 then
    "#{x.first}～#{x.last}"
  elsif x.length > 1 then
    "#{x.first}, #{x.last}"
  else
    "#{x.first}"
  end
}.join(", ")
# 1～3, 5, 7～12, 15, 16

Comments

[takataka75]

ありがとうございました。
参考にします。

Answer 7

楽しそうだったので書いてみました。perlで

$ perl -e '
>  @data=qw(1  3 5 7 8 9 10 11 12 15 16);
>  $i = 0;
>  ($start,$output) = ("","");
>  foreach (sort {$a <=> $b} @data) {
>   if ($start eq "") {
>    $start=$_;
>   }
>   if ($_ + 1 != $data[$i+1]) {
>    if ( $start == $_ ) {
>     $output .= sprintf "%d,",$_;
>    } elsif ( $start + 1 == $_ ) {
>     $output .= sprintf "%d,%d,",$start,$_;
>    } else {
>     $output .= sprintf "%d-%d,",$start,$_;
>    }
>    $start = "" ;
>   }
>   $i++;
>  }
>  printf "%s\n", $output ;
> '
1,3,5,7-12,15,16,

Comments

[takataka75]

ありがとうございました。
参考にします。