Amaç

Ekleme Sıralamasının sıralamak için yapacağı hareketlerden orijinal şifreli listeyi oluşturun . Orijinal listesinden tüm numaraları sahip olacak 0kadar N-1(dahil) Ngirdi boyutudur.

Giriş

Listeyi sıralamak için gerekli hareketleri içeren bir liste. Her değer, orijinal (karıştırılmış) sayının doğru konumunda olması için yer değiştiren yuva miktarını temsil eder, bu işlemin soldan sağa olduğunu unutmayın. Giriş listesindeki
(0 dizinli) konumdaki değer iarasında 0ve ikapsayıcı olacaktır.
Geçersiz girişleri işlemenize gerek yoktur, bu durumda herhangi bir davranış kabul edilebilir (çökme, sonsuz döngü, vb.).

Çıktı

Şifreli liste

Hareketleri oluşturmak için adım adım

Scrambled List | Moves to sort
[4,0,2,1,3,5]  | [0, , , , , ] #4 stay in place
[4,0,2,1,3,5]  | [0,1, , , , ] #0 is moved 1 slot to the left
[0,4,2,1,3,5]  | [0,1,1, , , ] #2 is moved 1 slot
[0,2,4,1,3,5]  | [0,1,1,2, , ] #1 is moved 2 slot
[0,1,2,4,3,5]  | [0,1,1,2,1, ] #3 is moved 1 slot
[0,1,2,3,4,5]  | [0,1,1,2,1,0] #5 is in the right place already
[0,1,2,3,4,5]

Yani, girdi [0,1,1,2,1,0]için programınızın çıktı alması gerekir [4,0,2,1,3,5].
Hareketlerin (son) sıralı listedeki değil, sıralı segmentteki (kalın bölüm) konum olduğunu unutmayın.

Test Durumları

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

Kazanan

Bu kod golf , bu yüzden en kısa cevap kazanır.

Jöle , 12 bayt

L!_UÆ¡$œ?J’U

Çevrimiçi deneyin!

açıklama

Temel olarak iki listeyi (giriş ve çıkış) bir tamsayıyı kodlama olarak görebiliriz; girdi faktöriyel bazda bir tamsayıyı kodlar ve çıktı permütasyon olarak bir tamsayıyı kodlar. Neyse ki, Jelly zaten bu kodlamaların her ikisine de çok yakın olan yapılara sahiptir, bu yüzden bir tamsayıya, daha sonra diğer kodlamaya geri dönmek için küçük kod parçaları yazma meselesidir.

L!_UÆ¡$œ?J’U
   U           Reverse {the input}
    Æ¡         and convert from base factorial to integer;
  _   $        subtract that from
L!             the factorial of the length of {the input};
       œ?      then take the nth permutation of
         J     [1,2,...,l], where l is the length of {the input},
          ’    subtract 1 from every elevent,
           U   and reverse it

Temel faktöriyelde, listenin ilk elemanının 0, ikincisinin 0 veya 1, üçüncünün 0/1/2 ve benzeri olması gerektiğini gözlemleyebiliriz. Bu nedenle, öğelerini temel dönüştürme için normal yazma düzenine almak için girdiyi tersine çevirmeliyiz.

Ek olarak, faktöriyel dönüşümün ve permütasyon dönüşümünün ekleme sıralamasının kullandığı işlemle eşleşmesi için iki ayar yapmamız gerekir: permütasyonların sırasını tersine çevirme ve çıktı listesinin sırasını tersine çevirme. Çıktı listesini tersine çevirmek, Uprogramın sonunda yalnızca bir a'ya ihtiyaç duyacak kadar kolaydır . Permütasyon sırasını tersine çevirmek için, giriş uzunluğunun faktöriyelinden çıkarırız (bu çalışır, çünkü taban faktöriyeni 0 ila (uzunluk! -1) aralığında bir sayı üretir, ancak permütasyonlar Jelly tarafından 1'den uzunluğa kadar numaralandırılır! , bir faktöriyelden bir permütasyon indeksini çıkarırken normalde aldığınız tek tek iptal edilen bir örtülü tek tek üreterek).

Jelly , 9 bytes, @JonathanAllan ile işbirliği içinde

UÆ¡Nœ?J’U

Programın bu sürümü çok benzer, ancak permütasyon sırasını tersine çevirmek için farklı bir yöntem kullanır; girişi tersine çevirmek siparişi tersine çevirmek Niçin yeterlidir œ?. Bunun dışında önceki programla aynı şekilde çalışır.

