Напишіть програму, яка займає рядок і виводить усі символи в алфавітному порядку. Пробіли та символи можна ігнорувати або видаляти, але великі та малі літери повинні залишатися однаковими.

Зразок введення:

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

Завдяки Firefly для рекомендуючи grep -oбільше sedі Wumpus для fold -1. ;-)

С, 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 ^5- бітовими.

Рубін - 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

АПЛ 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

Перл 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.])

Ігнорує будь-які символи, які не містять альфа.

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)`#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, який залишається відкритим, але якщо ви передасте введення як герестир, все, що минає:

$ 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

Джулія 1,0 , 34 байти

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

Спробуйте в Інтернеті!