รับรายการหมายเลขซีเรียลที่สะกดสองตัวหรือมากกว่าที่มีความยาวเท่ากันมากกว่าสองตัวอย่าง

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

เรียงลำดับรายการตามตัวเลขที่คำว่า:

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

คุณอาจต้องการให้สะกดคำด้วยตัวพิมพ์เล็กหรือตัวพิมพ์ใหญ่ แต่ไม่ผสม

กรณีทดสอบ

[["three","one","four"],["one","five","nine"],["two","six","five"],["three","five","eight"]]
จะช่วยให้
[["one","five","nine"],["two","six","five"],["three","one","four"],["three","five","eight"]]

[["two","seven"],["one","eight"],["two","eight"],["one","eight"],["two","eight"],["four","five"]]
จะช่วยให้
[["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"]]
จะช่วยให้
[["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"]]
จะช่วยให้
[["zero","six","one"],["three","nine","eight"],["four","eight","four"],["eight","zero","three"],["eight","seven","four"],["nine","eight","nine"]]

Husk , 9 8 ไบต์

Ö†€¨tfṡn

ลองออนไลน์!

อัลกอริทึม "เป็นแรงบันดาลใจ" โดยคำตอบ Stax ของ recursive (ฉันเพิ่งเปลี่ยนสตริงการค้นหาเล็กน้อย), ขึ้นไปโหวตเขา!

เคล็ดลับคือการจับคู่แต่ละตัวอักษรกับตำแหน่งในสตริงtfsen(บีบอัดที่ส่วนท้ายของโปรแกรมนี้) รายชื่อแกลบเป็นแบบ 1 และรายการที่หายไปคืน 0 ดังนั้นเราจึงได้รับการทำแผนที่นี้:

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

อย่างที่คุณเห็นรายการต่างๆนั้นมีการเรียงลำดับอย่างสมบูรณ์แบบ

เพื่อให้ชัดเจนนี่คือวิธีการเปรียบเทียบรายการทำงานใน Husk (และในภาษาอื่น ๆ ):

1. หากหนึ่งในสองรายการว่างเปล่านั่นคือรายการที่เล็กกว่า
2. หากองค์ประกอบแรกของรายการทั้งสองนั้นแตกต่างกันรายการที่มีองค์ประกอบแรกที่มีขนาดเล็กกว่าจะเป็นรายการที่เล็กกว่า
3. มิฉะนั้นให้ยกเลิกองค์ประกอบแรกจากทั้งสองรายการแล้วย้อนกลับไปยังจุดที่ 1

สแตกซ์ , 24 22 17 16 14 ไบต์

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

เรียกใช้และแก้ไขข้อบกพร่อง

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

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

โปรแกรมนี้เรียงลำดับอินพุตโดยใช้ลำดับที่ได้รับภายใต้การแปลงเฉพาะ "wo thif sen"ตัวละครในแต่ละคำแต่ละครั้งจะถูกแทนที่โดยดัชนีในสตริง อาร์เรย์เดิมจะเรียงตามลำดับนี้ จากนั้นผลลัพธ์จะถูกพิมพ์หลังจากเข้าร่วมกับช่องว่าง

ช่องว่างไม่มีจุดประสงค์ แต่จริง ๆ แล้วอนุญาตการบีบอัดที่มากขึ้นในสตริงตัวอักษร

เยลลี่ 12 ไบต์

OḌ%⁽Т%147µÞ

ลิงค์ monadic

ลองออนไลน์! ... หรือดูทดสอบ

อย่างไร?

การแปลงตัวเลขเป็นเลขฐานสิบจากฐาน 10 แล้วนำโมดูลอสไปด้วย 4752 จากนั้น 147 จะเรียงลำดับจากน้อยไปมาก

 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

สิ่งนี้สามารถใช้เป็นฟังก์ชันหลักในการเรียงลำดับ:

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 ไบต์

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

ลองออนไลน์! ... หรือดูชุดทดสอบ

บันทึก:

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

ซึ่งทำงานใน Python 2 (แต่ไม่ใช่ 3) จะยาวกว่าสองไบต์

APL (Dyalog Classic)ขนาด 12 ไบต์

'nesft'∘⍒⌷¨⊂

ลองออนไลน์!

นี่คือวิธีที่ฉันพบอาร์กิวเมนต์ด้านซ้ายที่เหมาะสมสำหรับ dyadic ⍒(ฉันลอง⍋และความยาว 6 ก่อน):

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

Perl 6 , 37 ไบต์

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

ลองมัน

ขยาย:

*\     # 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
}

บล็อกรหัสจะใช้ค่าของแบบฟอร์ม("three","one","four")และแปลเป็น("3","1","4")ซึ่งเป็นค่าที่.sortสามารถใช้งานได้ง่าย

