Bu Yığın Taşması sorusundan ilham alan: Liste sıralama: artan sayılar, azalan harfler . Göreviniz aşağıdaki sorunu çözmek ve bu kod golf olduğu için , mümkün olduğu kadar az sayıda yapmalısınız.

Sen girdi harfleri içeren olarak nesnelerin listesini almalı (herhangi bir makul formda: string, char, vs) ve numaraları. Daha sonra sayıları artan düzende ve harfleri azalan düzende sıralamanız gerekir. Ancak, harfleri harf pozisyonlarında ve rakamları sayı pozisyonlarında tutmalısınız. Örneğin, eğer liste:

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

Çıktı listesi şu şekilde olmalıdır:

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

Workthrough

Giriş: ['a', 2, 'b', 1, 'c', 3]

• Sayıları artan düzende sırala: [1, 2, 3]
• Harfleri azalan düzende sıralayın: ['c', 'b', 'a']
• Onlara geri katılın ancak siparişi aynı tutun: ['c', 1', 'b', 2, 'a', 3]

kurallar

• Liste sadece harfler ve rakamlardan oluşacaktır.
• Liste boş olabilir.
• Liste sadece harfler veya sadece rakamlar içerebilir.
• Eğer dil karışık tip diziler desteklemiyor yerine sayıların basamak karakterleri kullanabilir. Diliniz bunu destekliyorsa, karışık türleri kullanmanız gerektiğini unutmayın.
• Harfler yalnızca olacak [a-z]veya [A-Z]hangisini seçebileceğinizi seçebilirsiniz.
• Harfler aen düşük, zen yüksek gibi sıralanır a = 1, z = 26.
• Standart boşluklar yasaktır.
• G / Ç, bir dize olarak dahil olmak üzere herhangi bir standart yolla olabilir.

Test durumları

[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]

Bu kod-golf olduğundan, bayt cinsinden en kısa cevap kazanır!

Retina , 10 bayt

O`\d
O^`\D

Çevrimiçi deneyin!

ORetina sahne doğrudan bu meydan gerektirdiği seçici sınıflandırmaya tür gerçekleştirebilir.

Burada ilk satır haneleri sıralarken ikinci satır haneleri tersten sıralar.

Python 2 , 53 52 bayt

^{Jonathan Frech sayesinde g.rocket -1 bayt sayesinde -2 bayt}

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

Çevrimiçi deneyin!

sortedListe ilk ve daha sonra karakter gibi numaralar olacaktır [3, 5, 6, 'a', 'b', 'x'], sonra kullanmak e<xhangi sayıyı ve karakter ne olduğu Python her sayıyla bir listesi (giriş) daha ve bir liste daha az bir dize daha filtreye.

APL (Dyalog) , 27 26 bayt

Karakterlerin büyük harf olmasını bekliyor

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

Çevrimiçi deneyin!

Bu, formun yalnızca iki uygulamasıdır f@g, işlevi fbelirtilen ile belirtilen öğelere uygulayın g.

İlk uygulama biz kullanımda:
 f:  ⍒⊃¨⊂ inen sınıflarda ( ⍒) her seçim ( ⊃¨) tüm tartışmadan ( ⊂).
 g:  (e←∊∘⎕A) üyeler ( ∊) ( ∘), A lphabet ( ⎕A) ve store ( ←) olarak bu işlevi kullanır e.

İkinci uygulama biz kullanım için:
 f:  ⍋⊃¨⊂ artan sınıflarda ( ⍋) her seçim ( ⊃¨) tüm tartışmadan ( ⊂).
 g:  (~e) not ( ~) alfabenin üyeleri ( e; daha önce kaydettiğimiz işlev)

JavaScript (ES6), 71 51 47 bayt

@JustinMarinersort() tarafından önerilen şekilde, sadece kullanarak 20 bayt kaydedildi @CraigAyre
sayesinde 4 bayt daha kaydedildi

Rod'un Python cevabına benzer bir yaklaşım kullanarak :

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

Test durumları

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 bayt

Miff sayesinde -7 bayt

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

Bu, aşağıdakinin aynısıdır, ancak listbir atomicvektörden ziyade karışık tip giriş yapılmasına izin verir (her şeyi karışık tipte karakterler olarak yazacak).

Çevrimiçi deneyin!

R , 68 61 bayt

Miff sayesinde -7 bayt

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

Anonim işlev Bu durumda tüm rakamlar karakterlere yazılır. n[-d]Rakamsız dizi. NULLBoş girişte döner (boş liste).

Çevrimiçi deneyin!

Japt , 18 15 bayt

-3 bayt için @Shaggy ve 0s ile diziler için sabitleme yardım için teşekkürler .

c ñc
®¤?Vv :Vo

İlk satır bilerek boş bırakılmıştır.

Çevrimiçi deneyin! kullanılarak -Qbiçimlendirilmiş bir dizi görüntülemek için kullanılır.

açıklama

İlk satır, giriş dizisinin üzerine yazmaktan kaçınmak için boştur.
[5, 'a', 'x', 3, 6, 'b']

c ñc

cGirdi dizisini düzleştirerek ( ) kopyalayın , ardından ñchar ( c) karakterleriyle gösterilen dizelerle sıralayın ( ). Bu depolanır V.
[3, 5, 6, 'a', 'b', 'x']

£

Sonra giriş dizisini işleviyle eşleştirin ...

¤?Vv :Vo

Sayıları ikili dizelere (truthy) veya dizeleri ""(falsy) ( ¤) dönüştürün. Gerektiğinde V( v) başından çıkarın, aksi takdirde sondan çıkarın ( o).

JavaScript, 164 162 158 142 bayt

gereksiz bir atama kaldırıldıktan sonra 1: 2 bayt daha az düzenleyin.

düzenleme 2: 4 bayt daha az teşekkürler TheLethalCoder.

düzenleme 3: 16 bayt daha az Justin Mariner gelen parlak ipuçları sayesinde

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")

Bu benim ilk kez kod-golf benim, bu yüzden kesinlikle geliştirilebilir ... Ama yine de, denemeye değer.

Program, yalnızca geçerli olanla aynı türdeki değerleri hesaba katan bir seçim sıralama çeşidi gerçekleştirir (yalnızca bir sayı ve bir sayı veya bir harf ve bir harf değiştirme)

Okunabilir formu:

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 bayt

#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++);}

Çevrimiçi deneyin!

Neredeyse rekabetçi. Fakat karışık tip dizileri desteklemeli miyim? İNCE.

Range tarzındaki bir dizi değişkeni kabul eder ve yerinde değiştirir. Girişi iki sıralı kümeye kopyalar, ardından tekrar giriş / çıkış dizisine kopyalar.

Mathematica, 203 bayt

(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)&

Çevrimiçi deneyin!

Jöle , 14 bayt

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

Çevrimiçi deneyin!

Temel olarak Rod'un Python çözümünün bir limanı .

Pyth , 12 11 bayt

KSQm.(Kt>\@

Çevrimiçi deneyin! veya Test Suite'i deneyin.

açıklama

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 bayt

@Officialaimm sayesinde 6 bayt kurtarıldı

@Chris_Rands sayesinde 9 bayt kaydedildi

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]

Çevrimiçi deneyin!

05AB1E , 17 bayt

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

Çevrimiçi deneyin!

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.

Sırala kapatmayı kullanmak aslında daha da kötüydü: Σ©Ç®ai0<*}}¹SaJsvyay.;

