เขียนโปรแกรมที่รับสตริงและส่งออกอักขระทั้งหมดตามลำดับตัวอักษร ช่องว่างและสัญลักษณ์สามารถละเว้นหรือลบได้ แต่ตัวอักษรตัวพิมพ์ใหญ่และตัวพิมพ์เล็กจะต้องอยู่ในกรณีเดียวกัน

ตัวอย่างอินพุต:

Johnny walked the dog to the park.

ตัวอย่างผลลัพธ์

aaddeeeghhhJklnnoooprtttwy

กฎ:

•ภาษาใด ๆ

•รหัสที่สั้นที่สุดชนะ

MathGolf 2 ไบต์

áδ

ลองออนไลน์!

ตัวอย่างผลลัพธ์

      .aaddeeeghhhJkklnnoooprtttwy

การลบอักขระที่ไม่ใช่ตัวอักษร

ในการลบอักขระที่ไม่ใช่ตัวอักษรทั้งหมดวิธีนี้ใช้งานได้:

áδgÆ∞_δ¡

มันเป็นเช่นเดียวกับรหัสข้างต้นตามด้วยการกรองที่ตัวละครแต่ละตัวเป็นครั้งแรกและเปรียบเทียบตัวพิมพ์ใหญ่ของตัวเอง ยกตัวอย่างเช่นสตริง"a"จะถูกแปลงเป็น"aa"แล้วพิมพ์ใหญ่เพื่อที่จะไม่เท่ากับ"Aa" "aa"เช่นเดียวกับสตริง"B"จะถูกแปลง"BB"และพิมพ์ใหญ่เพื่อที่จะไม่เท่ากับ"Bb" "BB"อย่างไรก็ตาม"."ถูกแปลงเป็น".."และไม่เปลี่ยนแปลงเมื่อพิมพ์ใหญ่ดังนั้นจึงจะถูกกรองออก

คำอธิบาย

ฉันต้องการการจัดการสตริงมากขึ้นใน MathGolf ... ตอนนี้ไม่มีแม้แต่โอเปอเรเตอร์ที่จะแปลงเป็นตัวพิมพ์เล็ก / ตัวพิมพ์ใหญ่ สิ่งเดียวที่ฉันสามารถใช้ได้คือตัวดำเนินการตัวพิมพ์ใหญ่ซึ่งทำงานเหมือนกับตัวดำเนินการตัวพิมพ์ใหญ่สำหรับสตริงที่มีความยาว 1 โซลูชันนี้ยังเรียงอักขระที่ไม่ใช่ตัวอักษร แต่ก็สามารถละเว้นได้ อักขระตามตัวอักษรรักษาเคสและส่งออกตามลำดับที่ถูกต้อง

á    sort by comparator
 δ   capitalize string

GolfScript, 24/6 ตัวอักษร

{26,{65+.32+}%?)},{31&}$

ตัวอย่าง:

> Johnny walked the dog to the park.
aaddeeeghhhJkklnnoooprtttwy  

หากอินพุตถูก จำกัด ให้พิมพ์ ascii รหัสสามารถสั้นลงได้สามอักขระโดยใช้{95&.64>\91<&},เป็นตัวกรอง

สามารถทดสอบได้ที่นี่

เวอร์ชันที่ไม่สามารถเพิกเฉยนั้นสั้นกว่า (6 ตัวอักษร):

{31&}$

และผลผลิตผลผลิต

> Johnny walked the dog to the park.
      aaddeeeghhhJkkl.nnoooprtttwy

GNU core utils - 25 ตัวอักษร (29 สัญลักษณ์ดร็อป)

fold -1|sort -f|tr -d \\n

ตัวอย่าง (จาก GNU bash 3):

$ echo "Johnny walked the dog to the park."|fold -1|sort -f|tr -d \\n
      .aaddeeeghhhJkklnnoooprtttwy   <<no trailing newline>>

จากคำถาม:

ช่องว่างและสัญลักษณ์สามารถละเว้นหรือลบได้

ฉันเลือกที่จะทิ้งไว้! หากต้องการเก็บเฉพาะอักขระที่เป็นตัวอักษรให้แทนที่fold -1ด้วยgrep -o \\w+4 อักขระ

grep -o \\w|sort -f|tr -d \\n

ขอขอบคุณที่หิ่งห้อยสำหรับแนะนำgrep -oมากกว่าsedและ Wumpus fold -1สำหรับ ;-)

C, 121

นี่ค่อนข้างนานเมื่อเทียบกับรายการอื่น ๆ แต่มันไม่ได้พึ่งพาฟังก์ชั่นการเรียงลำดับในตัวหรือ ToLower ใด ๆ :

j;main(k){char s[99],*p=s;gets(s);while(*p){j=p-s-1;k=*p++;while(j>=0&&(s[j]|32)>(k|32))s[j+1]=s[j--];s[j+1]=k;}puts(s);}

รุ่นที่อ่านเพิ่มเติมได้:

j; main(k) {
    char s[99], *p=s;
    gets(s);
    while(*p) {
        j = p-s-1;
        k = *p++;
        while(j >= 0 && (s[j]|32) > (k|32))
            s[j+1] = s[j--];
        s[j+1] = k;
    }
    puts(s);
}

นี่คือการใช้งานของการเรียงลำดับการแทรกด้วยการเปรียบเทียบระหว่างตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ (โดยใช้การ|32ดำเนินการระดับบิต) นี่เป็นเพราะใน ASCII การเข้ารหัสตัวอักษรตัวพิมพ์ใหญ่และตัวอักษรตัวเล็กแตกต่างกันเพียง 2 ⁵บิต

Ruby - 33 ตัวอักษร

$><<gets.chars.sort(&:casecmp)*''

PowerShell: 39

$([string[]][char[]](Read-Host)|sort)" #With spaces and symbols

ผลลัพธ์

  .aaddeeeghhhJkklnnoooprtttwy

C #: 100

Console.Write(new string(input.ToCharArray().OrderBy(a=>char.ToLower(a)).ToArray()).Trim('.',' '));

ผลลัพธ์

aaddeeeghhhJkklnnoooprtttwy

Perl6: 26 ตัวอักษร

เรียงลำดับเอาต์พุตตัวพิมพ์ใหญ่ก่อนจากนั้นตัวพิมพ์เล็กจะลบสัญลักษณ์ / ช่องว่าง

say [~] sort comb /\w/,get

หากช่องว่าง / สัญลักษณ์ในเอาต์พุตอาจถูกละเว้นเช่นกันนี่เป็นเพียง 21 ตัวอักษร

say [~] get.comb.sort

จะเรียงตามตัวพิมพ์ใหญ่ - เล็กและเก็บสัญลักษณ์ (26 ตัวอักษร)

say [~] get.comb.sort: &lc

APL 16

      ⍞←A[⍋48|⎕av⍳A←⍞]
Johnny walked the dog to the park.
      aaddeeeghhhJkklnnoooprtttwy.

Perl 34

STDINตอนนี้ใช้เวลาการป้อนข้อมูลจาก

print sort{lc$a cmp lc$b}<>=~/\w/g

Perl 18

หากเอาต์พุตรวมถึงเมืองหลวงก่อนและรวมสัญลักษณ์ไว้เป็นที่ยอมรับ:

print sort<>=~/./g

Python 3: 45

print(''.join(sorted(input(),key=str.lower)))

Haskell, 88

import Data.List
import Data.Char
import Data.Ord
main=interact$sortBy$comparing toLower

(38 โดยไม่ต้องนำเข้าจาก lib มาตรฐาน)

k ( 10 9)

อ่านจาก stdin

x@<_x:0:0

ตัวอย่าง

x@<_x:0:0
Johhny walked the dog to the park.
"      .aaddeeeghhhhJkklnoooprtttwy"

C #: 83

Console.Write(new string(Console.ReadLine().OrderBy(i=>i+"".ToLower()).ToArray()));

อัปเดต: 65

ปฏิบัติการได้ในLinQPad

new string(Console.ReadLine().OrderBy(i=>i+"").ToArray()).Dump();

J, 12 ตัวอักษร

(/:32|a.i.])

ละเว้นอักขระที่ไม่ใช่ตัวอักษรใด ๆ

Javascript - 74

น่าเสียดายเนื่องจาก JS จัดเรียงตัวอักษรเราไม่สามารถใช้ฟังก์ชันการเรียงลำดับมาตรฐานได้:

prompt().split("").sort(function(a,b){return a.localeCompare(b)}).join("")

จริงๆแล้วสิ่งนี้สามารถย่อให้เป็น:

prompt().split("").sort((a,b)=>a.localeCompare(b)).join("")

F # ( 68 56)

ฉันกำลังเรียนรู้ F # ดังนั้นฉันจึงมั่นใจว่าอาจสั้นกว่านี้:

let f s=s|>Seq.sortBy Char.ToLower|>Seq.iter(printf"%c")

เอาท์พุท:

> f "Johnny walked the dog to the park."
        .aaddeeeghhhJkklnnoooprtttwy 

PHP, 50 ไบต์

$a=str_split($argn);natcasesort($a);echo join($a);

ไม่ลบตัวอักษรที่ไม่ใช่เอาข้อมูลจาก STDIN; -Rทำงานด้วย

R, 48 ตัวอักษร

cat(sort(unlist(strsplit(scan(,""),""))),sep="")

ตัวอย่างการใช้งาน:

> cat(sort(unlist(strsplit(scan(,""),""))),sep="")
1: Johnny walked the dog to the park.
8: 
Read 7 items
.aaddeeeghhhJkklnnoooprtttwy

q / k4 (3? 5? 8?)

ถ้ามันเพียงพอที่จะป้อนรหัสและการป้อนข้อมูลโดยตรงใน REPL มันเป็นเพียงasc:

