Tantangan ini sudah menjelaskan tentang portsort. Namun, saya agak malas dan saya benar-benar hanya perlu array saya untuk sedikit lebih banyak diurutkan daripada sebelumnya, tidak perlu diurutkan sepanjang jalan .

Di Drop Sort, kami menjatuhkan setiap elemen kurang dari elemen apa pun sebelumnya. Di Lazzy Drop Sort, kami menjatuhkan setiap elemen kurang dari yang sebelumnya .

Ini sebuah contoh. Pertimbangkan array berikut:

8 6 9 9 7 2 3 8 1 3

Mari kita tandai setiap elemen kurang dari yang sebelumnya.

8 6 9 9 7 2 3 8 1 3
  ^     ^ ^     ^

Perhatikan bagaimana tidak 3ada yang ditandai, maupun yang terakhir 8. Mereka semua lebih besar dari elemen tunggal di sebelah kiri mereka.

Melengkapi algoritme, menghapus elemen yang ditandai, kita dapatkan:

8 9 9 3 8 3

Itu pada dasarnya terlihat lebih diurutkan. Agak. Aku malas.

Tugas Anda, seperti yang mungkin telah Anda simpulkan, adalah menerapkan algoritma ini.

Input adalah array setidaknya 1 bilangan bulat positif antara 1 dan 9, sehingga Anda dapat mengambil serangkaian angka juga.

Ini adalah kode-golf , byte terkecil menang!

Kasus uji tambahan:

1
1

1 2 3
1 2 3

5 3 1
5

1 2 3 2 1
1 2 3

1 1 1 9 9 9 1 1 1 9 9 9 1 1 1
1 1 1 9 9 9 1 1 9 9 9 1 1

9 9
9 9

5 2 4 2 3
5 4 3

Sekam , 4 byte

m←ġ<

Cobalah online!

Penjelasan

m←ġ<
  ġ<    Group the numbers into decreasing sequences
m←      Keep the first element of each sequence

JavaScript (ES6), 28 25 byte

Disimpan 3 byte berkat @Shaggy

a=>a.filter(n=>~-a<(a=n))

Cobalah online!

R , 27 byte

(l=scan())[c(T,diff(l)>=0)]

Cobalah online!

MATL , 9 8 byte

Disimpan satu byte berkat Giuseppe.

0yd0<h~)

Cobalah online!

Penjelasan:

0                 % Push a zero
 y                % Implicitly grab the input and duplicate it.
                  % Stack: [8 6 9 9 7 2 3 8 1 3], 0, [8 6 9 9 7 2 3 8 1 3]
  d               % The difference between each number of the last element:
                  % Stack: [8 6 9 9 7 2 3 8 1 3], 0, [-2, 3, 0, -2, -5, 1, 5, -7, 2]
   0<             % Which are negative?
                  % Stack: [8 6 9 9 7 2 3 8 1 3], 0, [1 0 0 1 1 0 0 1 0]
     h            % Concatenate. Stack: [8 6 9 9 7 2 3 8 1 3], [0 1 0 0 1 1 0 0 1 0] 
      ~           % Negate. Stack: [8 6 9 9 7 2 3 8 1 3], [1 0 1 1 0 0 1 1 0 1]
       )          % Index. Stack: [8 9 9 3 8 3]

Perl 5 .10.0 + -nl, 16 byte

$f>$_||say;$f=$_

Cobalah online!

Haskell, 29 byte

f s=[b|(a,b)<-zip(0:s)s,a<=b]

hanya pemahaman daftar sederhana.

Japt , 8 7 byte

Disimpan 1 byte berkat @Oliver

