Diberikan daftar dengan angka, tampilkan rentang seperti ini:

Input: [0, 5, 0]akan menjadi [0, 1, 2, 3, 4, 5, 4, 3, 2, 1, 0].

Ini memetakan rentang melalui array, jadi pertama-tama kita harus membuat rentang [0, 5], yaitu [0, 1, 2, 3, 4, 5]. Setelah itu, kami menggunakan 5untuk membuat rentang [5, 0]. Di tambahkan pada kisaran kami sebelumnya, ini memberi kami:

[0, 1, 2, 3, 4, 5, 4, 3, 2, 1, 0]

Mari kita amati test case dengan dua digit yang sama di samping satu sama lain:

[3, 5, 5, 3], ranges:

[3, 5] = 3, 4, 5
[5, 5] = 5 (actually [5, 5] due to overlapping)
[5, 3] = 5, 4, 3

Jadi ini akan memberi kita [3, 4, 5, 5, 4, 3].

Beberapa test case lainnya:

[1, 9] > [1, 2, 3, 4, 5, 6, 7, 8, 9]
[10, -10] > [10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10]
[3, 0, 0, -3] > [3, 2, 1, 0, 0, -1, -2, -3]
[1, 3, 5, 7, 5, 3, 1, -1, -3] > [1, 2, 3, 4, 5, 6, 7, 6, 5, 4, 3, 2, 1, 0, -1, -2, -3]

Input akan selalu memiliki setidaknya 2 bilangan bulat.

Jawaban terpendek menang!

05AB1E, 1 byte

Ÿ

Cobalah online!

Bagaimana itu bekerja

Ini built-in.

Javascript, 99 95 93 byte

4 6 byte mati terima kasih @Neil .

a=>a.reduce((x,y)=>x.concat(b.map?b=y:[...Array(y<b?b-y:y-b||1)].map(_=>b+=y<b?-1:y>b)),b=[])

f=
a=>a.reduce(
    (x,y)=>
        x.concat(
            b.map?b=y
            :[...Array(y<b?b-y:y-b||1)]
                .map(_=>b+=y<b?-1:y>b)
        )
    ,b=[])


G.addEventListener('click',_=>O.innerHTML=f(JSON.parse(I.value)));

<input id=I value="[3,5,5,3]"><button id=G>Go</button><pre id=O>

JavaScript (SpiderMonkey 30+), 81 76 byte

([n,...a])=>[n,...[for(i of a)for(j of Array(i<n?n-i:i-n||1))n+=i<n?-1:i>n]]

Diuji di Firefox 44. Menggunakan kemampuan menghancurkan argumen ES6 yang luar biasa dan pemahaman array ES7 (yang sayangnya telah dihapus dari spesifikasi ES7).

JavaScript (ES6) 66 72

Fungsi rekursif yang berulang kali menambahkan nilai di dalam array untuk mengisi kesenjangan antara angka yang dekat

f=l=>l.some((x,i)=>(z=l[i-1]-x)*z>1&&l.splice(i,0,x+z/2|0))?f(l):l

Uji

f=l=>l.some((x,i)=>(z=l[i-1]-x)*z>1&&l.splice(i,0,x+z/2|0))?f(l):l

console.log=x=>O.textContent+=x+'\n'

;[[1,9],[10,-10],[3,0,0,-3],[1, 3, 5, 7, 5, 3, 1, -1, -3]]
.forEach(t=>console.log(t+' -> ' +f(t)))

<pre id=O></pre>

C, 120 + 12 = 132 byte

i,j,k;f(a,n)int*a;{a[0]--;for(i=0;i<n-1;i++)for(k=0,j=a[i]-a[i+1]?a[i]:a[i]-1;j-a[i+1];)printf("%i ",j+=a[i+1]>j?1:-1);}

Contoh panggilan:

f(a,sizeof(a)/4);        // I've added 12 bytes because of ",sizeof(a)/4"

Tes langsung pada ideone .

Python 2, 77 byte

