Meydan açıklaması

Bir isim, her biri birçok grup tarafından kaydedilen birçok parçalık bir müzik kütüphanesi var gibi Queen, Aerosmith, Sunny Day Real Estate, The Strokes. Bir müzik çalar kitaplığınızı alfabetik olarak grup adına göre görüntülediğinde, genellikle Thegrup isimlerini atlar ve Themedya koleksiyonunuzda gezinmeyi kolaylaştırır. Bu zorlamada, dizelerin bir listesi (dizisi) göz önüne alındığında, bu şekilde sıralamanız gerekir (yani, Theismi adın başında atlar ). Bir yöntem ya da tam çalışan bir program yazabilirsiniz.

Örnek girişler / çıkışlar

[Queen, Aerosmith, Sunny Day Real Estate, The Strokes] -> [Aerosmith, Queen, The Strokes, Sunny Day Real Estate]
[The Ramones, The Cure, The Pixies, The Roots, The Animals, Enrique Iglesias] -> [The Animals, The Cure, Enrique Iglesias, The Pixies, The Ramones, The Roots]
[The The, The They, Thermodynamics] -> [The The, Thermodynamics, The They]

Notlar / Kenar kılıfları

• Sözlük sırasında sıralama böylece, duyarsız olduğu The Police, The policeve the policetüm eşdeğerdir,

• Algoritmanız yalnızca ilk thekelimeyi atlamalıdır , bu yüzden normal olarak adlandırılmış The Theveya The The Bandsıralanan gruplar sıralanır the,

• The(Üç harfli bir kelime) adlı bir bant normal olarak sıralanır (atlama yok),

• Aynı isme sahip iki grubun sırası (biri thegibi The Policeve ile başlar Police) tanımsız,

• Bir grubun adı birden fazla kelimeden oluşuyorsa, tek bir boşluk karakteriyle ayrıldığını varsayabilirsiniz. Önde gelen ya da takip eden beyaz boşluklarla uğraşmanıza gerek yok,

• Tüm girdi dizeleri eşleşir [A-Za-z0-9 ]*, yani sadece İngilizce alfabe, rakamlar ve boşluk karakterlerinden oluşan küçük ve büyük harflerden oluşacaktır.

• Bunun bir kod golf mücadelesi olduğunu unutmayın, bu yüzden kodunuzu mümkün olduğunca kısa tutun!

Python, 56 62 64 bayt

lambda b:sorted(b,key=lambda x:(x,x[4:])[x.lower()[:4]=='the '])

Dene

Doğru şekilde lstrip()kullanılmadığını belirten @Chris H sayesinde The The, şerit tüm eşleşen karakterleri patlatıp boş bir dize olarak sıralıyordu ve kullanımdaki hatayı bulmak için @manatwork kullanıldı replace(). Yeni sürüm çalışması gerekir.

Eski versiyon:

lambda b:sorted(b,key=lambda x:x.lower().lstrip('the '))

V , 32 28 bayt

ç^The /dwA_
:sort
ç_/$xIThe 

Çevrimiçi deneyin!

:sortKendime not : Kısaltma yapın, böylece tek bir komut için 6 tam bayta ihtiyacım olmaz!

Açıklama:

ç^The /     "On every line starting with 'The ',
       dw   "Delete a word
         A_ "And (A)ppend an underscore '_'

:sort       "Sort all lines alphabetically

ç_/         "On every line containing an underscore,
   $x       "Delete the last character
     IThe   "And prepened 'The '

Retina , 34 bayt

Sondaki satır besleme kayda değerdir.

%`^
$';
T`L`l`.+;
m`^the 

O`
.+;

G / Ç, her satırda bir banttır.

Çevrimiçi deneyin!

açıklama

%`^
$';

;Ayırıcı olarak kullanarak her satırı çoğaltın .

T`L`l`.+;

Her şeyi a'nın önüne ;küçük harfe çevirin .

m`^the 

theSatırın başında belirenleri kaldırın .

O`

Çizgileri sırala.

.+;

Sıralama için kullandığımız satırların başlangıçlarını kaldırın.

Pyke, 16 bayt

.#l1D"the ".^4*>

Burada dene!

.#                - sort_by(V, input)
  l1              -  i = i.lower()
      "the ".^    -   i.startswith("the ")
              I   -  if ^:
               4> -   i[4:]

Perl, 52 bayt

@ Mat210 sayesinde @manatwork -1 byte sayesinde -13 bayt