k@>(U=X

Uji secara online!

Alternatif:

f@T§(T=X
k@ä>0 gY
i0 ò> mÅ c

Stax , 5 byte

âÿ╠╦░

Jalankan dan debug ini secara online

Membongkar, tidak menarik, dan mengomentari kodenya, kita dapat ini.

Z   Push a zero under the input
f   Use the rest of the program as a filter on the input.  Output passing elements.
>   Current element is greater than previous?
_~  Push current element to the input stack; when the main stack is empty, pops fall back to this
!   Logical not; applies to the result of the greater-than

Jalankan yang ini

Urutan instruksi canggung tetapi ada alasan untuk itu. Pengemasan kode sumber stax tidak selalu menghasilkan output ukuran yang sama untuk input ukuran yang sama. Pada dasarnya, Anda memiliki kesempatan untuk menyimpan byte jika karakter sumber terakhir memiliki kode karakter yang lebih rendah. Nah, !memiliki salah satu kode terendah yang bisa Anda dapatkan untuk karakter yang dapat dicetak. (33 khusus) Banyak program 6ax ASCII stax tidak dapat mengemas lebih kecil. Tetapi jika mereka diakhiri dengan a !, maka mereka bisa. Jadi alasan untuk pemesanan instruksi khusus ini adalah untuk memastikan bahwa logika tidak berakhir pada akhir program.

J, 12 Bytes

#~1,2&(<:/\)

Penjelasan:

#~1,2&(<:/\)    | Whole function, executed as a hook
       <:/      | Distribute <: (greater or equal) over an array
    2&(   \)    | Apply to each sub array of length 2
  1,            | Append a 1 to the front
#~              | Choose elements from the original array

Contoh:

    2&(<:/\) 8 6 9 9 7 2 3 8 1 3
0 1 1 0 0 1 1 0 1
    1,2&(<:/\) 8 6 9 9 7 2 3 8 1 3
1 0 1 1 0 0 1 1 0 1
    (1 0 1 1 0 0 1 1 0 1) # 8 6 9 9 7 2 3 8 1 3
8 9 9 3 8 3
    f =: #~1,2&(<:/\)
    f 8 6 9 9 7 2 3 8 1 3
8 9 9 3 8 3

Cobalah online!

Jelly , 6 byte

>Ɲ0;¬×

I / O menggunakan string.

Cobalah online!

Java 8, 66 55 48 byte

l->{for(int i=0;;)if(i>(i=l.next()))l.remove();}

-11 byte setelah tip dari @ OlivierGrégoire .
-7 byte lagi berkat @ OlivierGrégoire .

Penjelasan:

Cobalah online.

l->{                     // Method with Integer-ListIterator parameter and no return-type
  for(int i=0;;)         //  Loop over all items
    if(i>(i=l.next()))   //   If the current item is larger than the next
      l.remove();}       //    Remove this next item

Oktaf , 21 byte

@(x)x(~[0,diff(x)<0])

Cobalah online!

Penjelasan:

Ambil vektor xsebagai input, dan buat vektor [0, diff(x)<0], di mana diff(x)vektor dengan perbedaan antara semua elemen yang berdekatan. Pertahankan hanya yang negatif dengan membandingkannya dengan nol, memberi kami daftar semua elemen yang ingin Anda jatuhkan.

Kami kemudian memilih elemen dari vektor input yang ingin kami pertahankan.

V , 25 byte

òjälá k$yl+@"òç-/d
ç /dw

Cobalah online!

Hexdump:

00000000: f26a e46c e120 6b24 796c 2b40 2218 f2e7  .j.l. k$yl+@"...
00000010: 2d2f 640a e720 2f64 77                   -/d.. /dw

Bahasa terburuk untuk pekerjaan itu. Tapi saya melakukannya dengan berani .

Triangularity , 71 byte

.....).....
....IEL....
...)rFD)...
..2+)IE)w..
.+h)2_stDO.
={M)IEm}...

Cobalah online!