q)asc"Johnny walked the dog to the park."
`s#"      .Jaaddeeeghhhkklnnoooprtttwy"

`s#เป็นบิตของสัญกรณ์ Q ที่บ่งชี้ว่าสตริงอยู่ในลำดับที่เรียงลำดับ (สามารถสืบค้นไบนารีอื่น ๆ ) ถ้าต้องไปนั่นต้องเสียค่าตัวละครสองตัวโดยทำห้า:

q)`#asc"Johnny walked the dog to the park."
"      .Jaaddeeeghhhkklnnoooprtttwy"

หากคุณต้องการให้มันเป็น stdin ก็ถึงเวลาเปลี่ยนเป็น k4 (และเราจะกำจัด`s#ให้ฟรี) และมันเป็นตัวละครแปดตัว:

  x@<x:0:0
Johnny walked the dog to the park.
"      .Jaaddeeeghhhkklnnoooprtttwy"

หนึ่งนั้น btw จะทำงานเป็นไฟล์รหัสให้ตรงตามที่เป็นอยู่ (ยังมีอักขระแปดตัวเนื่องจาก q ใช้ได้ดีโดยไม่ต้องขึ้นบรรทัดใหม่สุดท้ายในไฟล์รหัส) โดยปกติจะมีปัญหากับแบนเนอร์ต้อนรับและเมื่อ REPL เปิดอยู่ แต่ถ้าคุณส่งอินพุตเป็น herestring สิ่งที่หายไป:

$ cat asc.k
x@<x:0:0
$ q asc.k<<<'Johnny walked the dog to the park.'
"\n      .Jaaddeeeghhhkklnnoooprtttwy"
$ 

ไม่แน่ใจจริงๆว่าบรรทัดใหม่ที่เพิ่มในเอาต์พุตมาจาก ....

เยลลี่ 3 ไบต์

ŒlÞ

วิธีการแก้ปัญหาวุ้นแรกของฉันในเว็บไซต์นี้! ขอบคุณ @LeakyNun และ @ErikTheOutgolfer สำหรับการสอนฉันถึงวิธีการใช้ Jelly และ @Dennis เพื่อสร้างมันขึ้นมา! : D

คำอธิบาย

ŒlÞ
  Þ Sort using the function to its left
Œl  Converts to lowercase (because it's sort alphabetically, not by codepoint)

อีกวิธีหนึ่งคือŒuÞทำสิ่งเดียวกันแน่นอนยกเว้นการแปลงเป็นตัวพิมพ์ใหญ่แทน

Java 10, 72 ไบต์ (เป็นฟังก์ชั่นแลมบ์ดา)

s->{for(int i=64;++i<91;)for(var c:s)if((c&~32)==i)System.out.print(c);}

ลองออนไลน์

แต่เนื่องจากเป็นความท้าทายแบบเก่าที่ระบุว่าโปรแกรมเต็มรูปแบบ:

Java 10, 126 ไบต์ (เป็นโปรแกรมเต็มรูปแบบ)

interface M{static void main(String[]a){for(int i=64;++i<91;)for(var c:a[0].toCharArray())if((c&~32)==i)System.out.print(c);}}

ลองออนไลน์

คำอธิบาย:

interface M{                        // Class
  static void main(String[]a){      //  Mandatory main method
    for(int i=64;++i<91;)           //   Loop over the uppercase alphabet
      for(var c:a[0].toCharArray()) //    Inner loop over the characters of the input
        if((c&~32)                  //     If the current character converted to uppercase,
                  ==i)              //     equals the current letter of the alphabet
          System.out.print(c);}}    //      Print the character of the input-loop

05AB1E , 3 2 ไบต์

Σl

ละเว้นอักขระที่ไม่ใช่ตัวอักษรดังนั้นอักขระบางตัวจึงเป็นอักขระนำหน้าและอักขระบางตัวต่อท้าย

ลองมันออนไลน์

เวอร์ชันที่ลบอักขระที่ไม่ใช่ตัวอักษรคือ3 ไบต์แทน:

áΣl

ลองมันออนไลน์

คำอธิบาย:

á    # Optional: only leave the letters ([a-zA-Z]) of the (implicit) input-string
 Σ   # Sort the characters in the string by (sorted by their ASCII unicode value):
  l  #  Their lowercase equivalent (in case of the letters)
     # (And output the result implicitly)

Powershell ขนาด 36 ไบต์

-join($args-split'\W|(.)'-ne''|sort)

สคริปต์ทดสอบ:

$f = {

-join($args-split'\W|(.)'-ne''|sort)

}

@(
    ,("Johnny walked the dog to the park.", "aaddeeeghhhJkklnnoooprtttwy")
) | % {
    $s,$expected = $_
    $result = &$f $s
    "$("$result"-eq"$expected"): $result"
}

เอาท์พุท:

True: aaddeeeghhhJkklnnoooprtttwy

Julia 1.0 , 34 bytes

s->join(sort([s...],by=lowercase))

ลองออนไลน์!