İki veya daha fazla eşit uzunlukta iki veya daha fazla hecelenmiş seri numarasının bir listesi verildiğinde, ör.

[[ "three" , "one"  , "four"  ],
 [ "one"   , "five" , "nine"  ],
 [ "two"   , "six"  , "five"  ],
 [ "three" , "five" , "eight" ]]

listeyi kelimelerin temsil ettiği rakamlara göre sıralayın:

[[ "one"   , "five" , "nine"  ],
 [ "two"   , "six"  , "five"  ],
 [ "three" , "one"  , "four"  ],
 [ "three" , "five" , "eight" ]]

Sayıların altta veya üstte yazılmasını, ancak karışık olmamasını isteyebilirsiniz.

Test senaryoları

[["three","one","four"],["one","five","nine"],["two","six","five"],["three","five","eight"]]
verir
[["one","five","nine"],["two","six","five"],["three","one","four"],["three","five","eight"]]

[["two","seven"],["one","eight"],["two","eight"],["one","eight"],["two","eight"],["four","five"]]
verir
[["one","eight"],["one","eight"],["two","seven"],["two","eight"],["two","eight"],["four","five"]]

[["one","four","one","four","two"],["one","three","five","six","two"],["three","seven","three","zero","nine"]]
verir
[["one","three","five","six","two"],["one","four","one","four","two"],["three","seven","three","zero","nine"]]

[["zero","six","one"],["eight","zero","three"],["three","nine","eight"],["eight","seven","four"],["nine","eight","nine"],["four","eight","four"]]
verir
[["zero","six","one"],["three","nine","eight"],["four","eight","four"],["eight","zero","three"],["eight","seven","four"],["nine","eight","nine"]]

Kabuk , 9 8 bayt

Ö†€¨tfṡn

Çevrimiçi deneyin!

Algoritma özyinelemenin Stax cevabından "ilham aldı" (sadece arama dizesini biraz değiştirdim), onu oylayın!

Hile, her harfi dizedeki konumuna eşler tfsen(bu programın sonunda sıkıştırılır). Husks listeleri 1 tabanlı ve eksik öğeler 0 döndürüyor, bu nedenle bu eşleştirmeyi alıyoruz:

"one"        [0,5,4]
"two"        [1,0,0]
"three"      [1,0,0,4,4]
"four"       [2,0,0,0]
"five"       [2,0,0,4]
"six"        [3,0,0]
"seven"      [3,4,0,4,5]
"eight"      [4,0,0,0,1]
"nine"       [5,0,5,4]

Gördüğünüz gibi, listeler mükemmel bir şekilde sıralanmıştır.

Net olmak için, liste karşılaştırması Husk'ta (ve diğer birçok dilde) şu şekilde çalışır:

1. İki listeden biri boşsa, bu daha küçük olan listedir.
2. İki listenin ilk öğeleri farklıysa, daha küçük ilk öğeye sahip olan öğe daha küçük listedir.
3. Aksi takdirde, ilk öğeyi her iki listeden de atın ve 1. noktaya geri dönün.

Stax , 24 22 17 16 14 bayt

▄Ωφ▐╧Kìg▄↕ñ▼!█

Çalıştır ve hata ayıkla

Bu program, giriş için küçük harflerle yazılan rakam dizilerini alır. Çıktı satırsonu gibi ayrılmıştır.

one five nine
two six five
three one four
three five eight

Bu program, girişleri belirli bir dönüşüm altında elde edilen sıralamayı kullanarak sıralar. Her kelimedeki her karakter, dizedeki dizini ile değiştirilir"wo thif sen" . Orijinal diziler bu sıralamaya göre sıralanır. Daha sonra sonuçlar bir boşlukla birleştirildikten sonra yazdırılır.

Boşluklar hiçbir amaca hizmet etmez, ancak dizgi değişmezinde daha fazla sıkıştırmaya izin verir.

Jöle , 12 bayt

OḌ%⁽Т%147µÞ

Monadik bir bağlantı.

Çevrimiçi deneyin! ... ya da test takımını görün

Nasıl?

Basamakları sıra sayılarına ve sonra taban 10'dan dönüştürmek ve daha sonra modülleri 4752'ye çevirmek 147, artan bir düzen verir:

 zero            , one         , two         , three               , four
[122,101,114,111],[111,110,101],[116,119,111],[116,104,114,101,101],[102,111,117,114]
 133351          , 12301       , 12901       , 1276511             , 114384
 295             , 2797        , 3397        , 2975                , 336
 1               , 4           , 16          , 35                  , 42

 five            , six         , seven               , eight               , nine