Bagaimana itu bekerja?

) IEL) rFD) 2+) IE) w + h) 2_stDO = {M) IEm} - Program lengkap.
) IE - Dapatkan 0 input I dan mengevaluasinya.
   L) r - Dan dorong rentang [0 ... panjang I).
      F {- Filter bilangan bulat dalam rentang ini yang memuaskan:
       D) 2+) IE) w + h) 2_stDO = - Kondisi ini. Menjalankan setiap elemen E secara terpisah
                                    susun dan buang yang tidak memenuhi kriteria.
       D) 2+ - Gandakan dan tambahkan 2 ke salinan kedua.
           ) IE - Ambil saya lagi.
              ) - Dorong 0 ke tumpukan.
               w - Bungkus 0 dalam daftar. [0]
                + - Tambahkan ke I.
                 h - Kepala. Potong elemen setelah indeks E + 2.
                  ) 2_ - Literal -2.
                     st - Tail.
                       DO = - Periksa apakah hasilnya tidak berubah.
                           M) IEm} - Bagian terakhir: pengindeksan ke input.
                           M} - Untuk setiap indeks yang memenuhi persyaratan:
                            ) IEm - Ambil elemen I pada posisi itu.

Python , 40 byte

f=lambda h,*t:t and h+f(*t)[h>t[0]:]or h

Cobalah online!

Input sebagai tuple karakter.

Python 3 , 41 byte

p=''
for x in input():x<p or print(x);p=x

Cobalah online!

Input string.

Python 2 , 41 byte

for x in input():
 if x>=id:print x
 id=x

Cobalah online!

Input string, hanya karena string lebih besar dari idtetapi jumlahnya lebih kecil.

Bahasa Wolfram (Mathematica) , 33 byte