Çevrimiçi deneyin!

Mathematica, 92 bayt

Permute[Range[l=Length@#]-1,(c=Cycles@{#}&)@{}©##&@@c[i-0~Range~#[[i]]]~Table~{i,l,1,-1}]&

Giriş olarak negatif olmayan tamsayıların bir listesini alan ve negatif olmayan tamsayıların bir listesini döndüren saf işlev. Yukarıdaki kod ©, yanlış olan bir a içerir : bu, 3 baytlık U + F3DE sembolü için bir yer tutucudur; bu, Mathematica'nın içinde noktalı bir daire ile temsil ettiği ve permütasyonların bileşimini temsil eden bir dairedir.

c=Cycles@{#}&tamsayıların listesini Cyclespermütasyonu temsil eden bir nesneye dönüştüren bir işlevi tanımlar ; örneğin, c[{3,4}]bir listenin transpozisyon değiştirme elemanları 3 ve 4'tür. c[i-0~Range~#[[i]]]~Table~{i,l,1,-1}]girdi listesini alır ve ekleme sıralamasını geri almak için gerekli permütasyonları oluşturur. Daha sonra c@{}©##&@@kimlik permütasyonundan başlayarak tüm bu permütasyonları bir araya getirir c@{}. Son olarak, Permute[Range[l=Length@#]-1,...]bu permütasyon uygun uzunluktaki 0 ​​indeksli listeye uygulanır.

Python 2, 79 68 bayt

10 bayt kazandığı için Krazor'a teşekkürler

1 bayt tasarruf için TuukkaX'a teşekkürler

a=input();b=range(len(a));print[b.pop(j-a[j])for j in b[::-1]][::-1]

Tersine hareketler oluşturarak çalışır

JavaScript (ES6), 69 65 63 bayt

a=>a.reverse(b=[...a.keys()]).map(o=>+b.splice(~o,1)).reverse()

Can sıkıcı bir şekilde hem giriş hem de çıkış yanlış sırada. Düzenleme: @Arnauld sayesinde 4 bayt kaydedildi. @ETHproductions sayesinde 2 bayt tasarruf edildi.

JavaScript (ES6), 73 71 bayt

ETHproductions sayesinde 2 bayt tasarruf

m=>(a=m.map((_,i)=>j=i)).map(_=>a.splice(j,0,+a.splice(j-m[j--],1)))&&a

Test senaryoları

let f =

m=>(a=m.map((_,i)=>j=i)).map(_=>a.splice(j,0,+a.splice(j-m[j--],1)))&&a

console.log(JSON.stringify(f([0,0,0])));       // -> [0,1,2]
console.log(JSON.stringify(f([0,1,0,1])));     // -> [1,0,3,2]
console.log(JSON.stringify(f([0,0,0,0,0,5]))); // -> [1,2,3,4,5,0]
console.log(JSON.stringify(f([0,1,2,3])));     // -> [3,2,1,0]
console.log(JSON.stringify(f([0,1,1,1])));     // -> [3,0,1,2]
console.log(JSON.stringify(f([0,1,1,2,1,0]))); // -> [4,0,2,1,3,5]

Haskell , 85 bayt

f x|n<-length x-1=reverse x#[n,n-1..0]
(n:r)#l=r#(take n l++drop(n+1)l)++[l!!n]
x#l=x

Çevrimiçi deneyin! Örnek kullanım: f [0,1,1,2,1,0]verim [4,0,2,1,3,5].

f xişlevi #liste xters çevrilmiş ve bir liste ile çağırır [length x - 1, length x - 2, ... , 0]. (n:r)#lgerçekleştirir ters ekleme sıralama yinelemeli alınarak nüzerinden filtre elemanından l, burada l!!nverimler ninci elemanı ve take n l++drop(n+1)lverimler listesi lile nçıkarıldı inci elemanı.

perl, 61 bayt

@o=@p=0..@ARGV-1;splice@o,$_,0,splice@o,$_-pop,1for reverse@p

Çıkış @o dizisinde sona erer. Komut satırı bağımsız değişkenleri olarak girdi dizisine sahip örnek:

perl -le'@o=@p=0..@ARGV-1;splice@o,$_,0,splice@o,$_-pop,1for reverse@p;print@o' 0 1 1 2 1 0
402135

Ruby, 49 bayt

->l{(w=l.size).times{l.insert(l.shift+w-=1,w)};l}

En büyük sayıyla başlayarak, liste içinde "ters ekleme" işlemini gerçekleştirir.