[102,105,118,101],[115,105,120],[115,101,118,101,110],[101,105,103,104,116],[110,105,110,101]
 113781          , 12670       , 1263920             , 1126456             , 121701
 4485            , 3166        , 4640                , 232                 , 2901
 75              , 79          , 83                  , 85                  , 108

Bu daha sonra aşağıdakileri sıralamak için bir anahtar işlev olarak kullanılabilir:

OḌ%⁽Т%147µÞ - Link: list of lists of lists of characters
          µÞ - sort (Þ) by the mondadic chain to the left (µ):
O            -   ordinals of the characters
 Ḍ           -   convert from base 10
   ⁽Т       -   literal 4752
  %          -   modulo
      %147   -   modulo by 147

Python , 62 bayt

lambda m:sorted(m,key=lambda r:[int(s,36)%6779%531for s in r])

Çevrimiçi deneyin! ... ya da test takımını görün

Not:

lambda m:sorted(m,key=lambda r:[map("trfsen".find,s)for s in r])

Python 2'de çalışan (ancak 3 değil) iki bayt daha uzun.

APL (Dyalog Klasik) , 12 bayt

'nesft'∘⍒⌷¨⊂

Çevrimiçi deneyin!

Ben şöyle dyadic için uygun bir sol argüman buldum ⍒(denedim ⍋ve uzunluk 6 ilk):

A←⊖a←↑'zero' 'one' 'two' 'three' 'four' 'five' 'six' 'seven' 'eight' 'nine'
{(a≡a[⍵⍒a;])∧A≡a[⍵⍒A;]:⎕←⍵}¨,⊃∘.,/5⍴⊂∪∊a

Perl 6 , 37 bayt

*.sort:{('digit 'X~$_)».parse-names}

Dene

Expanded:

*\     # WhateverCode lambda (this is the parameter)
.sort:
{  # block with implicit parameter ｢$_｣
  (
    'digit ' X~ $_  # concatenate 'digit ' to each named digit
  )».parse-names    # call .parse-names on each
}

Kod bloğu formun bir değerini alır ("three","one","four")ve onu kolayca kullanabilen ("3","1","4")bir değer olana çevirir .sort.

APL (Dyalog) , 38 bayt

{⍵[⍋(531∘⊥⍤1)(531|6779|36⊥9+⎕A⍳⊢)¨↑⍵]}

Çevrimiçi deneyin!

Jonathan Allan'ın müthiş çözümüne dayanıyor .

Ruby, 48 bayt

->x{x.sort_by{|y|y.map{|s|s.to_i(35)**2%47394}}}