lambda n:n[0:1]+sum([range(x,y,2*(y>x)-1)[1:]+[y]for(x,y)in zip(n,n[1:])],[])

Cobalah online

Terima kasih kepada Neil, DenkerAffe, dan Erwan karena menunjukkan perbaikan yang saya lewatkan

Perl, 47 byte

Termasuk +3 untuk -p(kode mengandung $'spasi dan -juga hitungan)

Berikan daftar angka pada STDIN:

fluctuating.pl <<< "3 5 5 3"

fluctuating.pl:

#!/usr/bin/perl -p
($n=$&+($'<=>$&))-$'&&s/\G/$n / while/\S+ /g

Variabel sementara dan semua tanda kurung ini terasa ...

Haskell, 63 55 byte

g(a:b:r)=[a|a==b]++[a..b-1]++[a,a-1..b+1]++g(b:r)
g x=x

Contoh penggunaan: g [3,5,5,3]-> [3,4,5,5,4,3].

Ini modifikasi dari jawaban saya untuk tantangan terkait . Sekali lagi, pekerjaan utama dilakukan dengan menggabungkan daftar dari aatas ke b-1dan dari abawah ke b+1(di mana satu daftar akan kosong) dan panggilan rekursif. Untuk menangani a==bkasus di mana kedua daftar kosong, kami menambahkan [a|a==b]yang mengevaluasi ke [a]jika a==bdan []sebaliknya.

R, 86 82 75 byte

function(x)rep((y<-rle(unlist(Map(seq,head(x,-1),x[-1]))))$v,pmax(1,y$l-1))

disimpan 4 byte menggunakan rep bukan rep.int (golf kode bukan kinerja!) menyimpan 7 byte lainnya dengan menggunakan pencocokan parsial bawaan saat menggunakan $(dan mengecilkan definisi fungsi menjadi 1 baris

Ruby, 116 82 byte

->n{o,*m=n;o=[o];m.zip(n).map{|t,u|o+=[[u],[*u+1..t],[*t..u-1].reverse][t<=>u]};o}

Golf pertama saya.

Sunting: Terima kasih manatwork untuk saran yang luar biasa.

Japt , 12 byte

Disimpan 16 byte berkat @ETHproductions !

ä!õ ËsE©DÊ>1

Uji secara online

Perl 6, 94 byte

Saya tidak terlalu senang dengan ini sekarang, saya mungkin akan mengambil gambar lain nanti

{reduce {|@^a[0..*-2],|@^b},map {@_[0]!= @_[1]??(@_[0]...@_[1])!!(@_[0],@_[1])},.rotor(2=>-1)}

PHP 5.4, 86 byte

Ini dimaksudkan untuk digunakan sebagai file yang disertakan, yang mengembalikan hasilnya.

Nilai dilewatkan sebagai parameter baris perintah.

<?for($i=1;$i<$argc-1;$R=array_merge($R?:[],range($argv[$i++],$argv[$i++])));return$R;

Tidak persis cantik atau apa pun, tetapi melakukan pekerjaan.

Python 3 , 76 byte

Upaya pertama pada jawaban Python. Ide dasarnya adalah untuk berulang kali mengidentifikasi pasangan dalam urutan di mana perbedaannya lebih besar dari langkah dan memasukkan satu (dan hanya satu) elemen tambahan untuk menyelesaikan urutan di arah yang benar. Ulangi sampai semua perbedaan antara elemen berturut-turut adalah antara +1 dan -1.

d=diff
while any(d(x)**2>1):i=argmax(d(x)**2);x[:i+1]+=[x[i]+sign(d(x)[i])]

Cobalah online!

Lua, 156 Bytes

Fungsi yang mengambil array dalam parameter dan mengembalikan array yang diperluas.

function f(t)r={}for i=2,#t
do x,y=t[i-1],t[i]r[#r+1]=x==y and x or nil
z=x>y and-1or 1
x=x==r[#r]and x+z or x
for j=x,y,z
do r[#r+1]=j end end
return r end

Tidak terseret dan penjelasan

function f(t)
  r={}                        -- Initialise an empty array
  for i=2,#t                  -- Iterate over the parameter array
  do
    x,y=t[i-1],t[i]           -- x and y are shorter names than t[i-1]
    r[#r+1]=                  -- when there's a range like [5,5]
      x==y and x or nil       -- put this number once in the array
    z=x>y and-1or 1         -- determine the step value
    x= x==r[#r]               -- prevent repeating the last value of r
          and x+z or x        -- by incrementing/decrementing x
    for j=x,y,z               -- iterate from t[i-1] to t[i] by step z (-1 or 1)
    do
      r[#r+1]=j               -- put j into the array r
    end
  end
  return r                    -- return the extended array
end

Untuk kemudahan penggunaan, Anda dapat menggunakan fungsi berikut untuk mencetak array yang dikembalikan oleh f().

function printArray(t)
  print("["..table.concat(t,",").."]")
end

Saat menguji kiriman ini, Anda dapat menyebutnya seperti:

printArray(f( {0,5,0,3,4,4,7,3,-3} ))
> [0,1,2,3,4,5,4,3,2,1,0,1,2,3,4,4,5,6,7,6,5,4,3,2,1,0,-1,-2,-3]

Mathcad, 62 "byte"

Karena Mathcad menggunakan "papan tulis" 2D dan operator khusus (misalnya, operator penjumlahan, operator integral), dan menyimpan dalam format XML, lembar kerja yang sebenarnya mungkin berisi beberapa ratus (atau lebih) karakter. Untuk keperluan Code Golf, saya telah mengambil "byte byte" Mathcad untuk menjadi jumlah karakter atau operator yang harus dimasukkan pengguna untuk membuat lembar kerja.

Mengubah definisi fungsi menjadi program lurus, dan mengganti variabel pertama dengan nama karakter tunggal, memberikan total 62 "byte". Dengan fungsi, menggunakan karakter tunggal daripada nama lengkap, ini meningkat menjadi 65 "byte" untuk definisi dan 4 "byte" untuk setiap panggilan (dengan asumsi bahwa pembuatan daftar itu sendiri tidak termasuk dalam byte keseluruhan count (Menggunakan tabel bawaan Mathcad adalah cara lain untuk memasukkan daftar).

PHP, 144 byte

function f($r){$m=[];for($i=0;++$i<count($r);){$d=array_pop($m);$n=$r[$i];$p=$r[$i-1];$m=array_merge($m,$p==$n?[$p,$n]:range($p,$n));}return$m;}

function f($r) {
  $m = [];
  for ($i=0; ++$i < count($r); ) {
    $d = array_pop($m);
    $n = $r[$i];
    $p = $r[$i-1];
    $m = array_merge($m, $p==$n ? [$p,$n]
                                : range($p,$n));
  }
  return $m;
}

f([ bound1, bound2, bound3, ... ]);

[int, int, int, int, ...]

Ini berantakan dan tebal, dan saya akan mencoba mengoptimalkannya nanti. Ini menciptakan range()dari setiap pasangan pasangan nilai yang berdekatan, lalu menjahitnya bersama-sama (setelah popmengakhiri kumulatif sebelumnya Array).

Perl6, 21

.join adalah kependekan dari $ _. gabung

say EVAL .join: "..."

Tes (rakudo)

perl6 -MMONKEY-SEE-NO-EVAL -e'say EVAL @*ARGS.join: "..."' 1 3 5 7 5 3 1 -1 -3

Keluaran

(1 2 3 4 5 6 7 6 5 4 3 2 1 0 -1 -2 -3)

Jelly , 10 byte

,r⁼?2\Ṗ;¥/

Cobalah online!

R , 74 byte

Solusi R. lainnya

function(x){b=x[1];z=c();for(a in x[-1]){z=c(z,c(b:(a-sign(a-b))));b=a};z}

Cobalah online!