Python 3, 77 bayt

Bu cevap, eğer karakter ve rakamlar dil ile karşılaştırılabilir değilse, '1', '2' vb. Kullanabileceğinizi söyleyen yoruma dayanmaktadır. Python 3'te 'a' ve 1 karşılaştırılamaz.

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

q / kdb +, 54 53 bayt

Çözüm:

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

Örnekler:

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

Açıklama:

Listedeki karakterleri bulun, azalan sıralama, listedeki uzunlukları bulun, artan sıralayın, örneğin bir listeye katılmak için katılın. ("x";"b";"a";3;5;6) , ardından sıralanan değerleri listedeki orijinal konumlarına geri atayın, örn 0 3 4 1 2 5.

Golf sadece eşdeğerleri için q anahtar kelimelerini ( each, whereve not) değiştirir k(bu, parantez içine alınmalarını gerektirir).

{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

Düzenlemeler

• Etrafında köşeli parantez gerekmediğinden -1 bayt desc

C (gcc) , 125 113 110 bayt

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);}

Çevrimiçi deneyin!

Açıklaması:

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);
}

Harflerin büyük harflerle olması bekleniyor.

PHP, 66 bayt:

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

komut satırı argümanlarından girdi alır, bir dizge basar. -nrVeya ile koşÇevrimiçi olarak deneyin .

PHP 7.1'de bir uyarı verir; düzeltmek için a&ile değiştirin ""<.

Mathematica, 107 bayt

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

C # (.NET Core) , 171 bayt

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++]);}

Bayt sayısı ayrıca şunları içerir:

using System.Linq;

Çevrimiçi deneyin!

Açıklama:

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 bayt

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

Çevrimiçi deneyin!

Ruby , 265 bayt

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}

Çevrimiçi deneyin!

Burada ilk zamanlayıcı, Benim çözümüm kesinlikle en iyisi değil. Ama bu benim ilk cevabım olduğu için, sadece eğlence için göndermeyi düşündüm.

Yakından daha iyi görmek için, en iyi yaklaşımın ne olduğunu görmek için foward arıyorum. Umarım gelecekteki cevaplarda iyileşirim =)

Okunabilir

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 bayt

Daha kısa yollar olabilir, ama sadece Lenskütüphaneyle denemek zorunda kaldım .

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

fSadece iki ibaşvurunun bileşimi olarak tanımlayabilirim , ancak xmonomorfizm kısıtlamasından kaynaklanan bir tür hatadan kaçınmak için yine de başvurmam gerekir. Türü olduğu Not folan Traversable t => t Char -> t Charbu kullanılabilir, böylece Stringlisteleri vardır s Chars yanı sıra ile dizilerChar s.

İşte test durumları:

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

Python 3, 91 bayt

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 bayt

#(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})))

Örnek:

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

Bu , tamsayıların ve karakterlerin kümülatif toplam sayısını hesaplar ve onu, karşılık gelen türdeki öğelerin sıralı bir listesinden doğru öğeye bakmak için kullanır.

APL (Dyalog) , 26 bayt

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

(kullanır ⎕IO=1)

Çevrimiçi deneyin!