Bir dize verildiğinde x, karakterleri xkaynak kodunuzdaki görünüm sırasına göre sıralanmış olarak çıkarın.

Örnekler

Source: ThisIs A Test
 Input: Is it a Test?
Output: TissI   etta?

Source: Harry - yer a wizard.
 Input: I'm a what?
Output: aa  wh'?Imt

Source: Mr. H. Potter, The Floor, Hut-on-the-Rock, The Sea
 Input: 
Output:

kurallar

• Standart boşluklar ve giriş / çıkış kuralları geçerlidir
• Giriş ve çıkış, bir dize, karakter listesi veya bayt listesi olabilir.
• Bir karakter kaynakta birden çok kez kullanılıyorsa, ilk oluşumu kullanın.
• Kaynakta bir veya daha fazla karakter görünmüyorsa, sonunda olmalıdır; sıraları önemli değil, tutarlı olması da gerekmiyor.
• Kaynak boş olmamalı
• Yeni satırlar diğer karakterlerle aynı şekilde değerlendirilir.
• Kodun yürütüldüğü sıra önemli değil; Sadece ham dize.
• Giriş, kodla aynı kodda.
• Giriş, baytlara göre değil karakterlere göre sıralanır.
• Sıralama büyük / küçük harf duyarlıdır
• Bu kod golf , her dil için bayt cinsinden en kısa cevap!

let f = (s, i, o) => o.split("").map(x => [x, s.indexOf(x) == -1 ? s.length + 100 : s.indexOf(x)]).sort(([, a], [, b]) => a - b).map(([x]) => x).join("") === o && i.split("").sort().join("") === o.split("").sort().join("");let g = (s, i) => i.split("").map(x => [x, s.indexOf(x) == -1 ? s.length + 100 + Math.random() : s.indexOf(x)]).sort(([, a], [, b]) => a - b).map(([a]) => a).join("");$(() => $("button").click(() => $("#result").text(f($("#source").val(), $("#input").val(), $("#output").val()) ? "Valid" : `Invalid; example output: \`${g($("#source").val(), $("#input").val())}\``)));

body,label{display: flex;flex-direction: column;}*{white-space: pre;font-family: Inconsolata, Consolas, mono-space;font-size: 14px;}

<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.3.1/jquery.min.js"></script><label>Source: <textarea id="source">ThisIs A Test</textarea></label><label>Input: <textarea id="input">Is it a Test?</textarea></label><label>Output: <textarea id="output">TissI   etta?</textarea></label><div><button>Validate</button> <span id="result"></span></div>

Python 3.8 (yayın öncesi) , 102 100 96 85 79 76 68 61 59 60 bayt

c="print(sorted(x:=input(),key=('c=%r;'%c+x).find))";exec(c)

Çevrimiçi deneyin!

Bunu kullanarak -2 bayt

-4 = byte fark ederek ve gereksiz <0olanları ==-1kaldırarak+1

Neil sayesinde -11 bayt

-Za dzaima sayesinde 6 bayt

Çubuk sayesinde -3 bayt

-8 bayt negatif program sayesinde bir karakter listesi çıktısını belirten negatif yedi sayesinde

-7 byte Python 3.8’e geri dönme ve :=

Jo King nedeniyle c değişkeninin s ismini değiştirmesi nedeniyle -2 bayt. ;c

+1 bayt, çünkü negatif yedi ;doğru şekilde süzülmediğine işaret etti

APL (Dyalog Unicode) , 14 bayt ^SBCS

Anonim zımni önek işlevi.

'''∘⍋⊃¨⊂'∘⍋⊃¨⊂

⊂ argümanı dahil et (bir bütün olarak hareket etmek)

… ⊃¨ Bundan, aşağıdaki endekslerin her biri için bir karakter seç:

∘⍋ argümanı aşağıdaki dizginin verdiği sıraya göre sıralayacak endeksler (üye olmayanların tamamı görünüm sırasına göre sıralanır):

'''∘⍋⊃¨⊂' karakterler '∘⍋⊃¨⊂

Çevrimiçi deneyin!

C # (Visual C # Etkileşimli Derleyici) , 48 bayt

n=>n.OrderBy((@"n=>.OrdeBy(@""+)Ixf"+n).IndexOf)

Çevrimiçi deneyin!

JavaScript (Node.js) , 60 58 56 bayt

Jo King'den -2 bayt

