คำอธิบายการท้าทาย

คุณมีคลังเพลงที่มีหลายแทร็คที่บันทึกโดยหลาย ๆ วงแต่ละที่มีชื่อเช่นQueen, Aerosmith, ,Sunny Day Real Estate The Strokesเมื่อเครื่องเล่นเพลงแสดงไลบรารีของคุณตามลำดับตัวอักษรโดยชื่อแบนด์มันมักจะข้ามTheส่วนที่เป็นชื่อวงดนตรีจำนวนมากเริ่มต้นด้วยTheทำให้ง่ายต่อการนำทางผ่านคอลเลกชันสื่อของคุณ ในความท้าทายนี้เมื่อได้รับรายการ (อาร์เรย์) ของสตริงคุณต้องเรียงลำดับแบบนั้น (นั่นคือไม่ใช้Theคำที่จุดเริ่มต้นของชื่อ) คุณสามารถเขียนวิธีการหรือโปรแกรมทำงานเต็มรูปแบบได้

ตัวอย่างอินพุต / เอาท์พุต

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

เคส Notes / Edge

• เรียงลำดับ lexicographically เป็นกรณีตายดังนั้นThe Police, The policeและthe policeเทียบเท่าทุก

• อัลกอริทึมของคุณควรละเว้นคนแรกที่theคำพูดและวงดนตรีที่ชื่อThe TheหรือThe The Bandจะเรียงตามปกติโดยที่สองthe,

• วงดนตรีชื่อThe(คำสามตัวอักษร) จะถูกจัดเรียงตามปกติ (ไม่ข้าม)

• ลำดับของสองวงดนตรีที่มีชื่อเหมือนกันหนึ่งในนั้นเริ่มต้นด้วยthe(ชอบThe PoliceและPolice) ไม่ได้กำหนด

• คุณสามารถสมมติได้ว่าถ้าชื่อของวงดนตรีประกอบด้วยมากกว่าหนึ่งคำพวกเขาจะถูกคั่นด้วยอักขระช่องว่างเดียว คุณไม่จำเป็นต้องจัดการกับช่องว่างนำหน้าหรือตามหลัง

• การจับคู่สตริงทั้งหมด[A-Za-z0-9 ]*นั้นจะประกอบด้วยตัวอักษรตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ของตัวอักษรภาษาอังกฤษตัวเลขและตัวอักษรเว้นวรรค

• โปรดจำไว้ว่านี่เป็นความท้าทายของการเล่นกอล์ฟดังนั้นลองสร้างรหัสของคุณให้สั้นที่สุด!

Python, 56 62 64 ไบต์

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

ลองมัน

ขอขอบคุณที่ @ Chris H สำหรับการชี้ให้เห็นว่าlstrip()ยังไม่ได้รับการจัดการThe Theอย่างถูกต้องตั้งแต่แถบถูกระเบิดตัวอักษรที่ตรงกันทั้งหมดและการเรียงลำดับมันเป็นสตริงที่ว่างเปล่าและ @manatwork replace()สำหรับการหาข้อบกพร่องในการใช้ เวอร์ชันใหม่ควรใช้งานได้

เวอร์ชั่นเก่า:

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

V , 32 28 ไบต์

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

ลองออนไลน์!

หมายเหตุถึงตัวเอง: ทำตัวย่อ:sortเพื่อที่ว่าฉันไม่ต้องการ 6 ไบต์ทั้งหมดสำหรับคำสั่งเดียว!

คำอธิบาย:

ç^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 '

เรติน่า 34 ไบต์

ตัวป้อนบรรทัดต่อท้ายมีความสำคัญ

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

O`
.+;

I / O คือหนึ่งวงต่อบรรทัด

ลองออนไลน์!

คำอธิบาย

%`^
$';

ทำซ้ำแต่ละบรรทัดโดยใช้;เป็นตัวคั่น

T`L`l`.+;

หมุนทุกอย่างที่อยู่ด้านหน้าของ a เป็น;ตัวเล็ก

m`^the 

ลบใด ๆ the sที่ปรากฏที่จุดเริ่มต้นของบรรทัด