Pick[#,Arg[#-{0}~Join~Most@#],0]&

Cobalah online!

Bagaimana itu bekerja

Kode # - {0}~Join~Most@#mengubah sebuah array {a,b,c,d,e,f}menjadi {a,b-a,c-b,d-c,e-d,f-e}. Menerapkan Argini menetapkan angka negatif ke Pidan nomor non negatif ke0 .

Pick[#, ..., 0]&picks keluar entri dari #mana ...memiliki 0: dalam kasus kami, persis unsur-unsur yang menghasilkan sejumlah nonnegatif ketika Anda kurangi elemen sebelumnya. Dengan kata lain, ini adalah entri yang ingin kita simpan ketika lazydropsorting.

Bertanya-tanya , 27 byte

-> ':1.!> 'sS#<=.cns2.++[0]

Contoh penggunaan:

(-> ':1.!> 'sS#<=.cns2.++[0])[8 6 9 9 7 2 3 8 1 3]

Penjelasan

Versi tidak disatukan:

(map get 1).(fltr sS <=).(cns 2).(++ [0])

Prepend 0, dapatkan daftar pasangan berurutan, simpan item daftar tempat angka pertama <= angka kedua, dapatkan angka kedua dari setiap pasangan.

Bahasa Wolfram (Mathematica) , 20 byte

#&@@@Split[#,##>0&]&
(* or *)
Max/@Split[#,##>0&]&

Cobalah online!

Penjelasan

Input = {8, 6, 9, 9, 7, 2, 3, 8, 1, 3}

Split[#,##>0&]

Kelompokkan elemen berurutan yang benar-benar menurun: {{8, 6}, {9}, {9, 7, 2}, {3}, {8, 1}, {3}}

#&@@@

Ambil elemen pertama dari masing-masing: {8, 9, 9, 3, 8, 3}

Python 2 , 52 46 45 42 byte

lambda a:[v for v,w in zip(a,[1]+a)if v/w]

Cobalah online!

Disimpan:

• -3 byte, terima kasih kepada Rod

SWI-Prolog, 44 byte

[A,B|C]-[A|E]:-B<A,[B|C]-[B|E];[B|C]-E. L-L.

Penggunaan: Panggil " Daftar -X" di mana Daftar adalah daftar yang tertutup tanda kurung, misalnya koma [1,4,5,1,11,6,7].

APL + WIN, 14 byte

Meminta input layar dari vektor bilangan bulat.

(1,1>2-/v)/v←⎕

05AB1E , 6 byte

ĆÁü›_Ï

Cobalah online!

Penjelasan

Ć        # append the head of the list
 Á       # rotate right
  ü›     # apply pair-wise greater-than
    _    # logical negate each
     Ï   # keep elements of input that are true in this list

Kotlin , 39 byte

a->a.filterIndexed{i,v->i<1||v>=a[i-1]}

Cobalah online!

Saring item yang merupakan item pertama (indeks == 0, atau bahkan indeks yang lebih pendek <1) ATAU Nilai saat ini lebih besar atau sama dengan item sebelumnya (a [i-1]).

APL (Dyalog Unicode) , 11 byte

{⍵⌿⍨1⍪2≤⌿⍵}

Cobalah online!

Ini sebenarnya sangat mirip dengan jawaban Graham, tetapi dalam Dyalog, dan dikembangkan secara independen. Juga, lebih simetris.

K4 , 10 byte

Larutan:

x_/|&<':x:

Contoh:

q)k)x_/|&<':x:8 6 9 9 7 2 3 8 1 3
8 9 9 3 8 3

Penjelasan:

Temukan indeks di mana elemen kurang dari sebelumnya, hapus indeks ini dari input

x_/|&<':x: / the solution
        x: / store input as x
     <':   / less-than each-previous
    &      / indices where true
   |       / reverse
 _/        / drop-over
x          / the input

Attache , 24 byte

{Mask[1'(Delta!_>=0),_]}

Cobalah online!

Penjelasan

Mask memilih semua elemen dari argumen kedua yang sesuai dengan elemen kebenaran dalam argumen pertamanya. 1'(Delta!_>=0)menghitung indeks yang sesuai dengan elemen-elemen yang seharusnya berada dalam susunan akhir.

Upaya lain

28 byte (pointfree): ~Mask#(1&`'##Delta#`>=#C[0])

32 byte: {Mask[1'(&`<= =>Slices[_,2]),_]}

C # (.NET Core) , 33 + 18 = 51bytes

x=>x.Where((a,n)=>n<1||x[n-1]<=a)

Cobalah online!

pada dasarnya pernyataan adalah di mana x adalah int pertama dalam array, atau lebih besar dari atau sama dengan angka sebelumnya, simpanlah. Jatuhkan itu.

Swift 4 , 56 55 byte

{var l=0;print($0.filter{($0>=l,l=$0).0})}as([Int])->()

Cobalah online!

Penjelasan

{var l=0;           // Declare variable l
print($0.filter{(   // Print every element e in the input
  $0>=l,            //   where e >= l
  l=$0).0})         //   And set l to e
}as([Int])->()      // Set the input type to integer array

Jelly , 9 byte

0;>ƝżµḢÐṂ

Cobalah online!

Ini terasa sangat besar, tidak akan terkejut jika ada cara yang lebih baik.

0;>ƝżµḢÐṂ
   Ɲ       For each adjacent pair in the input...
  >        ...is the first element greater than the second? (yields a list of 0/1)
0;         prepend a zero to this list (always keep the first element)
    ż      zip with the input
     µ     new monadic link
       ÐṂ  keep elements of the list with minimal value of... (Ðḟ would have worked here and been slightly more clear but I'll leave it as it is)
      Ḣ    ...their first element

Brain-Flak , 136 , 120 byte

((())){{}([{}]({}))([({}<(())>)](<>)){({}())<>}{}{((<{}>))<>{}}{}<>{}{{}(({})<>)(())(<>)}{}([][()])}{}{}<>{{}({}<>)<>}<>

Ini diformat dan "dibaca" .

((()))
{
    {}

    ([{}]({}))

    ([({}<(())>)](<>)){({}())<>}{}{((<{}>))<>{}}{}<>{}

    {
        {}(({})<>)(())(<>)
    }

    {}

    ([][()])

}{}{}<>

{
    {}
    ({}<>)<>
}<>

Cobalah online!