f=_=>_.sort((a,b)=>(p=g=>`f=${f+g}`.indexOf(g))(a)-p(b))

Çevrimiçi deneyin!

Perl 6 , 56 bayt

<slurp.comb.sort({"<$_>~EVAL$^a".index($a)}).say>~~.EVAL

Çevrimiçi deneyin!

Ruby , 57 bayt

->s{s.sort_by{|o|%{->s{.ort_by|%}index()9}.index(o)||99}}

Çevrimiçi deneyin!

Golf hilesini kaçırmadığımı varsaymak oldukça kolay. Bir karakter listesine girin ve dizine göre, koddaki tüm uniq karakterlerinden oluşan bir dizgede görünümlerine göre sıralayın. Genellikle ilk görünüşleri o dizgededir, ancak bu sırayı değiştirmez.

05AB1E , 24 22 21 bayt

Σ"Σ"'"«"'«Rrk}"«Rrk}R

Çevrimiçi deneyin!

Açıklama:

Σ                    }               # Sort
 "Σ"                                 # Σ string literal
    '"                               # " string literal
       «                             # Concatenate last two literals
        "'«Rrk}"                     # '«Rrk} another literal
                «                    # Concat again
                 R                   # Reverse literal (so: }krR'«'"Σ)
                  r                  # reverse stack 
                   k                 # find the current sorting index in our code string 
                     R               # reverse our sorted string

İlk kez 05AB1E’de bir şeyler denemek çok büyük olasılıkla kurtarılacak

Jöle , 16 14 bayt (Jöle Kodu sayfası), 25 bayt (UTF8)

“Ṿv`Ṿ;³³i@Þ”v`

Çevrimiçi deneyin!

Sıralanacak dize tek bir argüman alan tam bir program.

@JonathanAllan'a bir hatayı işaret ettiği için teşekkürler!

@EriktheOutgolfer'a göre, kod Jelly kodu sayfası kullanılarak girilebilse de, sıralanan karakterler kaynağın bayt yerine eşdeğer UTF-8 karakterleridir. Bu nedenle, skoru UTF-8 baytlara da dahil ettim. Aynı durumun muhtemelen özel kod sayfalarına sahip tüm diller için de geçerli olduğunu unutmayın.

açıklama

“Ṿv`Ṿ;³³i@Þ”   | The string "Ṿv`Ṿ;³³i@Þ", referred to below as S
            v` | Evaluate this string as Jelly code using the string itself as the argument

Yukarıdaki dize şöyle değerlendirilir:

Ṿ          | Uneval the string S (effectively wraps it in “”)
 v`        | Eval it (effectively removes the “”)
   Ṿ       | Uneval it again, adding back in the “”
    ;³     | Concatenate the input to this
      ³i@Þ | Sort the input with respect to the first occurence of each character in the “”-wrapped string S concatenated to the input

