Terinspirasi oleh pertanyaan Stack Overflow ini: Menyortir daftar: angka dalam naik, huruf dalam turun . Tugas Anda adalah untuk memecahkan masalah berikut ini dan, karena ini adalah kode-golf , Anda harus melakukannya sesedikit mungkin dalam byte.

Anda harus mengambil daftar objek sebagai masukan yang mengandung huruf (bentuk yang wajar: string, char, dll) dan angka. Anda kemudian harus mengurutkan angka ke dalam urutan menaik dan huruf ke urutan menurun. Namun, Anda harus menyimpan huruf di posisi huruf dan angka di posisi angka. Misalnya, jika daftar adalah:

[L, D, L, L, D, L]

Daftar keluaran harus dalam bentuk:

[L, D, L, L, D, L]

Bekerja melalui

Memasukkan: ['a', 2, 'b', 1, 'c', 3]

• Sortir angka ke dalam urutan menaik: [1, 2, 3]
• Urutkan surat ke dalam urutan menurun: ['c', 'b', 'a']
• Bergabunglah dengan mereka kembali tetapi tetap urutannya sama: ['c', 1', 'b', 2, 'a', 3]

Aturan

• Daftar ini hanya akan berisi huruf dan angka.
• Daftarnya mungkin kosong.
• Daftar ini hanya dapat berisi huruf atau hanya digit.
• Jika bahasa Anda tidak mendukung array tipe campuran, Anda dapat menggunakan karakter digit alih-alih angka. Perhatikan bahwa jika bahasa Anda mendukung ini, Anda harus menggunakan jenis campuran.
• Surat hanya akan menjadi [a-z]atau [A-Z], Anda dapat memilih yang mana.
• Surat diurutkan sebagai ayang terendah, zyaitu yang tertinggi yaitu a = 1, z = 26.
• Celah standar dilarang.
• I / O dapat dengan sarana standar termasuk sebagai string.

Uji kasus

[5, 'a', 'x', 3, 6, 'b'] -> [3, 'x', 'b', 5, 6, 'a']

[ 3, 2, 1] -> [ 1, 2, 3 ]

[ 'a', 'b', 'c' ] -> [ 'c', 'b', 'a' ]

[] -> []

[ 2, 3, 2, 1 ] -> [1, 2, 2, 3]

Karena ini adalah kode-golf , jawaban terpendek dalam byte menang!

Retina , 10 byte

O`\d
O^`\D

Cobalah online!

The Otahap dalam Retina dapat langsung melakukan jenis penyortiran selektif dibutuhkan oleh tantangan ini.

Di sini baris pertama mengurutkan digit sedangkan baris kedua mengurutkan non-digit secara terbalik.

Python 2 , 53 52 byte

^{-2 byte berkat g.rocket
-1 byte terima kasih kepada Jonathan Frech}

def F(x):n=sorted(x);print[n.pop((e<x)-1)for e in x]

Cobalah online!

The sorteddaftar akan memiliki angka pertama dan kemudian karakter seperti [3, 5, 6, 'a', 'b', 'x'], kemudian gunakan e<xuntuk menyaring apa yang jumlah dan apa yang char, di python sejumlah kurang dari daftar (input) dan daftar kurang dari string.

APL (Dyalog) , 27 26 byte

Diharapkan karakter menjadi huruf besar

(⍋⊃¨⊂)@(~e)(⍒⊃¨⊂)@(e←∊∘⎕A)

Cobalah online!

Ini hanya dua aplikasi formulir f@g, menerapkan fungsi fpada item yang ditunjukkan oleh g.

Untuk pertama aplikasi kita gunakan:
 f:  ⍒⊃¨⊂ nilai-nilai menurun ( ⍒) masing-masing pick ( ⊃¨) dari seluruh argumen ( ⊂).
 g:  (e←∊∘⎕A) anggota ( ∊) dari ( ∘) lfabet A ( ⎕A), dan menyimpan ( ←) fungsi ini sebagai e.

Untuk kedua aplikasi yang kami gunakan:
 f:  ⍋⊃¨⊂ nilai-nilai ascending ( ⍋) masing-masing pick ( ⊃¨) dari seluruh argumen ( ⊂).
 g:  (~e) not ( ~) anggota alfabet ( e; fungsi yang kami simpan sebelumnya)

JavaScript (ES6), 71 51 47 byte

Disimpan 20 byte hanya dengan menggunakan sort(), seperti yang disarankan oleh @JustinMariner
Disimpan 4 byte lagi berkat @CraigAyre

Menggunakan pendekatan yang mirip dengan jawaban Rod's Python :

a=>[...a].map(n=>a.sort()[1/n?'shift':'pop']())

Uji kasus

let f =

a=>[...a].map(n=>a.sort()[1/n?'shift':'pop']())

console.log(JSON.stringify(f(['a', 2, 'b', 1, 'c', 3]))) // -> ['c', 1', 'b', 2, 'a', 3]
console.log(JSON.stringify(f([5, 'a', 'x', 3, 6, 'b']))) // -> [3, 'x', 'b', 5, 6, 'a']
console.log(JSON.stringify(f([3, 2, 1]))) // -> [ 1, 2, 3 ]
console.log(JSON.stringify(f(['a', 'b', 'c']))) // -> [ 'c', 'b', 'a' ]
console.log(JSON.stringify(f([]))) // -> []
console.log(JSON.stringify(f([2, 3, 2, 1]))) // -> [1, 2, 2, 3]

R , 83 76 byte

-7 byte berkat Miff

function(n){u=unlist
d=n%in%0:9
n[d]=sort(u(n[d]))
n[!d]=sort(u(n[!d]),T)
n}

Ini sama dengan di bawah ini, tetapi memungkinkan input tipe campuran sebagai listbukan atomicvektor (yang akan typecast semuanya sebagai karakter dengan tipe campuran).

Cobalah online!

R , 68 61 byte

-7 byte berkat Miff

function(n){d=n%in%0:9
n[d]=sort(n[d])
n[!d]=sort(n[!d],T)
n}

Fungsi anonim. Semua digit dilemparkan ke karakter dalam kasus ini. n[-d]adalah array tanpa angka. Mengembalikan NULL(daftar kosong) pada input kosong.

Cobalah online!

Japt , 18 15 byte

Terima kasih @Shaggy untuk -3 byte dan untuk bantuan memperbaiki array dengan 0s.

c ñc
®¤?Vv :Vo

Baris pertama sengaja dikosongkan.

Cobalah online! gunakan -Quntuk melihat array yang diformat.

Penjelasan

Baris pertama kosong untuk menghindari menimpa array input.
[5, 'a', 'x', 3, 6, 'b']

c ñc

Buat salinan dengan meratakan ( c) array input, lalu urutkan ( ñ) dengan string yang diwakili oleh kode karakter mereka ( c). Ini disimpan di V.
[3, 5, 6, 'a', 'b', 'x']

£

Kemudian memetakan array input dengan fungsi ...

¤?Vv :Vo

Ubah angka menjadi string biner (kebenaran) atau string menjadi ""(falsy) ( ¤). Jika benar, hapus dari awal V( v), jika tidak hapus dari akhir ( o).

JavaScript, 164 162 158 142 byte

sunting 1: 2 byte lebih sedikit setelah menghapus penugasan berlebihan v.

sunting 2: 4 byte lebih sedikit berkat TheLethalCoder.

sunting 3: 16 byte lebih sedikit berkat petunjuk brilian dari Justin Mariner

x=>eval("n=v=>typeof(v)=='number';l=x.length;for(i=0;i<l;x[i++]=x[m],x[m]=w){for(v=w=x[j=m=i];++j<l;)n(e=x[j])==n(w)&&e<v==n(w)&&(m=j,v=e)}x")

Ini pertama kalinya saya bermain golf kode, jadi pasti bisa ditingkatkan ... Tapi tetap, patut dicoba.

Program melakukan varian pemilihan jenis, yang hanya memperhitungkan nilai-nilai dari jenis yang sama dengan yang sekarang (hanya menukar angka dan angka, atau huruf dan huruf)

Formulir yang dapat dibaca:

x=>eval("
    n=v=>typeof(v)=='number';
    l=x.length;
    for(i=0;i<l;x[i++]=x[m],x[m]=w){
        for(v=w=x[j=m=i];++j<l;) 
            n(e=x[j])==n(w) && e<v==n(w) && (m=j,v=e)
    }
    x
")

C ++ 17 (gcc) , 219 byte

#include <variant>
#include <set>
using V=std::variant<char,int>;void f(V*a,V*b){std::set<V>S[2];for(V*c=a;c<b;++c)S[c->index()].insert(*c);auto
C=S->rbegin();auto N=S[1].begin();for(;a<b;++a)*a=(a->index()?*N++:*C++);}

Cobalah online!

Hampir tidak kompetitif. Tetapi saya harus mendukung array tipe campuran? BAIK.

Menerima serangkaian varian dalam rentang gaya, dan memodifikasinya di tempat. Menyalin input ke dalam dua set yang diurutkan, dan kemudian kembali ke array input / output.

Mathematica, 203 byte

(K=Reverse;B=Complement;L=Length;S=Position[#,_Integer];T=Sort@Cases[#,_Integer];G=K@B[#,T];V=B[Range@L@#,Flatten@S];R=K@Sort@#;Table[R[[Min@S[[i]]]]=T[[i]],{i,L@T}];Table[R[[V[[i]]]]=G[[i]],{i,L@G}];R)&

Cobalah online!

Jelly , 14 byte

FOÞɓṪ}Ḣ}ẇØa$?€

Cobalah online!

Pada dasarnya port solusi Rod's Python .

Pyth , 12 11 byte

KSQm.(Kt>\@

Cobalah online! atau Coba Test Suite.

Penjelasan

KSQm.(Kt<d\@  - Full program with implicit input.

KSQ           - Assign a variable K to the lexicographically sorted input.
   m          - Map over the input (with a variable d).
    .(K       - Pop the sorted list at this location:
       >\@    - If d is lexicographically lower than '@', at 0 (the first element). Else, at -1 (the last element).

Python, 145 139 130 byte

6 byte disimpan berkat @officialaimm

9 byte disimpan berkat @Chris_Rands

g=lambda s,a:sorted(x for x in s if(type(x)==str)==a)
def f(s):l,n=g(s,1),g(s,0)[::-1];return[[n,l][type(x)==str].pop()for x in s]

Cobalah online!

05AB1E , 17 byte

SaJ¹á{R¹þ{«vyay.;

Cobalah online!

SaJ               # Push 1 if letter 0 else, for all letters in string.
   ¹á{R           # Reverse sort letters from input.
       ¹þ{        # Regular sort digits from input.
          «       # Concatenate those two things.
           v      # For each letter in the sorted string...
            ya    # 0 if digit, 1 if letter.
              y.; # Replace first instance of 0/1 with digit/letter.

Menggunakan penutupan berdasarkan jenis sebenarnya lebih buruk: Σ©Ç®ai0<*}}¹SaJsvyay.;

Python 3, 77 byte

Jawaban ini didasarkan pada komentar yang mengatakan Anda dapat menggunakan '1', '2', dll jika karakter dan angka tidak sebanding dalam bahasa. 'a' dan 1 tidak dapat dibandingkan dalam Python 3.

def f(s):x=sorted(s,key=lambda c:ord(c)-95);return[x.pop(-(c>'.'))for c in s]

q / kdb +, 54 53 byte

Larutan:

{x[w,q]:asc[x w:(&)d],desc x q:(&)(~)d:-7=type@/:x;x}

Contoh:

q){x[w,q]:asc[x w:(&)d],desc x q:(&)(~)d:-7=type@/:x;x}(5;"a";"x";3;6;"b") / mixed list
3
"x"
"b"
5
6
"a"
q){x[w,q]:asc[x w:(&)d],desc x q:(&)(~)d:-7=type@/:x;x}3 2 1   / simple list
1 2 3
q){x[w,q]:asc[x w:(&)d],desc x q:(&)(~)d:-7=type@/:x;x}"abc"   / simple list
"cba"
q){x[w,q]:asc[x w:(&)d],desc x q:(&)(~)d:-7=type@/:x;x}2 3 2 1 / simple list
1 2 2 3

Penjelasan:

Temukan karakter dalam daftar, urutkan menurun, temukan panjang dalam daftar, urutkan, naik, bergabung untuk mendapatkan daftar, misalnya ("x";"b";"a";3;5;6), lalu tetapkan nilai yang diurutkan kembali ke posisi semula di daftar, misalnya di 0 3 4 1 2 5.

Golf hanya mengganti q kata kunci ( each, wheredan not) untuk kpadanannya (yang mengharuskan mereka untuk dibungkus dengan tanda kurung).

{x[w,q]:asc[x w:where d],desc x q:where not d:-7=type each x;x} / ungolfed
{                                                           ; } / lambda function with 2 statements
                                                 type each x    / return types of elements in mixed list
                                              -7=               / true where item is a long
                                            d:                  / save this bool array in d
                                        not                     / invert
                                  where                         / indices where true (we have chars)
                                q:                              / save these indices in q
                              x                                 / values of x at these indices
                         desc                                   / sort them descending
                        ,                                       / join/contatenate
                where d                                         / indices where we have digits
              w:                                                / save this in w
            x                                                   / values of x at these indices
        asc[           ]                                        / sort them ascending
 x[w,q]:                                                        / assign this list to x at indices w,q
                                                             x  / return x

Suntingan

• -1 byte karena tidak perlu tanda kurung siku desc

C (gcc) , 125 113 110 byte

main(i){char*b,*c,s[99];for(gets(c=b=s);*++c||*(c=++b);)i=*b&64,i^*c&64||*c>*b^!i&&(i=*c,*c=*b,*b=i);puts(s);}

Cobalah online!

Dijelaskan:

main(i)
{
    char*b,*c,s[99];

    // slightly modified stupid bubblesort, this line in fact
    // does nested looping with a single for statement
    for(gets(c=b=s);*++c||*(c=++b);)
    // (undefined behavior here, there's no sequence point between accesses to c,
    // so this could go wrong. Works with the gcc version on tio.)

        // determine whether the current b is a letter:
        i=*b&64,

        // for doing anything, b and c must be the same "type":
        i^*c&64

            // when c > b for letter or c <= b for digit
            || *c>*b^!i

            // then swap
            && (i=*c,*c=*b,*b=i);

    puts(s);
}

Surat diharapkan dalam huruf besar.

PHP, 66 byte:

for($a=$argv,sort($a);a&$c=$argv[++$i];)echo$a[$c<A?++$k:--$argc];

mengambil input dari argumen baris perintah, mencetak string. Jalankan dengan -nratau coba online .

Menghasilkan peringatan di PHP 7.1; ganti a&dengan ""<untuk memperbaiki.

Mathematica, 107 byte

(s=#;s[[p]]=Sort[s[[p=#&@@@s~($=Position)~_String]],#2~Order~#>0&];s[[c]]=Sort@s[[c=#&@@@s~$~_Integer]];s)&

C # (.NET Core) , 171 byte

a=>{var b=a.Where(x=>x is int).ToList();b.Sort();int i=0,j=0;return a.Select(x=>b.Contains(x)?b[i++]:a.Except(b).OrderByDescending(y=>y).ToList()[j++]);}

Hitungan byte juga mencakup:

using System.Linq;

Cobalah online!

Penjelasan:

a =>
{
    var b = a.Where(x => x is int).ToList(); // Filter to only ints and transform to list
    b.Sort();                                // Sort the list
    int i = 0, j = 0;                        // Create index counters
    return a.Select(x =>                     // Replace each input element with
                    b.Contains(x) ?          // If it is in list b:
                    b[i++] :                 // Get the next element from b
                    a.Except(b)              // Otherwise take input and filter out those in b
                     .OrderByDescending(x=>x)// Order them z to a
                     .ToList()[j++]);        // Get the next element

Perl 5 , 107 + 1 (-n) = 108 byte

y/][//d;@a=split/, /;@l=sort grep/\D/,@a;@d=sort grep/\d/,@a;@r=map{/\d/?pop@d:shift@l}@a;$"=", ";say"[@r]"

Cobalah online!

Ruby , 265 byte

x.sort_by(&:to_s).select{|a| a.is_a?(String)}.zip(x.map.with_index {|a, i| a.is_a?(String) ? i : nil}.compact).each{|a,i| x[i] = a}
x.sort_by(&:to_s).select{|a| a.is_a?(Integer)}.zip(x.map.with_index {|a, i| a.is_a?(Integer) ? i : nil}.compact).each{|a,i| x[i] = a}

Cobalah online!

Timer pertama di sini, solusi saya pasti bukan yang terbaik. Tetapi karena ini adalah jawaban pertama saya, saya berpikir untuk memposting hanya untuk bersenang-senang saja.

Mencari foward untuk melihat jawaban Ruby yang lebih baik, untuk melihat apa pendekatan terbaik. Saya harap saya meningkatkan jawaban di masa mendatang =)

Dapat dibaca

x = ["c", 1, "a", 3, "b", 2]

b = x.map.with_index {|a, i| a.is_a?(Integer) ? i : nil}.compact
s = x.map.with_index {|a, i| a.is_a?(String) ? i : nil}.compact

o = x.sort_by(&:to_s).select{|a| a.is_a?(Integer)}
d = x.sort_by(&:to_s).select{|a| a.is_a?(String)}

d.zip s
d.zip(s).each {|a, i| x[i] = a}

o.zip b
o.zip(b).each {|a, i| x[i] = a }

p x

Haskell, 108 byte

Mungkin ada cara yang lebih pendek, tetapi saya hanya harus mencobanya dengan Lensperpustakaan.

import Control.Lens
import Data.List
i(!)f=partsOf(traverse.filtered(!'='))%~f.sort
f x=x&i(<)id&i(>)reverse

Saya bisa mendefinisikan fhanya menjadi komposisi dari dua idoa, tetapi saya masih harus menerapkannya xuntuk menghindari kesalahan jenis dari pembatasan monomorfisme. Perhatikan bahwa jenis fini Traversable t => t Char -> t Charsehingga dapat digunakan dengan Strings yang daftar Chars serta dengan array Chars.

Berikut adalah contoh-contoh tesnya:

*Main> map f ["5ax36b","321","abc","","2321"]
["3xb56a","123","cba","","1223"]

Python 3, 91 byte

def f(s):x=sorted(s,key=lambda c:(type(c)==str,c));return[x.pop(-(type(c)==str))for c in s]

Clojure, 151 byte

#(map(fn[t c](nth((if(=(type 1)t)vec reverse)(sort((group-by type %)t)))(-(c t)1)))(map type %)(reductions(partial merge-with +)(for[i %]{(type i)1})))

Contoh:

(def f #( ... ))
(f [5 \a \x 3 6 \b])
; (3 \x \b 5 6 \a)

Ini menghitung jumlah kumulatif bilangan bulat dan karakter, dan menggunakannya untuk mencari elemen yang benar dari daftar elemen elemen yang diurutkan.

APL (Dyalog) , 26 byte

a[⍒i][⍋⍋27>i←(⎕a,⌽⍳9)⍳a←⎕]

(menggunakan ⎕IO=1)

Cobalah online!