sub f{lc pop=~s/^the //ri}print sort{f($a)cmp f$b}<>

Girdi başına satır başına bir bant, yani çıktı.

Uygulama oldukça basittir: program f, sonuçta baştaki satır olmadan küçük harfli bant adını veren özel bir fonksiyonun ( ) yardımıyla sıralanmış grupların listesini yazdırır the.

Python, 66 72 69 bayt

lambda x:sorted(x,key=lambda a:a[4*(a.lower()[:4]=='the '):].lower())

"The" eksi adına göre sıralamak sortediçin Python yöntemini keyanahtar sözcük argümanıyla kullanır . Bu bir lambda; aramak için, isminizi koyarak söyleyin.f= önüne .

Şimdi ekstra büyük harf duyarsızlığı ile!

Ruby, 42 bayt

->a{a.sort_by{|s|s.upcase.sub /^THE /,''}}

Çevrimiçi deneyin!

Perl 6 , 26 bayt

*.sort({fc S:i/^'the '//})

Açıklama:

# ｢*｣ is the input to this Whatever lambda
*.sort(

  # sort based on the return value of this Block lambda
  {
    fc # foldcase the following

    # string replace but not in-place
    S
      :ignorecase
      /
        # at the start of the string
        ^

        # match ｢the ｣
        'the '

      # replace with nothing
      //
  }
)

Ölçek:

use v6.c;
use Test;

my @tests = (
  « Queen Aerosmith 'Sunny Day Real Estate' 'The Strokes' »
    => « Aerosmith Queen 'The Strokes' 'Sunny Day Real Estate' »,
  « 'The Ramones' 'The Cure' 'The Pixies' 'The Roots' 'The Animals' 'Enrique Iglesias' »
    => « 'The Animals' 'The Cure' 'Enrique Iglesias' 'The Pixies' 'The Ramones' 'The Roots' »,
  « 'The The' 'The They' Thermodynamics »
    => « 'The The' Thermodynamics 'The They' »,
);

# give it a lexical name for clarity
my &band-sort = *.sort({fc S:i/^'the '//});

plan +@tests;

for @tests -> ( :key(@input), :value(@expected) ) {
  is-deeply band-sort(@input), @expected, @expected.perl;
}

1..3
ok 1 - ("Aerosmith", "Queen", "The Strokes", "Sunny Day Real Estate")
ok 2 - ("The Animals", "The Cure", "Enrique Iglesias", "The Pixies", "The Ramones", "The Roots")
ok 3 - ("The The", "Thermodynamics", "The They")

PowerShell v2 +, 33 32 29 bayt

$args|sort{$_-replace'^the '}

@MathiasRJessen sayesinde 3 bayt kaydedildi

Giriş, komut satırı argümanları üzerinden yapılır. Baştaki (büyük / küçük harf duyarlı) {...}sırayı -replaceçıkarmak için bir regex uygulayan komut dosyası bloğunun sonuçlarına göre orijinal adları sıralar "the ".

Örnekler

PS C:\Tools\Scripts\golfing> .\sort-band-names.ps1 'the Ramones' 'The cure' 'The Pixies' 'The Roots' 'the Animals' 'Enrique Iglesias'
the Animals
The cure
Enrique Iglesias
The Pixies
the Ramones
The Roots

PS C:\Tools\Scripts\golfing> .\sort-band-names.ps1 'The The' 'The They' 'Thermodynamics'
The The
Thermodynamics
The They

PS C:\Tools\Scripts\golfing> .\sort-band-names.ps1 'THE STOOGES' 'The Strokes' 'The The' 'the they' 'the band' 'STP'
the band
THE STOOGES
STP
The Strokes
The The
the they

JavaScript / ECMAScript 6 93 70 bayt

70 Tavsiye için Neil ve Downgoat'a teşekkürler

B=>B.sort((a,b)=>R(a).localeCompare(R(b)),R=s=>s.replace(/^the /i,''))

70 bayt değişken için Okunabilir Sürüm

let sortBandNames = (bandNames) => {
    let stripThe = (name) => name.replace(/^the /i, '');
    let compareFunc = (a, b) => stripThe(a).localeCompare(stripThe(b));
    return bandNames.sort(compareFunc)
};

93

f=B=>{R=s=>s.toLowerCase().replace(/the /,'');return B.sort((a,b)=>R(a).localeCompare(R(b)))}

93 bayt değişkeni için okunabilir sürüm

let sortBandNames = (bandNames) => {
    let stripThe = (name) => name.toLowerCase().replace(/the /, '');
    let compareFunc = (a, b) => stripThe(a).localeCompare(stripThe(b));
    return bandNames.sort(compareFunc)
};

Java 8, 178 bayt

void q(String[]s){java.util.Arrays.sort(s,(a,b)->(a.toLowerCase().startsWith("the ")?a.substring(4):a).compareToIgnoreCase(b.toLowerCase().startsWith("the ")?b.substring(4):b));}

Ungolfed versiyonu:

void sort(String[] bands) {
    java.util.Arrays.sort(bands, (a, b) -> 
        (a.toLowerCase().startsWith("the ") ? a.substring(4) : a).compareToIgnoreCase(
            b.toLowerCase().startsWith("the ") ? b.substring(4) : b
        )
    );
}

Bu şekilde arayın:

public static void main(String[] args) {
    String[] bands = {"The Strokes", "Queen", "AC/DC", "The Band", "Cage the Elephant", "cage the elephant"};
    sort(bands); // or q(bands) in the golfed version
    System.out.println(java.util.Arrays.toString(bands));
}

Nim , 96 bayt

import algorithm,strutils,future
x=>x.sortedByIt toLower it[4*int(it.toLower[0..3]=="the ")..^0]

^{Bu importkadar çok bayt alır:|}

Python cevabımın çevirisi .

Bu isimsiz bir işlemdir; kullanmak için bir test prosedürüne geçirilmelidir. İşte test için kullanabileceğiniz tam bir program:

import algorithm,strutils,future
proc test(x: seq[string] -> seq[string]) =
 echo x(@["The The", "The They", "Thermodynamics"]) # Substitute your input here
test(x=>x.sortedByIt toLower it[4*int(it.toLower[0..3]=="the ")..^0])

Haskell, 84 bayt

import Data.List
p(t:'h':'e':' ':s)|elem t"Tt"=s
p s=s
sortBy(\a b->p a`compare`p b)

İle ara

sortBy(\a b->p a`compare`p b)["The The", "The They", "Thermodynamics"]

Test durumu:

let s = sortBy(\a b->p a`compare`p b)
and[s["Queen", "Aerosmith", "Sunny Day Real Estate", "The Strokes"]==["Aerosmith", "Queen", "The Strokes", "Sunny Day Real Estate"],s["The Ramones", "The Cure", "The Pixies", "The Roots", "The Animals", "Enrique Iglesias"]==["The Animals", "The Cure", "Enrique Iglesias", "The Pixies", "The Ramones", "The Roots"],s["The The", "The They", "Thermodynamics"]==["The The", "Thermodynamics", "The They"]]

MATL , 16 bayt

tk'^the '[]YX2$S

Giriş formatı (her satır bir test senaryosuna karşılık gelir)

{'Queen', 'Aerosmith', 'Sunny Day Real Estate', 'The Strokes'} 
{'The Ramones', 'The Cure', 'The Pixies', 'The Roots', 'The Animals', 'Enrique Iglesias'}
{'The The', 'The They', 'Thermodynamics'}

Çevrimiçi deneyin!

açıklama

t        % Implicitly input cell array of strings. Push another copy
k        % Convert to lowercase
'^the '  % String to be used as regex pattern: matches initial 'the '
[]       % Empty array
YX       % Regex replacement: replace initial 'the ' in each string by empty array
2$S      % Sort input according to the modified cell array. Implicitly display

C #, 139 Bayt

using System.Linq;System.Collections.IEnumerable S(string[] l)=> l.OrderBy(b=>(b.ToLower().StartsWith("the ")?b.Substring(4):b).ToLower());

Çevrimiçi deneyin!

Kullanımları saymadan cevap, 102 bayttır.

BASH, 64 Bayt

sed 's/^the / /;s/^The /    /'|sort -fb|sed 's/^ /the /;s/^ /The /'

Giriş: stdin, satır başına bir bant. Çıktı: stdout

Not: İkinci değiştirmeler (s / ^ / / ve s / ^ / / /) sekme karakterini kullanır, böylece her zaman doğru kopyalayıp yapıştırmazlar.

Bash + coreutils, 44 bayt

sed '/^the /I!s,^,@ ,'|sort -dk2|sed s,@\ ,,

Açıklama: giriş ve çıkış formatı satır başına bir banttır

sed '/^the /I!s,^,@ ,'   # prepend '@ ' to each line not starting with 'the ', case
                         #insensitive. This adds a temporary field needed by sort.
sort -dk2                # sort in ascending dictionary order by 2nd field onward
sed s,@\ ,,              # remove the temporary field

Test çalıştırması (son işaretleyici olarak EOF olan bir burada belge kullanarak):

./sort_bands.sh << EOF
> Queen
> Aerosmith
> Sunny Day Real Estate
> The Strokes
> EOF

Çıktı:

Aerosmith
Queen
The Strokes
Sunny Day Real Estate

Vim, 18 bayt

Şimdi bunun mümkün olduğunu anladığımda, 26 baytlık V cevabımdan utanıyorum, özellikle de V'nin vim'den daha kısa olması gerektiği için. Ama bu hemen hemen bir yerleşik.

:sor i/\(The \)*/<CR>

Açıklama (doğrudan vim yardımından):

                            *:sor* *:sort*
:[range]sor[t][!] [b][f][i][n][o][r][u][x] [/{pattern}/]
            Sort lines in [range].  When no range is given all
            lines are sorted.

            With [i] case is ignored.

            When /{pattern}/ is specified and there is no [r] flag
            the text matched with {pattern} is skipped, so that
            you sort on what comes after the match.
            Instead of the slash any non-letter can be used.

C, 216 212 135 + 5 ( qsort) = 221 217 140 bayt

M(void*a,void*b){char*A,*B;A=*(char**)a;B=*(char**)b;A=strcasestr(A,"The ")?A+4:A;B=strcasestr(B,"The ")?B+4:B;return strcasecmp(A,B);}

Sonunda bunu bitirmek için etrafta dolaştım C. Golf ipuçları çok takdir edilmektedir.

Bu başvuruda, Msağlanacak olan karşılaştırma işlevidir qsort. Bu nedenle, bu çağırmak için, kullanmak gerekir qsortformatında qsort(argv++,argc--,8,M)nerede argvkomut satırı argümanları içerir veargc bağımsız değişken sayısını olduğunu.

Çevrimiçi Deneyin!

05AB1E , 27 bayt ( yarışmaz )

vyð¡RD¤…TheQsgα£Rðý})‚øí{ø¤

Çevrimiçi deneyin!

açıklama

vyð¡RD¤…TheQsgα£Rðý})‚øí{ø¤   Argument l
v                 }           For each y in l, do:
 yð¡                            Split y on space
    RD                          Reverse and duplicate
      ¤…TheQ                    Last element equals "The" (true = 1, false = 0)
            sgα                 Absolute difference with length of array
               £                Get elements from index 0 to calculated difference
                R               Reverse
                 ðý             Join on space
                    )‚øí      Pair each element with original
                        {ø¤   Sort and get the original band name

Groovy, 34 bayt

{it.sort{it.toLowerCase()-'the '}}

41% cevabım .toLowerCase() , beni şimdi öldür.

Çıktı

Koşarken ...

({it.sort{it.toLowerCase()-'the '}})(['The ramones','The Cure','The Pixies','The Roots','The Animals','Enrique Iglesias'])

Sonuç ...

[The Animals, The Cure, Enrique Iglesias, The Pixies, The ramones, The Roots]

Hata ayıklama veya hata çıkışı yok.

q / kdb +, 36 33 bayt

Çözüm:

{x(<)@[x;(&)x like"[Tt]he *";4_]}

Örnek:

q){x(<)@[x;(&)x like"[Tt]he *";4_]}("Queen";"Aerosmith";"Sunny Day Real Estate";"The Strokes";"the Eagles")
"Aerosmith"
"the Eagles"
"Queen"
"The Strokes"
"Sunny Day Real Estate"

Açıklama:

Her giriş dizgisinden herhangi bir "[Tt] he" yi çıkarın, bu listeyi sıralayın, sonra sıralanan listenin endekslenmesine göre orijinal listeyi sıralayın.

{x iasc @[x;where x like "[Tt]he *";4_]} / ungolfed solution
{                                      } / lambda function
        @[x;                       ;  ]  / apply function to x at indices
                                    4_   / 4 drop, remove first 4 items
            where x like "[Tt]he *"      / where the input matches 'The ...' or 'the ...'
   iasc                                  / returns sorted indices
 x                                       / index into original list at these indices

Japt , 11 10 bayt

ñ_v r`^e 

Dene

Java 176 158 bayt

public String[]sort(String[]names){
  for(int i=-1;++i<names.length;)
    if(names[i].startsWith("(The |the )"))
      names[i]=names[i].substring(4);
  return Arrays.sort(names,String.CASE_INSENSITIVE_ORDER);
  }

Ana işlev

public static void main(String[]args){
  Scanner s = new Scanner(System.in);
  List<String> list= new ArrayList<>();
  while(!(String h = s.nextLine).equalsIgnoreCase("~")){
    list.add(h);
  }
System.out.println(sort(list.toArray(newString[0]))

); }

Golf sıralama işlevi:

String[]s(String[]n){for(int i=-1;++i<n.length;)if(n[i].startsWith("(The |the )"))n[i]=n[i].substring(4);return Arrays.sort(n,String.CASE_INSENSITIVE_ORDER);}

18 bayt tasarruf için @raznagul teşekkürler