O`

เรียงลำดับบรรทัด

.+;

ลบจุดเริ่มต้นของบรรทัดที่เราใช้สำหรับการเรียงลำดับ

Pyke ขนาด 16 ไบต์

.#l1D"the ".^4*>

ลองที่นี่!

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

Perl, 52 ไบต์

-13 ไบต์ขอบคุณ @manatwork
-1 ไบต์ขอบคุณ @ msh210

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

หนึ่งแบนด์ต่อบรรทัดเป็นอินพุตและดังนั้นก็คือเอาต์พุต

การดำเนินการค่อนข้างตรงไปตรงมา: โปรแกรมพิมพ์รายชื่อของวงดนตรีที่จัดเรียงด้วยความช่วยเหลือของฟังก์ชั่นที่กำหนดเอง (คนf) theซึ่งผลตอบแทนชื่อวงกรณีที่ต่ำกว่าโดยไม่ต้องชั้นนำในที่สุด

Python, 66 72 69 ไบต์

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

ใช้sortedวิธีการของไพ ธ อนพร้อมkeyอาร์กิวเมนต์คำหลักเพื่อจัดเรียงตามชื่อลบ "The" นี่คือแลมบ์ดา โทรหาให้ตั้งชื่อโดยวางไว้f=ด้านหน้า

ขณะนี้มีความรู้สึกตัวพิมพ์เล็กและตัวพิมพ์ใหญ่!

ทับทิมขนาด 42 ไบต์

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

ลองออนไลน์!

Perl 6 , 26 ไบต์

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

คำอธิบาย:

# ｢*｣ 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
      //
  }
)

ทดสอบ:

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 ไบต์

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

บันทึกแล้ว 3 ไบต์ขอบคุณ @MathiasRJessen

อินพุตคือผ่านอาร์กิวเมนต์บรรทัดคำสั่ง เรียงลำดับชื่อดั้งเดิมตามผลลัพธ์ของบล็อกสคริปต์{...}ที่ดำเนินการ regex -replaceเพื่อแยกส่วนนำหน้า (คำนึงถึงขนาดตัวพิมพ์)"the "(กรณีตาย)

ตัวอย่าง

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 ไบต์

70 ขอขอบคุณ Neil และ Downgoat สำหรับคำแนะนำ

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

เวอร์ชันที่อ่านได้สำหรับตัวแปร 70- ไบต์

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- ไบต์

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 ไบต์

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

เวอร์ชันที่ไม่ถูกปรับแต่ง:

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

โทรเช่น:

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

นิมิต , 96 ไบต์

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

^{importไบต์เหล่านั้นมีจำนวนมาก:|}

คำแปลของฉันคำตอบหลาม

นี่เป็นขั้นตอนที่ไม่ระบุชื่อ ในการใช้มันจะต้องถูกส่งไปยังกระบวนการทดสอบ นี่คือโปรแกรมเต็มรูปแบบที่คุณสามารถใช้สำหรับการทดสอบ:

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 ไบต์

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

โทรไปด้วย

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

TestCase:

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 ไบต์

tk'^the '[]YX2$S

รูปแบบอินพุตคือ (แต่ละบรรทัดสอดคล้องกับกรณีทดสอบ)

{'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'}

ลองออนไลน์!

คำอธิบาย

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 ไบต์

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

ลองออนไลน์!

โดยไม่นับการใช้คำตอบจะเป็น 102 ไบต์

BASH, 64 ไบต์

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

อินพุต: stdin หนึ่งวงต่อบรรทัด เอาต์พุต: stdout

หมายเหตุ: การแทนที่ครั้งที่สอง (s / ^ The / / และ s / ^ / The /) ใช้อักขระแท็บดังนั้นจึงไม่คัดลอก / วางอย่างถูกต้องเสมอ

Bash + coreutils 44 ไบต์

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

คำอธิบาย:รูปแบบอินพุตและเอาต์พุตเป็นหนึ่งแบนด์ต่อบรรทัด

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

ทดสอบการทำงาน (โดยใช้เอกสารที่นี่ที่มี EOF เป็นเครื่องหมายสิ้นสุด):

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

เอาท์พุท:

Aerosmith
Queen
The Strokes
Sunny Day Real Estate

เป็นกลุ่ม, 18 ไบต์

ทีนี้เมื่อฉันรู้ว่ามันเป็นไปได้ฉันก็อายด้วยคำตอบ 26 byte V ของฉันโดยเฉพาะอย่างยิ่งเนื่องจาก V ควรสั้นกว่าเสียงเรียกเข้า แต่นี่เป็นแบบในตัว

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

คำอธิบาย (ตรงจากความช่วยเหลือเป็นกลุ่ม):

                            *: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 ไบต์

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

ในที่สุดฉันก็สามารถทำสิ่งนี้Cได้สำเร็จ เคล็ดลับการเล่นกอล์ฟได้รับการชื่นชมอย่างมาก

ในการส่งนี้เป็นฟังก์ชั่นการเปรียบเทียบที่จะจ่ายให้กับM qsortดังนั้นในการเรียกใช้งานนี้คุณต้องใช้qsortในรูปแบบqsort(argv++,argc--,8,M)ที่argvมีอาร์กิวเมนต์บรรทัดคำสั่งและargcเป็นจำนวนอาร์กิวเมนต์ที่ระบุ

ลองออนไลน์!

05AB1E , 27 ไบต์ (ไม่แข่งขัน)

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

ลองออนไลน์!

คำอธิบาย

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 ไบต์

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

41% คำตอบของฉันคือ.toLowerCase()ฆ่าฉันตอนนี้

เอาท์พุต

เมื่อวิ่ง ...

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

ผลที่ได้คือ ...

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

โดยไม่มีการดีบักหรือเอาต์พุตข้อผิดพลาด

q / kdb +, 36 33 ไบต์

วิธีการแก้:

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

ตัวอย่าง:

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"

คำอธิบาย:

ถอด "[Tt] เขา" ออกจากแต่ละสตริงอินพุตเรียงลำดับรายการนี้จากนั้นเรียงลำดับรายการดั้งเดิมตามการจัดทำดัชนีของรายการที่เรียงลำดับ

{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 ไบต์

ñ_v r`^e 

ลองมัน

Java 176 158 ไบต์

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

ฟังก์ชั่นหลัก

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

); }

ฟังก์ชั่นการเรียงลำดับ golfed:

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

ขอบคุณ @raznagul สำหรับการบันทึก 18 ไบต์