APL (Dyalog) , 38 ไบต์

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

ลองออนไลน์!

ตามโจนาธานอัลลันทางออกที่ยอดเยี่ยม

ทับทิมขนาด 48 ไบต์

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

การละเมิดความจริงที่"zero".to_i(35)เป็น 0 (เนื่องจาก 'z' ไม่ใช่ตัวเลขที่ถูกต้องในฐาน 35) ดังนั้นจึงเป็นการง่ายกว่าที่จะบังคับสูตรสำหรับตัวเลขเก้าหลักอื่น ๆ ให้ง่ายขึ้น

K (ngn / k) , 14 ไบต์

{x@<"tfsen"?x}

ลองออนไลน์!

JavaScript (Node.js) , 70 ไบต์

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

ลองออนไลน์!

Ruby , 47 ไบต์

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

ลองออนไลน์!

ใช้ความจริงที่ว่าการใช้ฐานที่น้อยกว่าหลักสูงสุดให้ผลลัพธ์เป็นศูนย์ (ตามที่ฮิสโทแคตตอบไว้ )

Python 2 , 85 81 80 ไบต์

เพียงใช้ตัวอักษรสองตัวแรกของแต่ละคำเพื่อกำหนดจำนวนจากนั้นเรียงลำดับแต่ละรายการโดยใช้ฟังก์ชั่นการทำดัชนีนั้นเป็นกุญแจสำคัญ

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

ลองออนไลน์!

บันทึกแล้ว 4 ไบต์ขอบคุณJonathan Allan

Ruby , 49 ไบต์

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

ลองออนไลน์!

05AB1E , 27 ไบต์

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

ลองออนไลน์!

Σ                           # 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 ไบต์

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 ไบต์

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

ลองออนไลน์!

Riffing บนโซลูชัน Python 3 ของJonathan Allan ...

Java (JDK 10) , 132 ไบต์

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

ลองออนไลน์!

Ruby , 64 ไบต์

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

ลองออนไลน์!

แลมบ์ดายอมรับอาร์เรย์ของสตริงแบบสองมิติและส่งกลับอาร์เรย์แบบสตริงสองมิติ

การ Piggybacking ออกจากPbm 2ของmbomb007 ให้คำตอบสำหรับ -26 ไบต์จากสิ่งที่ฉันกำลังโพสต์

Perl 5 , 103 ไบต์

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

ลองออนไลน์!

เรติน่า 0.8.2 , 38 ไบต์

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

ลองออนไลน์! การเชื่อมโยงรวมถึงชุดทดสอบ ทำงานโดยแทนที่ตัวอักษรชั่วคราวzowithfsenด้วยตำแหน่งในสตริงนั้นซึ่งช่วยให้สามารถเรียงลำดับตัวเลขได้

เยลลี่ , 30 28 27 ไบต์

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

ลองออนไลน์!

-1 ต้องขอบคุณ Jonathan Allan

พบว่าดัชนีของแต่ละหลักในสตริง 'เพลส ... เก้า' Þจากนั้นประเภทใช้นี้เป็นฟังก์ชั่นที่สำคัญด้วย ไม่จำเป็นต้องรวม'zero'ไว้ที่จุดเริ่มต้นเนื่องจากการค้นหาอักขระสองตัวแรกของ'zero'จะล้มเหลวและ0จะถูกส่งกลับแทนดัชนีซึ่งทำให้'zero'พจนานุกรม "ต้น"

Python 3, 141 ไบต์

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

ลองออนไลน์!

C (เสียงดังกราว) 229 ไบต์

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);}

ลองออนไลน์!

ไม่มีวิธีที่ตรงไปตรงมาในการส่งอาเรย์ของสตริงไปยังฟังก์ชั่น C ดังนั้นในจิตวิญญาณของโค้ด - กอล์ฟฉันมีเสรีภาพเล็กน้อยในรูปแบบอินพุต

f()ยอมรับอาร์เรย์ของตัวชี้ไปยังสตริงโดยที่แต่ละสตริงเป็นตัวเลขแสดงด้วยเครื่องหมายจุลภาคที่คั่นด้วยตัวสะกดออกเป็นตัวพิมพ์เล็ก นอกจากนี้ยังต้องการจำนวนสตริงในอาร์เรย์ในพารามิเตอร์ที่สอง ฉันหวังว่านี่จะเป็นที่ยอมรับ

f()qsort()แทนที่ตัวชี้ในสถานที่ในเรียงลำดับโดยใช้
r()อ่านหมายเลขอินพุตจากสตริงตัวเลขคั่นด้วยเครื่องหมายจุลภาค เพียงเปรียบเทียบอักขระสองตัวแรกเพื่อระบุหมายเลข
c()เป็นฟังก์ชั่นการเปรียบเทียบ