งาน

กำหนดสตริงชื่อภาษาอังกฤษของตัวเลข“ ยุบ” พร้อมกันดังนี้:

zeronineoneoneeighttwoseventhreesixfourtwofive

แยกสตริงกลับเป็นตัวเลข:

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

กฎระเบียบ

• อินพุตเป็นสตริงเสมอ มันประกอบด้วยชื่อหลักภาษาอังกฤษตัวพิมพ์เล็กหนึ่งชื่อหรือมากกว่ายุบรวมกันและไม่มีอะไรอื่น

  • zero one two three four five six seven eight nineชื่อภาษาอังกฤษเป็นหลัก

• ผลลัพธ์อาจเป็นรายการของสตริงหรือสตริงใหม่ที่มีการคั่นด้วยตัวเลขโดยสตริงที่ไม่ใช่ตัวอักษรและไม่ว่างเปล่า (เอาท์พุทของคุณอาจเลือกที่มีสตริงดังกล่าวที่จุดเริ่มต้นหรือจุดสิ้นสุดและคั่นไม่จำเป็นต้องสอดคล้องกัน. ดังนั้นแม้สิ่งที่ต้องการ{{ zero0one$$two );เป็นที่ถูกต้อง (ถ้าไร้สาระ) คำตอบzeroonetwo.)

• คำตอบที่สั้นที่สุดเป็นไบต์ชนะ

กรณีทดสอบ

three -> three
eightsix -> eight six
fivefourseven -> five four seven
ninethreesixthree -> nine three six three
foursixeighttwofive -> four six eight two five
fivethreefivesixthreenineonesevenoneeight -> five three five six three nine one seven one eight
threesevensevensixninenineninefiveeighttwofiveeightsixthreeeight -> three seven seven six nine nine nine five eight two five eight six three eight
zeroonetwothreefourfivesixseveneightnine -> zero one two three four five six seven eight nine

เรติน่า 20 ไบต์

!`..[eox]|[tse]?....

ลองออนไลน์!

C (gcc) , 89 80 76 75 72 71 70 69 ไบต์

f(char*s){*s&&f(s+printf(" %.*s",""[(*s^s[2])%12],s)-1);}

ลองออนไลน์!

(89) มอบเครดิตให้กับนักทานสำหรับแฮชแฮร์
(76) ให้เครดิตแก่Toby Speightสำหรับแนวคิดในการใช้อันดับที่ 1 และ 3
(75) เครดิตไมเคิล Dorganสำหรับ→'0' (72) ให้เครดิตกับMichael DorganและLynnสำหรับตัวอักษรที่มีอักขระควบคุม (69) ให้เครดิตกับLynnสำหรับ→48

x?y:0x&&y

f (char *s) {        /* K&R style implicit return type. s is the input. */
    *s&&f(           /* Recurse while there is input. */
        s+printf(    /* printf returns the number of characters emitted. */
            " %.*s", /* Prefix each digit string with a space. Limit
                      * how many bytes from the string to print out. */
            ""
                     /* Magic hash table, where the value represents
                      * the length of the digit string. The string
                      * is logically equivalent to
                      * "\04\01\05\03\04\05\05\04\04\01\03\03" */
            [(*s^s[2])%12],
                     /* The XOR hash (mod 12) */
            s)       /* The current digit. */
            -1);}    /* Subtract 1 for the space. */

Python 2 , 50 ไบต์

import re
re.compile('..[eox]|[tse]?....').findall

ลองออนไลน์!

ขอบคุณ -3 ถึงลินน์
-4 ต้องขอบคุณregex ของคำตอบของUriel

Befunge, 87 85 81 76 ไบต์

<*"h"%*:"h"$_02g-v1$,*<v%*93,:_@#`0:~
"@{&ruX;\"00^ !: _>_48^>+:"yp!"*+%02p0

ลองออนไลน์!

Befunge ไม่มีคำแนะนำการจัดการสตริงดังนั้นสิ่งที่เราทำคือการสร้างแฮชของอักขระสามตัวสุดท้ายที่พบในขณะที่เรากำลังประมวลผล

แฮชนี้เป็นตัวเลขสามหลักซึ่งเป็นเลขฐาน 104 ทุกครั้งที่มีการอ่านตัวละครใหม่เราดัดแปลงแฮชด้วย 104 ²เพื่อกำจัดตัวละครที่เก่าที่สุดคูณด้วย 104 เพื่อสร้างพื้นที่สำหรับตัวละครใหม่จากนั้นเพิ่มค่า ASCII ของตัวละครใหม่ 27 (เพื่อให้แน่ใจว่า มันไม่ล้น)

เพื่อวัตถุประสงค์ในการเปรียบเทียบเราใช้ค่านี้ mod 3817 เขียนลงในหน่วยความจำ (ดังนั้นจึงตัดให้เหลือ 8 บิต) ซึ่งส่งผลให้ตัวเลขมีขนาดเล็กลงซึ่งง่ายกว่าสำหรับ Befunge ในการจัดการ แฮชที่เราต้องเปรียบเทียบคือ 0, 38, 59, 64, 88, 92, 114, 117, และ 123 ถ้ามันตรงกับสิ่งใด ๆ เรารู้ว่าเราเจอลำดับตัวละครที่เป็นจุดสิ้นสุดของ หมายเลขดังนั้นเราจึงส่งออกพื้นที่เพิ่มเติมและรีเซ็ตแฮชเป็นศูนย์

หากคุณสงสัยว่าเพราะเหตุใดฐาน 104 หรือเหตุใด mod 3817 ค่าเหล่านั้นจึงถูกเลือกอย่างระมัดระวังเพื่อให้รายการแฮชที่เราต้องการเปรียบเทียบอาจแสดงเป็นไบต์น้อยที่สุด

Java (OpenJDK 8) , 55 46 43 ไบต์

บันทึก 9 ไบต์ด้วย Forty3 / FrownyFrog

ประหยัดได้ 3 ไบต์ขอบคุณ Titus

s->s.replaceAll("one|tw|th|f|z|s|.i"," $0")

ลองออนไลน์!

แก้ไข: ขอบคุณสำหรับการต้อนรับและคำอธิบายของ lambdas!

C (gcc) , 179 159 146 139 137 116 107 103 102 ไบต์

แก้ไข 1: (เพิ่มคำแนะนำจากMr. Xcoder - ขอบคุณ! - เวอร์ชันมาโครของฉันมีขนาดเท่ากับของคุณ แต่ฉันชอบที่ดีกว่า)

แก้ไข 2: เปลี่ยนผู้ใช้ถ่านเปรียบเทียบกับการโทรstrchr()

แก้ไข 3: K&R คือการประกาศ var (Eww!)

แก้ไข 4: เมื่อ 1 แมโครไม่เพียงพอ ...

แก้ไข 5: ทำ ใหม่ด้วยอัลกอริทึมใหม่ที่แนะนำข้างต้น ขอบคุณJames Holdernessสำหรับแนวคิดที่ยอดเยี่ยมนี้!

แก้ไข 6: ลบ 0 set ตามที่ดูเหมือนว่าจะไปที่นั่นโดยอัตโนมัติ - ใช้เทคนิคการตีกอล์ฟระดับมาสเตอร์ ( คอมม่า , เคล็ดลับ printf เป็นต้น) - ขอบคุณGastropner !

แก้ไข 7: ใช้ memchr และแก้ไขข้อผิดพลาดที่James Holdernessระบุ

แก้ไข 7: ใช้&&ในการตรวจสอบครั้งสุดท้ายที่จะเข้ามาแทนที่?- ขอบคุณjxh

c,h;f(char*s){while(c=*s++)putchar(c),h=h%10816*104+c%27,memchr("&;@X\\ru{",h%3817,9)&&putchar(h=32);}

ลองออนไลน์!

Non-golfed (ซึ่งยังคงเป็นกอล์ฟอย่างสุจริต ... )

int c;
int h;
void f(char*s)
{
    while(c=*s++)
        putchar(c),
        h=h%10816*104+c%27,
        memchr("&;@X\\ru{",h%3817,9)?putchar(h=32):1;
}

วิธีการแก้ปัญหา grep-esqe แบบเก่าไปข้างหน้า:

#define p putchar
#define q c=*s++
c,x;f(char*s){while(q){p(c);x=strchr("tse",c);p(q);p(q);if(!strchr("eox",c)){p(q);if(x)p(q);}p(' ');}}

รุ่นเก่าและสะอาดกว่า

// Above code makes a macro of putchar() call.

void f(char *s)
{
    char c;
    while(c = *s++)
    {
        putchar(c);
        int x = strchr("tse", c);

        putchar(*s++);
        putchar(c=*s++);

        if(!strchr("eox", c))
        {
            putchar(*s++);
            if(x)
            {
                putchar(*s++);
            }
        }       
        putchar(' ');
    }
}

ลองออนไลน์!

JavaScript, 66 57 52 44 41 ไบต์

s=>s.replace(/one|t[wh]|.i|[fsz]/g," $&")

ไร้เดียงสาสวย แต่มันได้ผล

จับได้ดีโดย FrownyFrog ที่จะใช้ 2 ตัวอักษร .. ยกเว้น "หนึ่ง" ซึ่งการตรวจสอบถ่าน 2 ตัวที่บริสุทธิ์อาจทำให้เกิดปัญหากับซีโรนีน แก้ไข: ซิงเกิ้ลfและsถูกจับได้ดีโดย FrownyFrog ที่ฉันมองข้ามสองกอล์ฟแรกของฉัน

ขอบคุณ Neil สำหรับคำแนะนำของแลมบ์ดาที่ไม่มีชื่อและความสามารถในการใช้ถ่านตัวเดียวzได้ลดลงเหลือ 52

Titus เกิดขึ้นกับ RegEx ที่เล็กกว่า ฉันรู้สึกว่าเรากำลังมุ่งหน้าไปยัง regex ของ Uriel ในที่สุด

เรติน่า24 24ไบต์

!`..[eox]|[fnz]...|.{5}

ลองออนไลน์! แก้ไข: บันทึก 1 ไบต์ขอบคุณ @FrownyFrog

C, 103 99 ไบต์

char*r="f.tzuonresn.xgv";f(char*s){*s&&f(s+printf("%.*s ",(strrchr(r,s[2])-strchr(r,*s))%10,s)-1);}

ใช้งานได้กับการเข้ารหัสอักขระใด ๆ (รวมถึงตัวที่น่าอึดอัดใจเช่น EBCDIC) เพราะมันไม่ได้ใช้ค่าตัวเลขของอักขระอินพุต แต่จะหาตำแหน่งตัวอักษรตัวแรกและตัวที่สามในสตริงมายากล ระยะห่างระหว่างสิ่งเหล่านี้บ่งบอกถึงจำนวนจดหมายที่จะก้าวไปพร้อมกับการพิมพ์แต่ละครั้ง

โปรแกรมทดสอบ

#include <stdio.h>
int main(int argc, char **argv)
{
    for (int i = 1;  i < argc;  ++i) {
        f(argv[i]);
        puts("");
    }
}

J , 37 35 ไบต์

rplc'twthsiseeinionzef'(;LF&,)\~_2:

ลองออนไลน์!

C (gcc) , 106 ไบต์ 104 ไบต์

-2 ไบต์ต้องขอบคุณ @jxh

c;f(char*s){char*t=" $&=B*,29/?";while(*s)for(c=4+(strchr(t,(*s^s[1])+35)-t)/4;c--;)putchar(c?*s++:32);}

ลองออนไลน์!

แฮคเกอร์เป็นพันธมิตรที่ยิ่งใหญ่ที่สุดของเราอย่างแท้จริง

เรติน่า 28 ไบต์

t[ewh]|[zfs]|(ni|o)ne|ei
 $&

ลองออนไลน์!

Pyth , 35 27 23 ไบต์

บันทึกจำนวนมากด้วยวิธีการเปลี่ยนเส้นทางของUriel

:Q"..[eox]|[tse]?...."1

ลองที่นี่! วิธีการเริ่มต้น

Pip , 27 ไบต์

aR`[zfs]|one|[ent][iwh]`s._

รับอินพุตเป็นอาร์กิวเมนต์บรรทัดคำสั่ง ลองออนไลน์!

ทดแทน regex [zfs]|one|[ent][iwh]ง่ายแทรกช่องว่างก่อนการแข่งขันแต่ละครั้งของ

กระโดดขึ้นไปบน bandwagon ของการขโมย regex ของ Uriel ให้23 ไบต์ (มี-sธง):

a@`..[eox]|[tse]?....`

เยลลี่ ,  23  21 ไบต์

ḣ3OP%953%7%3+3ɓḣṄȧṫḊÇ

เอาต์พุตการแยกบรรทัดการพิมพ์โปรแกรมแบบเต็ม หมายเหตุ: เมื่อเสร็จแล้วจะพิมพ์บรรทัดว่าง ๆ "ตลอดไป" ซ้ำ ๆ (จนกว่าจะถึงขีด จำกัด การเรียกซ้ำครั้งใหญ่หรือความผิดพลาดแบบแยกส่วน)

ลองออนไลน์! (เอาท์พุท TIO สะสมการใช้งานในท้องถิ่นจะพิมพ์ทีละบรรทัด)

อย่างไร?

เริ่มต้นด้วยรายการตัวอักษรโปรแกรมซ้ำ ๆ :

1. ค้นหาความยาวของคำแรกของรายการอักขระโดยใช้คณิตศาสตร์อันดับ;
2. พิมพ์คำบวกกับตัวป้อนบรรทัด และ
3. ลบคำออกจากส่วนหัวของรายการอักขระ

ความยาวของคำแรกนั้นตัดสินใจโดยการตรวจสอบอักขระสามตัวแรกของรายการอักขระปัจจุบัน (จำเป็นต้องเป็นส่วนหนึ่งของคำแรก) โปรแกรมแปลงสิ่งเหล่านี้เป็นเลขตัวคูณเพิ่มเข้าด้วยกัน modulos ผลลัพธ์โดย 953, modulos ที่เจ็ด, modulos ที่สามและเพิ่มสาม:

word   head3  ordinals       product  %953  %7  %3  +3 (=len(word))
zero   zer    [122,101,114]  1404708   939   1   1   4
two    two    [111,110,101]  1233210    28   0   0   3
one    one    [116,119,111]  1532244   773   3   0   3
three  thr    [116,104,114]  1375296   117   5   2   5
four   fou    [102,111,117]  1324674     4   4   1   4
five   fiv    [102,105,118]  1263780   102   4   1   4
six    six    [115,105,120]  1449000   440   6   0   3
seven  sev    [115,101,118]  1370570   156   2   2   5
eight  eig    [101,105,103]  1092315   177   2   2   5
nine   nin    [110,105,110]  1270500   151   4   1   4

ḣ3OP%953%7%3+3ɓḣṄȧṫḊÇ - Main link, list of characters           e.g. "fiveeight..."
ḣ3              - head to index three                                "fiv"
  O             - ordinals                                           [102,105,118]
   P            - product                                            1263780
    %953        - modulo by 953                                      102
        %7      - modulo by seven                                    4
          %3    - modulo by three                                    1
            +3  - add three                                          4

              ɓ - dyadic chain separation swapping arguments...
... ḣṄȧṫḊÇ ...
    ḣ         - head to index                                        "five"
     Ṅ        - print the result plus a line-feed and yield the result
       ṫ      - tail from index                                      "eeight..."
      ȧ       - and (non-vectorising)                                "eeight..."
        Ḋ     - dequeue                                               "eight..."
         Ç    - call the last link (Main*) as a monad with this as input
              -       * since it's the only link and link indexing is modular.

C 168 ,145,144, 141 ไบต์

แก้ไข: พยายาม init 'i' เป็น 1 อย่างนั้น

A, B; หลัก (i)

เพื่อกำจัดช่องว่างนำหน้า
แต่มันหยุดที่อินพุตเริ่มต้นด้วยสามเจ็ดหรือแปด

141

#define s|a%1000==
a,i;main(b){for(;~scanf("%c",&b);printf(" %c"+!!i,b),a|=b%32<<5*i++)if(i>4|a%100==83 s 138 s 116 s 814 s 662 s 478)a=i=0;}

ลองออนไลน์

144

a,i;main(b){for(;~(b=getchar());printf(" %c"+!!i,b),a=a*21+b-100,++i)if(i>4|a==204488|a==5062|a==7466|a==23744|a==21106|a==6740|a==95026)a=i=0;}

ลองออนไลน์

168

i,a;main(b){for(;~scanf("%c",&b);printf(" %c"+!!i,b),a|=b<<8*i++)if(i>4|a==1869768058|a==6647407|a==7305076|a==1920298854|a==1702259046|a==7891315|a==1701734766)a=i=0;}

ลองออนไลน์!

Ungolfed

i,a;main(b){
for(;~scanf("%c",&b); // for every char of input
printf(" %c"+!!i,b), // print whitespace if i==0 , + char
a|=b<<8*i++ // add char to a for test
)
if(
i>4| // three seven eight
a==1869768058|      // zero
a==6647407|        // one
a==7305076|       // two
a==1920298854|   //four
a==1702259046|  //five
a==7891315|    //six
a==1701734766 //nine
) a=i=0; //reset i and a
}

ค่าคงที่ int ไม่จำเป็นต้องมีขนาดใหญ่โดยการเปลี่ยน << 8
แต่ในกรณีที่คุณสามารถเปรียบเทียบกับสตริงอย่างใดมันควรจะเป็นธรรมชาติมากที่สุด

146การใช้การเปรียบเทียบสตริง

#define s|a==*(int*)
a,b;main(i){for(;~(b=getchar());printf(" %c"+!!i,b),a|=b<<8*i++)if(i>4 s"zero"s"one"s"two"s"four"s"five"s"six"s"nine")a=i=0;}

ใช้การเปรียบเทียบสตริง

ยุ่งเหยิง

#define F(x)if(scanf(#x+B,&A)>0){printf(#x,&A);continue;}
B;A;main(i){for(;i;){B=1;F(\40e%4s)F(\40th%3s)F(\40se%3s)F(\40o%2s)B=2;F(\40tw%1s)F(\40si%1s)B=1;F(\40%4s)i=0;}}

เยลลี่ขนาด 44 ไบต์

Ṛ¹Ƥz⁶ZUwЀ“¢¤Ƙƒ⁺6j¹;Ċ-ḶṃżṃgɼṘƑUẏ{»Ḳ¤$€Ẏḟ1Ṭœṗ

ลองออนไลน์!

ค่อนข้างยาวเลยทีเดียว คุณสามารถลงเล่นกอล์ฟได้

R , 109 ไบต์

function(x)for(i in utf8ToInt(x)){F=F+i;cat(intToUtf8(i),if(F%in%c(322,340,346,426,444,448,529,536,545))F=0)}

ลองออนไลน์!

Haskell , 81 ไบต์

f[c]=[c]
f(h:t)=[' '|s<-words"z one tw th f s ei ni",and$zipWith(==)s$h:t]++h:f t

ลองออนไลน์!

คำอธิบาย:

f(h:t)=                      h:f t -- recurse over input string
   [' '|s<-               ]++      -- and add a space for each string s
      words"z one tw th f s ei ni" -- from the list ["z","one","tw","th","f","s","ei","ni"]
      ,and$zipWith(==)s$h:t        -- which is a prefix of the current string

Python 3 (ไม่มี regex) , 85 ไบต์

i=3
while i<len(s):
	if s[i-3:i]in'ineiveroneghtwoureesixven':s=s[:i]+' '+s[i:]
	i+=1

ลองออนไลน์!

Excel, 181 ไบต์

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"z"," z"),"on"," on"),"tw"," tw"),"th"," th"),"f"," f"),"s"," s"),"ei"," ei"),"ni"," ni")

สถานที่พื้นที่ในด้านหน้าของ: z, on, tw, th, f, s, ei,ni

ชุดประกอบ Z80 ขนาด46 45 ไบต์

; HL is the address of a zero-terminated input string
; DE is the address of the output buffer

Match5: ldi                                 ; copy remaining characters
Match4: ldi
Match3: ld a,32 : ld (de),a : inc de        ; and add space after a matched word.

Uncollapse:

        ld a,(hl) : ldi : or a : ret z      ; copy first byte (finish if it was zero)
        ex af,af'                           ; and save its value for later.

        ldi : ld a,(hl) : ldi               ; copy second and third bytes

        cp 'e' : jr z,Match3                ; is the third letter 'e' or 'o' or 'x'?
        cp 'o' : jr z,Match3
        cp 'x' : jr z,Match3

        ex af,af'                           ; now look at the first letter

        cp 'e' : jr z,Match5                ; is it 't' or 's' or 'e'?
        sub 's' : jr z,Match5
        dec a : jr z,Match5
        jr Match4

(มันสนุกที่จะปรับเปลี่ยน regex สุดเจ๋งของ Uriel ให้เข้ากับสภาพแวดล้อมที่ไม่เป็นมิตรกับ regex)

เจลลี่ , 40 39 ไบต์

“¢¤Ƙƒ⁺6j¹;Ċ-ḶṃżṃgɼṘƑUẏ{»Ḳe€€@ŒṖẠ€TḢịŒṖK

ลองออนไลน์!

มันทำงานอย่างไร

“¢¤Ƙƒ⁺6j¹;Ċ-ḶṃżṃgɼṘƑUẏ{»Ḳe€€@ŒṖẠ€TḢịŒṖK
“¢¤Ƙƒ⁺6j¹;Ċ-ḶṃżṃgɼṘƑUẏ{»                 = the compressed string of the digit names
                        Ḳ                = split at spaces
                         e€€@ŒṖ          = check whether each member of each partition of the argument is a digit.
                               Ạ€        = A function that checks whether all values of an array are true, applied to each element.
                                 T       = Finds the index of each truthy element 
                                  Ḣ      = Grab the first element, since we have a singleton array
                                    ịŒṖ  = The previous command gives us the index, partition that splits the input into digits. This undoes it and gives us the partition.
                                       K = Join the array of digits with spaces                

QuadS , 21 20 ไบต์

..[eox]|[tse]?....
&

ลองออนไลน์!

นี่คือพอร์ตของคำตอบที่จอประสาทตาของฉัน

APL (Dyalog Unicode) ขนาด 25 ไบต์

'..[eox]|[tse]?....'⎕S'&'

ลองออนไลน์!

Python 3 , ไม่มี regex  83 68 65  63 ไบต์

-15 ขอบคุณ Lynn (refactor เป็นฟังก์ชั่นเดียว)
-3 ต้องขอบคุณ Lynn (หลีกเลี่ยงการทำดัชนีในรายการที่มีเลขคณิตมากขึ้น)
... นำไปสู่การบันทึกอีก 2 ไบต์ (หลีกเลี่ยงวงเล็บด้วยโมดูลเชิงลบ) :)

def f(s):h=ord(s[0])*ord(s[1])%83%-7%-3+5;print(s[:h]);f(s[h:])

ฟังก์ชั่นที่พิมพ์คำที่คั่นด้วยการขึ้นบรรทัดใหม่แล้วเพิ่ม IndexErrorฟังก์ชั่นที่พิมพ์คำที่แยกจากกันโดยการขึ้นบรรทัดใหม่แล้วยก

ลองออนไลน์! (ไม่ใส่ข้อยกเว้นเพื่อให้มีการเรียกใช้หลายครั้งภายในชุดทดสอบ)

เยลลี่ขนาด 36 ไบต์

œṣj⁶;$}
W;“€ɗİẒmṫṃ¦¦ạỊɦ⁼Fḷeṭḷa»s2¤ç/

ลองออนไลน์!

ขั้นตอนวิธีการ:

for x in ['ze', 'ni', 'on', 'tw', 'th', ...]:
    replace x in input by space+x

ฉันพนันได้เลยว่าเราจะทำได้ดีกว่านี้

Mathematica ขนาด 125 ไบต์

(s=#;While[StringLength@s>2,t=1;a="";While[FreeQ[IntegerName/@0~Range~9,a],a=s~StringTake~t++];Print@a;s=StringDrop[s,t-1]])&

ลองออนไลน์!

TIO ส่งข้อความแสดงข้อผิดพลาดเกี่ยวกับ "CountryData" (???)
ฉันไม่รู้ว่าทำไมถึงเกิดเหตุการณ์นี้ขึ้น แต่ eveything ใช้งานได้ดีใน Mathematica

Perl 6 ,  42  30 ไบต์

*.comb(/<{(0..9).Str.uninames.lc.words}>/)

ทดสอบมัน

{m:g/..<[eox]>||<[tse]>?..../}

ทดสอบ
(แปลจากคำตอบอื่น ๆ )

q / kdb +, 59 51 ไบต์

วิธีการแก้:

{asc[raze x ss/:string`z`one`tw`th`f`s`ei`ni]cut x}

ตัวอย่าง:

q){asc[raze x ss/:string`z`one`tw`th`f`s`ei`ni]cut x}"threesevensevensixninenineninefiveeighttwofiveeightsixthreeeight"
"three"
"seven"
"seven"
"six"
"nine"
"nine"
"nine"
"five"
"eight"
"two"
"five"
"eight"
"six"
"three"
"eight"

คำอธิบาย:

วิธีแก้ปัญหาอย่างรวดเร็วอาจเป็นวิธีที่ดีกว่าและเล่นกอล์ฟได้มากกว่า

{asc[raze x ss/:string`z`one`tw`th`f`s`ei`ni]cut x} / ungolfed solution
{                                                 } / lambda with implicit x as input
                                             cut x  / cut x at indices given by left
 asc[                                       ]       / sort ascending
                string`z`one`tw`th`f`s`ei`ni        / string list ("z","one",...)
          x ss/:                                    / string-search left with each right
     raze                                           / reduce down list

หมายเหตุ:

46 ไบต์ด้วยการเล่นกอล์ฟแบบง่าย ๆ แทนที่ q การโทรด้วย k แต่ยังคงเป็นโซลูชันที่หนักหน่วง

asc[(,/)x ss/:($)`z`one`tw`th`f`s`ei`ni]cut x: