Ми всі знаємо про різні фантазійні алгоритми сортування, але жоден з них не дає нам чисел таким чином, щоб їх було легко вимовити. Для усунення цього я пропоную використовувати Pron ProvenceSort ™, найбільш природний спосіб сортування списків чисел.

Вимова

Офіційні правила вимови чисел (у цьому виклику) полягають у тому, що цифри вимовляються одна за одною, а отриманий рядок сортується у лексикографічному порядку. Як приклад, це означає, що число 845вимовляється "eight four five", і його слід сортувати відповідно.

Негативні числа

Від’ємні числа вимовляються заздалегідь слово "minus". Таким чином, -23вимовляється як "minus two three". Зауважте, що це призводить до того, що від'ємні числа закінчуються посередині виводу, прямо між числами, що починаються з 4(чотири) та 9(дев'ять).

Як посібник, офіційний порядок слів для Pron ProvenceSort ™:

• вісім
• п’ять
• чотири
• мінус
• дев'ять
• один
• сім
• шість
• три
• два
• нуль

Це є,

8, 5, 4, -, 9, 1, 7, 6, 3, 2, 0

Вхідні дані

Список цілих чисел у діапазоні $[-999, 999]$ , що містить щонайбільше 100 елементів. Введення як список рядків не дозволяється. Якщо ваша мова не підтримує введення як список, вводити дані можна як окремі цілі числа.

Вхід не буде містити недійсних чисел або будь-яке число, що починається з 0 (крім самого числа 0). Вхід, як правило, не буде сортований, він може бути наданий у будь-якому порядку.

Вихідні дані

Ці самі цілі числа, в порядку Pron ProViewSort ™. Зауважте, що номери повинні бути перетворені лише на їх вимови для сортування, вихід не повинен містити жодних рядків.

Приклади

Для прикладів середній крок (загорнутий у круглі дужки) служить лише орієнтиром, а не є частиною результату.

[1, 2, 3] -> (['one', 'two', 'three']) -> [1, 3, 2]
[-1, 0, 1, 2] -> (['minus one', 'zero', 'one', 'two']) -> [-1, 1, 2, 0]
[-100, 45, 96] -> (['minus one zero zero', 'four five', 'nine six']) -> [45, -100, 96]
[11, 12, 13, 134, 135] -> (['one one', 'one two', 'one three', 'one three four', 'one three five']) -> [11, 13, 135, 134, 12]

Існує також сценарій для підтвердження результатів .

05AB1E (спадщина) , 15 байт

Σε•Koéa₃•'-3ǝsk

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

Пояснення

Σ                 # sort by
 ε                # apply to each
             sk   # index of the element in
  •Koéa₃•         # "85409176320"
         '-3ǝ     # with "-" inserted at index 3

Haskell , 57 байт

import Data.List
sortOn$map(`elemIndex`"54-9176320").show

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

Желе ,  15  13 байт

ṾV€ị“Þ⁽3Z6»µÞ

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

Монадична посилання, що приймає список цілих чисел, що дає список цілих чисел.

Як?

Сортувати за порядковими значеннями цифр цілих чисел (де - "цифра" -1), перетворених у рядки, використовуючи символи за їх 1-базисним та модульним індексом у магічному рядку "murgeon lix".

Сорт є ефективно алфавітним, де пробіл вважається меншим, ніж будь-яка літера.

Чарівний рядок "murgeon lix" був знайдений шляхом огляду словників Jelly, що використовуються при стисненні. Немає слів із 11 листів, які б відповідали цим вимогам (і більше того, що було б при дедублюванні). оскільки сортування пробілів перед літерами наступним найбільш очевидним вибором є слово довжиною сім, за яким слід пробіл, а за ним слово довжиною три. "murgeon" та "lix" є єдиною задовольняючою комбінацією, хоча без пробілу можливі інші (наприклад “£Py:ƥ», "murgeonalix", який працює на одне число байтів)

ṾV€ị“Þ⁽3Z6»µÞ - Link: list of integers
            Þ - sort by:
           µ  -   the monadic link: -- i.e. do this for each integer, then sort by that
Ṿ             -     unevaluate  (e.g. -803 -> ['-','8','0','3'])
 V€           -     evaluate each as Jelly code  (e.g. ['-','8','0','3'] -> [-1,8,0,3])
    “Þ⁽3Z6»   -     "murgeon lix" (compression of words in Jelly's dictionary plus a space)
   ị          -     index into (1-indexed & modular) (e.g. [-1,8,0,3] -> "i xr")

Попередній @ 15 байт :

ṾV€ị“¡Zo⁶’Œ?¤µÞ

Тут “¡Zo⁶’Œ?¤знайдено першу перестановку натуральних чисел, яка знаходилася б у індексі 21,340,635, коли всі перестановки чисел сортуються лексикографічно - що є [6,10,9,3,2,8,7,1,5,4,11]. ( “¡Zo⁶’являє собою базове представлення 250 21340635, тоді Œ?як обчислення і групують ¤ці інструкції разом)

Perl 6 , 30 байт

*.sort:{TR/0..9-/a5982176043/}

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

Порт GB-рішення Ruby.

Оригінальна версія 35 байт

*.sort: (~*).uninames».&{S/\w*.//}

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

Перетворіть кожне число у рядок, отримайте ім'я Unicode кожного символу, зніміть перше слово ("DIGIT" або "HYPHEN"), а потім сортуйте.

JavaScript (SpiderMonkey) , 69 байт

a=>a.sort((a,b)=>(g=n=>[...n+''].map(c=>':598217604'[c]||3))(a)>g(b))

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

K (нг / к) , 21 20 байт

{x@<"54-9176320"?$x}

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

{ } функція з аргументом x

$ формат у вигляді рядків

""?$-2^{63}$"8"

< обчислити перестановку сортування за сортуванням

x@ аргумент за тими показниками

Python 3, 68 байт 67 байт 64 байт

lambda x:sorted(x,key=lambda y:[*map('54-9176320'.find,str(y))])

Використовує вбудований sortedДля ключа функція з анонімною лямбда. Жорстко кодуйте порядок сортування та порівнюйте кожну цифру кожного значення у списку введення з його положенням у списку порядку сортування.

Редагувати: Збережено 1 байт, видаливши 8зі списку сортування, щоб скористатися str.findповерненням, -1коли параметр не знайдено. Завдяки maxb.

Edit2: збережено 3 байти, використовуючи синтаксис розпакування зірочок у listбуквальному, а не в listконструкторі

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

Pyth, 17 16 байт

oxL"54-9176320"`

Спробуйте в Інтернеті тут або одразу підтвердіть усі тестові випадки тут .

oxL"54-9176320"`NQ   Implicit: Q=eval(input())
                     Trailing N, Q inferred
o                Q   Order the elements of Q, as N, using...
               `N      Convert N to string
 xL                    Get the index of each character of that string...
   "54-9176320"        ... in the lookup ordering
                       (if character missing, returns -1, so 8 is still sorted before 5)

Збережено 1 байт завдяки @ngn та їхній відповіді K , опустивши 8 із початку рядка словника

Japt, 19 байт

ñ_s ®n"54-9176320

Спробуй це

• Збережіть 2 байти завдяки ETHproductions .

Сітківка 0,8,2 , 36 байт

T`-d`3:598217604
O`
T`3:598217604`-d

Спробуйте в Інтернеті! Посилання включає тестовий набір. Пояснення:

T`-d`3:598217604

Перекладіть знак мінус і цифри на їх позицію в порядку вимови, використовуючи :для 10-ї позиції.

O`

Сортувати в порядку вимови.

T`3:598217604`-d

Перекладіть замовлення назад до початкового знаку мінус та цифр.

Рубін , 50 байт

->a{a.sort_by{|x|x.to_s.tr('0-9-','a5982176043')}}

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

R , 58 байт

function(x)x[order(mapply(chartr,"-0-9","dkfjicbhgae",x))]

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

Введення - це список чисел, який неявно перетворюється у вигляді рядка за допомогою chartr. orderпотім використовує лексигографічний порядок для отримання порядку, за яким слід сортувати вихідний список.

Java (JDK 10) , 123 байти

l->l.sort(java.util.Comparator.comparing(n->{var r="";for(var c:(""+n).split(""))r+=11+"54-9176320".indexOf(c);return r;}))

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

Це наївна реалізація Java. Повинно бути набагато гольфуючим.

Кредити

• 3 байти збережено завдяки Kevin Cruijssen

JavaScript (SpiderMonkey) , 87 73 байт

a=>a.sort((p,q,F=b=>[...""+b].map(x=>"54-9176320".search(x)))=>F(p)>F(q))

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

Дякуємо @Arnauld за те, що ти сказав, що сорт у SpiderMonkey стабільний, тому ||-(F(q)>F(p))частина остаточно може бути відкинута.

Червоний , 114 байт

func[n][g: func[a][collect[foreach c form a[keep index? find"854-9176320"c]]]sort/compare n func[x y][(g x)< g y]]

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

Більш зрозумілі:

f: func [ n ] [
    g: func [ a ] [
        collect [ 
            foreach c form a [ 
                keep index? find "854-9176320" c
            ]
        ]
    ]
    sort/compare n func [ x y ] [ (g x) < g y ]
]

C ++, 353 байти

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

#include<algorithm>
#include<iostream>
#include<iterator>
#include<numeric>
#include<string>
using namespace std;auto f(int i){auto s=to_string(i);for(auto&c:s)c='A'+"854-9176320"s.find(c);return s;}int main(){int a[100];auto b=begin(a);auto e=end(a);iota(b,e,-50);sort(b,e,[](int l,int r){return f(l)<f(r);});copy(b,e,ostream_iterator<int>(cout," "));}

Вихід:

8 5 4 48 45 44 49 41 47 46 43 42 40 -8 -5 -50 -4 -48 -45 -44 -49 -41 -47 -46 -43 -42 -40 -9 -1 -18 -15 - 14 -19 -11 -17 -16 -13 -12 -10 -7 -6 -3 -38 -35 -34 -39 -31 -37 -36 -33 -32 -30 -2 -28 -25 -24 - 29 -21 -27 -26 -23 -22 -20 9 1 18 15 14 19 11 17 16 13 12 10 7 6 3 38 35 34 39 31 37 36 33 32 30 2 28 25 24 29 21 27 26 23 22 20 0

Математика, 68 байт

SortBy[If[# < 0,"m ",""]<>StringRiffle@IntegerName@IntegerDigits@#&]

Функція. Приймає список цілих чисел як вхідне і повертає відсортований список як вихід. Просто розділяє цифри кожного числа IntegerDigits, перетворює кожну цифру в "zero","one" і т. Д., IntegerNameПеретворює список у розділений пробілом рядок з StringRiffle, попередньо, "m "якщо число є негативним, і сортує на основі цього рядка. Дійсно, це був найкоротший підхід, який я можу знайти, оскільки Mathematica використовує лише лексикографічне сортування для списків однакової довжини; Таким чином, підхід, заснований на 854-9176320завершенні, займає більше байтів, оскільки рядкові функції такі дорогі.

05AB1E , 15 14 байт

Σ•ĆU‘•…54-ìsSk

-1 байт завдяки @Emigna .

Спробуйте в Інтернеті або перевірте всі тестові випадки .

Пояснення:

Σ                 # Sort by:
 •ĆU‘•            #  Push the compressed integer 9176320
      …54-        #  Push the string "54-"
          ì       #  Prepend this string before the integer: "54-9176320"
           s      #  Swap so the current number to sort is at the top of the stack
            S     #  Convert it to a list of characters
             k    #  Check for each its index in the string (resulting in -1 for '8')

Дивіться цю мінку 05AB1E (розділ Як стискати великі цілі числа ), щоб зрозуміти, чому •ĆU‘•це так 9176320.