문자열을 취하여 모든 문자를 알파벳 순서로 출력하는 프로그램을 작성하십시오. 공백과 기호는 무시하거나 삭제할 수 있지만 대문자와 소문자는 동일하게 유지해야합니다.

샘플 입력 :

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<&},되면 필터로 필터를 사용하여 코드를 3 자로 줄일 수 있습니다 .

여기에서 테스트 할 수 있습니다 .

무시할 수있는 버전은 더 짧습니다 (6 자).

{31&}$

생산량

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

GNU 핵심 유틸리티-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주신 Firefly에게 감사 드리며 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 ⁵ 비트 만 다르기 때문입니다 .

루비-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.

펄 34

이제에서 입력을받습니다 STDIN.

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

펄 18

대문자와 기호를 포함한 출력이 허용되는 경우 :

print sort<>=~/./g

파이썬 3:45

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

하스켈, 88

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

(표준 라이브러리에서 가져 오지 않은 38 개)

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

비 알파 문자를 무시합니다.

자바 스크립트-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 표기 비트. 그것이 가야한다면, 그것은 2 자의 비용이 들며 5를 만듭니다.

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

stdin에 제공하려면 k4로 전환해야합니다 (그리고 우리 `s#는 무료로 제거합니다) .8 자 솔루션입니다.

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

그 중 하나 인 btw는 그대로 코드 파일로 작동합니다 (여전히 8 자, q는 코드 파일에 마지막 개행 문자가 없기 때문에 괜찮습니다). 일반적으로 시작 배너 및 REPL이 열린 상태로 문제가 발생하지만 입력을 herestring으로 전달하면 모든 것이 사라집니다.

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

실제로 출력의 추가 줄 바꿈이 어디에서 오는지 확실하지 않습니다.

젤리, 3 바이트

ŒlÞ

이 사이트의 첫 번째 젤리 솔루션! Jelly와 @Dennis를 사용하여 만드는 방법을 가르쳐 준 @LeakyNun과 @ErikTheOutgolfer에게 감사합니다! :디

설명

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

파워 쉘, 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

줄리아 1.0 , 34 바이트

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

온라인으로 사용해보십시오!