Ṿv` burada etkili bir no-op, ancak tüm karakterlerin temsil edilmesini sağlamak için var.

Jöle , 14 bayt

“;fɓḟṾⱮ”ṾɓfⱮ;ḟ

Çıktıyı basan bir (Python formatlı) dizgiyi (Jelly kod sayfası karakterleri) kabul eden tam bir program .
(monadik bir bağlantı olarak karakter listelerinin bir listesini verir)

Çevrimiçi deneyin!

Nasıl?

“;fɓḟṾⱮ”ṾɓfⱮ;ḟ - Main Link: list of characters, S
“;fɓḟṾⱮ”       - list of characters = [';', 'f', 'ɓ', 'ḟ', 'Ṿ', 'Ɱ']
        Ṿ      - un-evaluate = ['“', ';', 'f', 'ɓ', 'ḟ', 'Ṿ', 'Ɱ', '”']
         ɓ     - start a new dyadic chain, F(S, T=that):
           Ɱ   - for each character, t, in T:
          f    -   (S) filter keep any of (the single character, t)
             ḟ - (S) filter discard any of (the characters in T)
            ;  - concatenate

Kömür , 37 bayt

≔´≔´´´η´Ｆ´Φ´θ´⁼´ι´κ´¬´№ηＦηΦθ⁼ικΦθ¬№ηι

Çevrimiçi deneyin! Açıklama:

≔´≔´´´η´Ｆ´Φ´θ´⁼´ι´κ´¬´№η

Charcoal'da karakterleri alıntılamanın iki yolu vardır; ... herhangi bir karakterden alıntı ´yaparken ”y... ... ”herhangi bir karakterden alıntı yapar ”ve ayrı bir dize olarak sayar. Anlaşılması gereken ”masrafın, herhangi bir golfçünün bitmeyeceği anlamına geliyor.

ＦηΦθ⁼ικ

Girişten eşleşen karakterlerin çıktısını almak için sırayla karakterlerin üzerine gelin. Bu, girişi sıralar.

Φθ¬№ηι

Girişte eşleştirilmemiş karakterleri çıktılayın.

J , 14 bayt

Anonim zımni önek işlevi.

]/:']/:''i'i:]

Çevrimiçi deneyin!

] argüman

… En i: son ortaya çıkan (üye olmayanlar, dizindeki her karakterin dizgesini arama dizisinin sonundan öteye götürür):

']/:''i' karakterler ]/:'i

… /: Bunu sıralamak için kullanın:

] argüman

Java 10, 129 100 bayt

s->{s.sort(java.util.Comparator.comparing(c->("s->{.ort(javuilCmpcng\"\\+)dexOf;}"+c).indexOf(c)));}

Taşıma yoluyla -29 bayt +cgelen @EmbodimentOfIgnorance 'ın C # cevabı .

Çevrimiçi deneyin.

Açıklama:

s->{                 // Method with char-List parameter and no return-type
  s.sort(java.util.Comparator.comparing(c->
    ("s->{.ort(javuilCmpcng\"\\+)dexOf;}"
                     //  Push a String containing the characters in the code
     +c)             //  Append the current character
        .indexOf(c)  //  And get the first index of the current character in the String

NOT: Genellikle kullanmak s.sort((a,b)->Long.compare(a,b))yerine daha ucuzdur s.sort(java.util.Comparator.comparing(c->c), ancak bu durumda 11 bayt daha uzun olacaktır:

s->{var v="s->{var =\"\\;.ot(,)Lngcmpe+idxOf}";s.sort((a,r)->Long.compare((v+a).indexOf(a),(v+r).indexOf(r)));}

Çevrimiçi deneyin.

05AB1E , 31 26 19 bayt

Σ'"'ÿs"Σ'ÿÿsìyk"ìyk

-7 byte, @ EmbodimentOfIgnorance'ın C # 'sındaki yaklaşımına ilham vererek , indekslemeden önce mevcut karakteri ekleme cevabını verir.

Çevrimiçi deneyin veya dizine eklenmekte olan dizeleri görmek için hata ayıklama çizgisiyle deneyin .

Açıklama:

Σ                 # Sort the (implicit) input-string by:
 '"              '#  Push string '"'
   'ÿ            '#  Push string "ÿ"
     s            #  Swap the order of these two strings on the stack
      "Σ'ÿÿsìyk"  #  Push string "Σ'ÿÿsìyk", where the `ÿ` are automatically filled with
                  #  the previous strings we created: `Σ'"ÿsìyk`
                  #  (top to bottom from stack; left to right in string)
       ì          #  Prepend this string in front of the character we're sorting
        yk        #  And then get the index of the character we're sorting in this string
                  # (after the sorting the resulting string is output implicitly)

PowerShell , 68 bayt

$p=$args
&($t={$p|sort-object{"`$p=`$args
&(`$t={$t})$_"|% i*f $_}})

Çevrimiçi deneyin!

Python 2 , 62 bayt

lambda a:sorted(a,key=('lambd :sorted(,ky=\'\\+).fin'+a).find)

C # cevabımla aynı konsept.

Çevrimiçi deneyin!

Japt , 18 bayt

ñÈi"ñÈi\"\\ bX" bX

Dene

ñÈi"ñÈi\"\\ bX" bX     :Implicit input of string or character array
ñ                      :Sort by
 È                     :Passing each X through the following function
  i                    :  Prepend X with
   "ñÈi\"\\ bX"        :    Literal string (The \s are annoying me!)
                bX     :  First index of X

Jöle , 26 bayt (UTF-8 *)

“®³nÞṾ©V”Ṿ©VV

Çevrimiçi deneyin!

1. komut satırı argümanında Python biçimli bir dize olarak girdi alır.

Benzersiz karakterler :

“®³nÞṾ©V”

* Not: Bunun JELLY'de kodlandığında çalışmadığını keşfettim, çünkü kendi baytlarının yerine UTF-8 karakterlerini sıralar.