"zero".to_i(35)0 olduğu gerçeğini kötüye kullanır ('z', temel 35'te geçerli bir basamak olmadığından), diğer dokuz basamak için bir formülü kaba kuvvetle zorlamak çok daha kolaydır.

K (ngn / k) , 14 bayt

{x@<"tfsen"?x}

Çevrimiçi deneyin!

JavaScript (Node.js) , 70 bayt

a=>a.sort((a,b)=>(g=a=>a.map(c=>99+parseInt(2+c,34)%607%292))(a)>g(b))

Çevrimiçi deneyin!

Ruby , 47 bayt

->x{x.sort_by{|y|y.map{|s|s.to_i(32)%774%538}}}

Çevrimiçi deneyin!

Maksimum rakamdan daha az bir taban kullanmanın sıfır sonucunu verdiği gerçeğini kullanır ( cevaplarında histokratın işaret ettiği gibi )

Python 2 , 85 81 80 bayt

Sayıyı belirlemek için her kelimenin ilk iki harfini kullanır, ardından anahtar olarak bu dizin oluşturma işlevini kullanarak her listeyi sıralar.

lambda _:sorted(_,key=lambda L:['zeontwthfofisiseeini'.find(s[:2])/2for s in L])

Çevrimiçi deneyin!

Jonathan Allan sayesinde 4 bayt kurtardı

Ruby , 49 bayt

->x{x.sort_by{|y|y.map{|s|s.to_i(36)**4%463595}}}

Çevrimiçi deneyin!

05AB1E , 27 bayt

Σ“¡×€µ‚•„í†ìˆÈŒšï¿Ÿ¯¥Š“#skJ

Çevrimiçi deneyin!

Σ                           # Sort input by...
 “¡×€µ‚•„í†ìˆÈŒšï¿Ÿ¯¥Š“     # "zero one two three four five size seven eight nine"
                       #    # Split on spaces.
                        sk  # Find index of each input...
                          J # Join up.

Haskell , 133 122 109 107 106 bayt

import Data.List
sortOn$abs.read.(>>=show.head.(`elemIndices`words"ze on tw th fo fi si se ei ni").take 2)

Ungolfed:

import Data.List

nums = ["ze","on","tw","th","fo","fi","si","se","ei","ni"]

lookup' :: Eq a => a -> [a] -> Int
lookup' v = head . elemIndices v

wordToInt :: String -> Int
wordToInt (x:y:_) = lookup' [x,y] nums

wordsToInt :: [String] -> Int
wordsToInt = read . concatMap (show . wordToInt)

sortN :: [[String]] -> [[String]]
sortN = sortOn wordsToInt

Python 2 , 59 bayt

lambda m:sorted(m,key=lambda r:[hash(s)%2249518for s in r])

Çevrimiçi deneyin!

Jonathan Allan'ın Python 3 çözümüne dayanarak ...

Java (JDK 10) , 132 bayt

l->{l.sort((a,b)->s(a)-s(b));}
int s(String[]a){int v=0;for(var s:a)v=v*99+"zeontwthfofisiseini".indexOf(s.substring(0,2));return v;}

Çevrimiçi deneyin!

Ruby , 64 bayt

->a{a.sort_by{|b|b.map{|n|"zeontwthfofisiseeini".index n[0,2]}}}

Çevrimiçi deneyin!

2B dizgi dizisini kabul eden ve 2B dizgi dizisi döndüren lambda.

Benim göndermek üzereyim -26 bayt kapalı mbomb007 Python 2 cevap piggybacking .

Perl 5 , 103 bayt

sub c{pop=~s%(..)\w+\s*%zeontwthfofisiseeini=~/$1/;$`=~y///c/2%ger}say s/\R//gr for sort{c($a)<=>c$b}<>

Çevrimiçi deneyin!

Retina 0.8.2 , 38 bayt

T`z\o\wit\hfsen`d
O`
T`d`z\o\wit\hfsen

Çevrimiçi deneyin! Bağlantı test paketini içerir. Harfleri geçici olarak bu dizgideki zowithfsenkonumlarıyla değiştirerek çalışır , bu da sayıların sözcük olarak sıralanmasını sağlar.

Jöle , 30 28 27 bayt

w@€“¡¦ẇṆb~ṇjṚØ%ĖġṘḥḞṾṇJḌ»µÞ

Çevrimiçi deneyin!

-1 Jonathan Allan sayesinde.

'Onetwo ... nine' dizesindeki her basamağın dizinini bulur ve bunu bir anahtar işlevi olarak kullanarak sıralar Þ. 'zero'Başlangıçta dahil etmeye gerek yoktur çünkü ilk iki karakterin aranması 'zero'başarısız olur ve sözlük 0yerine 'zero'"erken" yapan dizin yerine döndürülür .

Python 3, 141 bayt

print(sorted(eval(input()),key=lambda l:int(''.join([str("zero one two three four five six seven eight nine".split().index(i))for i in l]))))

Çevrimiçi deneyin!

C (clang) , 229 bayt

y,j,k,t[9];char *s="zeontwthfofisiseeini";r(char **x){for(j=y=k=0;k+1<strlen(*x);k+=j,y=y*10+(strstr(s,t)-s)/2)sscanf(*x+k,"%2[^,]%*[^,]%*[,]%n",t,&j);return y;}c(*x,*y){return r(x)-r(y);}f(*x[],l){qsort(&x[0],l,sizeof(x[0]),c);}

Çevrimiçi deneyin!

C işlevlerine dizeler dizisi göndermenin basit bir yolu yoktur, bu yüzden kod golf ruhunda, giriş biçiminde küçük bir özgürlük aldım.

f()dizelere işaretçi dizisini kabul eder, burada her dize bir sayıdır ve küçük harfle virgülle ayrılmış yazım basamaklarıyla gösterilir. Ayrıca, ikinci parametrede dizede dizi sayısı gerekir. Umarım bu kabul edilebilir.

f()kullanarak işaretçileri sıralı bir sırayla değiştirir qsort().
r()virgülle ayrılmış sayı dizesinden girdi numarasını okur. Sayıyı tanımlamak için yalnızca ilk iki karakteri karşılaştırır.
c()karşılaştırma işlevi