☰

連続した数字を範囲に縮小するには？

tag-icon • tag-icon text-processing awk perl numeric-data
連続した数字を範囲に縮小するには？

一意の数字（1行に1つ）を含むソートされた入力ファイル（またはコマンド出力）が与えられたら、連続した数字のすべての実行を1つの範囲に縮小したいと思います。

n
n+1
...
n+m

~になる

n,n+m

入力サンプル：

2
3
9
10
11
12
24
28
29
33

予想出力：

2,3
9,12
24
28,29
33

答え1

dc精神的な訓練をする：

dc -f "$1" -e '
[ q ]sB
z d 0 =B sc sa z sb
[ Sa lb 1 - d sb 0 <Z ]sZ
lZx
[ 1 sk lf 1 =O lk 1 =M ]sS
[ li p c 0 d sk sf ]sO
[ 2 sf lh d sj li 1 + !=O ]sQ
[ li n [,] n lj p c 0 sf ]sM
[ 0 sk lh sj ]sN
[ 1 sk lj lh 1 - =N lk 1 =M ]sR
[ 1 sf lh si ]sP
[ La sh lc 1 - sc lf 2 =R lf 1 =Q lf 0 =P lc 0 !=A ]sA
lAx
lSx
'

答え2

awk '
    function output() { print start (prev == start ? "" : ","prev) }
    NR == 1 {start = prev = $1; next}
    $1 > prev+1 {output(); start = $1}
    {prev = $1}
    END {output()}
'

答え3

awk、他の（より類似したC）アプローチをとります。

awk '{ do{ for(s=e=$1; (r=getline)>0 && $1<=e+1; e=$1); print s==e ? s : s","e }while(r>0) }' file

同じですが、はるかに少ない厄介です。

awk 'BEGIN{
    for(r=getline; r>0;){
        for(s=e=$1; (r=getline)>0 && $1<=e+1; e=$1);
        print s==e ? s : s","e
    }
    exit -r
}' file

答え4

別のawk方法（変形）グレン答え）：

awk '
    function output() { print start (start != end? ","end : "") }
    end==$0-1 || end==$0 { end=$0; next }
    end!=""{ output() }
    { start=end=$0 }
END{ output() }' infile

関連情報