Konvertieren Sie eine Zeichenfolge, die Ziffern als Wörter enthält, in eine Ganzzahl, wobei führende Nullen ignoriert werden.

Beispiele

• "four two"-> 42.
• "zero zero zero one"-> 1.

Annahmen

Einreichungen können davon ausgehen, dass:

1. Die Eingabezeichenfolge besteht aus durch Leerzeichen getrennten Ziffernwörtern.
2. Alle Wörter sind gültig (im Bereich "Null" .. "Neun") und in Kleinbuchstaben. Das Verhalten bei Leereingabe ist undefiniert.
3. Die Eingabezeichenfolge stellt immer eine vorzeichenlose Zahl im Bereich von dar intund ist niemals eine leere Zeichenfolge.

Wertung

Antworten werden in Bytes bewertet, wobei weniger Bytes besser sind.

PHP , 74 Bytes

foreach(explode(' ',$argn)as$w)$n.='793251_8640'[crc32($w)%20%11];echo+$n;

Probieren Sie es online!

Es wurde versucht, eine Lösung zu finden, bei der vorhandene Antworten nicht kopiert werden. Ich erhalte ein zyklisches Redundanzprüfsummenpolynom mit einer Länge von 32 Bit ( crc32 ) für jedes Wort und führe dann eine Modifikation 20 und eine Modifikation 11 aus, um eindeutige Werte von 0 bis 10 (fehlende 6) für jede Ziffer zu mischen. Mit diesem eindeutigen Wert ermittle ich dann die tatsächliche Ziffer.

| Word  | CRC32      | %20 | %11 | Equivalent digit |
|-------|------------|-----|-----|------------------|
| zero  | 2883514770 | 10  | 10  | 0                |
| one   | 2053932785 | 5   | 5   | 1                |
| two   | 298486374  | 14  | 3   | 2                |
| three | 1187371253 | 13  | 2   | 3                |
| four  | 2428593789 | 9   | 9   | 4                |
| five  | 1018350795 | 15  | 4   | 5                |
| six   | 1125590779 | 19  | 8   | 6                |
| seven | 2522131820 | 0   | 0   | 7                |
| eight | 1711947398 | 18  | 7   | 8                |
| nine  | 2065529981 | 1   | 1   | 9                |

Weitere 74-Byte-CRC32-Alternative mit %493%10: Online testen !

Weitere 74-Byte-CRC32-Alternative mit %2326%11: Online!

PHP , 74 Bytes

foreach(explode(' ',$argn)as$w)$n.=strpos(d07bfe386c,md5($w)[21]);echo+$n;

Probieren Sie es online!

Eine andere Alternative mit der gleichen Länge nimmt das 22. Zeichen md5des Wortes (das einzige Zeichen, das für jedes Wort einen eindeutigen Wert angibt) und ordnet dieses Zeichen dann einer Ziffer zu.

Python 2 ,  71-70  Bytes

-1 dank ovs ( findanstelle von index)

lambda s:int(''.join(`'rothuvsein'.find((w*3)[6])`for w in s.split()))

Probieren Sie es online!

JavaScript (ES6),  70 67 66  62 Byte

3 Bytes dank @ovs gespart

s=>+s.replace(/\w+ ?/g,s=>'2839016547'[parseInt(s,36)%204%13])

Probieren Sie es online!

Jelly ,  19  17 Bytes

Ḳµ7ị“*;nÄƲ]³Ṙ»i)Ḍ

Ein monadischer Link, der eine Liste von Zeichen akzeptiert, die eine Ganzzahl ergibt.

Probieren Sie es online!

Ziemlich genau ein Port meiner Python 2-Antwort.

Bisherige

ḲŒ¿€i@€“©¥q£½¤MÆÑ‘Ḍ

Probieren Sie es online!

Es ist sehr wahrscheinlich ein kürzerer Weg, aber dies ist ein Weg, die ersten Sinn kam zu.

Python 3 , 107 , 91 , 77 , 90 Bytes

-16 Bytes von Sriotchilism O'Zaic

+13 Bytes, um führende Nullen zu entfernen

lambda s:int(''.join(map(lambda w:str('zeontwthfofisiseeini'.index(w[:2])//2),s.split())))

Probieren Sie es online!

Perl 6 , 35 32 Bytes

{+uniparse 'SP'~S:g/<</,DIGIT /}

Probieren Sie es online!

Erläuterung

{                              }  # Anonymous block
                S:g/<</,DIGIT /   # Insert ",DIGIT " at
                                  # left word boundaries
           'SP'~  # Prepend 'SP' for space
  uniparse  # Parse list of Unicode names into string
 +  # Convert to integer

C (gcc) 89 Bytes

i,n;f(char*w){for(i=n=0;n=*w%32?n^*w:(i+=n-2)&&!printf(L"8 0  72 3  59641"+n%17),*w++;);}

Probieren Sie es online!

Dank der cleversten Tricks von @Ceilingcat:

- printf instead of putchar.   
- !printf instead of printf()&0. 
- And wide char !

05AB1E , 18 16 Bytes

#ε6è}.•ƒ/ÿßÇf•Åβ

Probieren Sie es online aus.

Erläuterung:

#                 # Split the (implicit) input-string on spaces
 ε  }             # Map each string to:
  6è              #  Get the character at 0-based index 6 (with automatic wraparound)
     .•ƒ/ÿßÇf•    # Push compressed string "rothuvsein"
              Åβ  # Convert the characters from custom base-"rothuvsein" to an integer
                  # (after which the top of the stack is output implicitly as result)

Sehen Sie diese 05AB1E Spitze Mine (Abschnitt Wie Kompresse Strings nicht Teil des Wörterbuchs? ) Zu verstehen , warum .•ƒ/ÿßÇf•ist "rothuvsein".

05AB1E , 17 16 Bytes

•D±¾©xWÄ0•I#HèTβ

Probieren Sie es online!

Perfekte Verbindung mit der anderen 05AB1E-Antwort , aber mit einem völlig anderen Ansatz.

•D±¾©xWÄ0•               # compressed integer 960027003010580400
          I#             # split the input on spaces
            H            # convert each word from hex (eg "one" => 6526)
             è           # index (with wrap-around) into the digits of the large integer
              Tβ         # convert from base 10 to integer

Retina 0.8.2 , 46 45 Bytes

\w+
¶$&$&$&
%7=T`r\ot\huvs\ein`d`.
\D

^0+\B

Probieren Sie es online! Link enthält Testfälle. Erläuterung:

\w+
¶$&$&$&

Setzen Sie jedes Wort in eine eigene Zeile und verdreifachen Sie es.

%7=T`r\ot\huvs\ein`d`.

Transliterieren Sie das 7. Zeichen jeder Zeile mit der Zeichenfolge von @ UnrelatedString.

\D

Löschen Sie alle verbleibenden nichtstelligen Zeichen.

^0+\B

Führende Nullen löschen (aber mindestens eine Ziffer belassen).

Bisherige 46-Byte-Lösung:

T`z\wuxg`E
on
1
th
3
fi
5
se
7
ni
9
\D

^0+\B

Probieren Sie es online! Link enthält Testfälle. Erläuterung:

T`z\wuxg`E

Die Worte zero, two, four, sixund eightenthalten eindeutig die Buchstaben zwuxg. Transkribieren Sie diese in die geraden Ziffern.

on
1
th
3
fi
5
se
7
ni
9

Für die ungeraden Ziffern passen Sie einfach die ersten beiden Buchstaben jedes Wortes einzeln an.

\D

Löschen Sie alle verbleibenden nichtstelligen Zeichen.

^0+\B

Führende Nullen löschen (aber mindestens eine Ziffer belassen).

Jelly , 20 18 17 Bytes

Ḳ7ị“*;nÄƲ]³Ṙ»iƲ€Ḍ

Probieren Sie es online!

-2 Bytes vom Ausführen von "rothuvsein" durch den String-Kompressor von user202729 .

-1 Byte davon, Jonathan Allans nullfreien Enklact-String gestohlen und in ein geringfügig anders strukturiertes Programm eingefügt zu haben.

Ḳ                    Split the input on spaces,
              Ʋ€     for each word
             i       find the 1-based index (defaulting to 0)
   “*;nÄƲ]³Ṙ»        in "othuvsein"
 7ị                  of the element at modular index 7,
                Ḍ    and convert from decimal digits to integer.

C ++ (gcc) , 478 218 142 Bytes

- (sehr) danke an Jo King

int f(string s){char c[]="N02K8>IE;6";int i=0,n=0;while(s[i]){n=n*10-1;while((s[i]^s[i+1])+47!=c[++n%10]);while(s[i++]!=' '&&s[i]);}return n;}

Probieren Sie es online!

Japt , 13 Bytes

¸mg6 ì`Ψuv 

Versuch es

Sieht aus wie alle auf die gleiche Idee hat mich sonst - selbst die Mühe , ein Skript zu Brute - Force des Schreibens die optimale Saite für die Kompression gespeichert haben könnte, nur das zu finden, die bis zu Index 1,000,000(es früh war, ich hatte nicht meine Koffein noch!), "rothuvsein" ist die einzig mögliche Saite!

¸mg6 ì`...     :Implicit input of string
¸              :Split on spaces
 m             :Map
  g6           :  Character at index 6 (0-based, with wrapping)
     ì         :Convert from digit array in base
      `...     :  Compressed string "rothuvsein"

Die komprimierte Zeichenfolge enthält die Zeichen in Codepoints 206, 168, 117, 118, 160und 136.

Ruby , 63 Bytes , 52 Bytes , 50 Bytes

p $*.map{|d|'rothuvsein'.index (d*3)[6]}.join.to_i

-2 dank Wert Schwärze Spitze

T-SQL, 110 Bytes

SELECT 0+STRING_AGG(CHARINDEX(LEFT(value,2),'_ontwthfofisiseeini')/2,'')
FROM STRING_SPLIT((SELECT*FROM i),' ')

Zeilenumbruch dient nur der Lesbarkeit.

Die Eingabe erfolgt über die Tabelle $i$, Je unseren IO Regeln . Ich hätte 14 Bytes einsparen können, indem ich eine Zeichenfolgenvariable vorab aufgefüllt hätte, aber das ist nur zulässig, wenn die Sprache keine anderen Eingabemethoden hat.

Erläuterung:

1. STRING_SPLIT Nimmt die Eingabezeichenfolge und trennt sie an den Leerzeichen
2. CHARINDEXNimmt die ersten 2 Zeichen und gibt die (1-basierte) Position in der Zeichenfolge zurück '_ontwthfofisiseeini'.'ze'for zero ist nicht in der Zeichenfolge und gibt 0 für "not found" zurück. Der Unterstrich stellt sicher, dass wir nur ein Vielfaches von zwei erhalten.
3. Teilen Sie durch 2, um die endgültige Zahl zu erhalten
4. STRING_AGG Zerschmettert die Ziffern ohne Trennzeichen
5. 0+Erzwingt eine implizite Konvertierung in INT und löscht alle führenden Nullen. 1*würde auch funktionieren.

x86-Maschinencode, 46 Byte

Hexdump:

57 53 33 c0 33 ff f6 01 0f 75 15 6a 0a 5b 99 f7
f3 6b ff 0a 03 fa 33 c0 38 01 75 0f 97 5b 5f c3
69 c0 26 2b aa 6e 32 01 c1 e8 02 41 eb d8

Es ist eine fastcallFunktion - empfängt einen Zeiger auf den String in ecxund gibt das Ergebnis in zurück eax.

Die Hash - Funktion vervielfacht durch eine magische Zahl 1856645926, tut einXOR mit dem Eingabebyte und verschiebt sich um 2 Bits nach rechts.

Das Speichern und Wiederherstellen von Noclobber-Registern ( ediund ebx) dauerte 4 Byte, aber ich fand keinen effizienteren Weg, dies zu implementieren. Speichern der Konstante 10 inebx war besonders ärgerlich!

Demontage mit entsprechenden Code-Bytes:

57                   push        edi  ; edi = result
53                   push        ebx  ; we use ebx to store the constant 10
33 C0                xor         eax,eax  
33 FF                xor         edi,edi  
    myloop:
F6 01 0F             test        byte ptr [ecx],0Fh  ; check for end of word
75 15                jne         myhash
6A 0A                push        0Ah  
5B                   pop         ebx  
99                   cdq              ; prepare 64-bit dividend in edx:eax
F7 F3                div         eax,ebx  ; find the remainder of division by 10
6B FF 0A             imul        edi,edi,0Ah
03 FA                add         edi,edx  ; update the result
33 C0                xor         eax,eax  ; reset the hash temporary variable
38 01                cmp         byte ptr [ecx],al  ; check for end of input (here al=0)
75 0F                jne         mycontinue
97                   xchg        eax,edi  ; set the return register
5B                   pop         ebx  ; restore registers
5F                   pop         edi  ; restore registers
C3                   ret  
    myhash:
69 C0 26 2B AA 6E    imul        eax,eax,6EAA2B26h  ; hashing...
32 01                xor         al,byte ptr [ecx]  ; hashing...
C1 E8 02             shr         eax,2  ; hashing...
    mycontinue:
41                   inc         ecx  ; next input byte
EB D8                jmp         myloop

Äquivalenter C-Code:

int doit(const char* s)
{
    int result = 0;
    unsigned temp = 0;
    while (true)
    {
        int c = *s++;
        if ((c & 15) == 0)
        {
            temp %= 10;
            result = result * 10 + temp;
            temp = 0;
            if (c == 0)
                break;
            else
                continue;
        }
        temp *= 1856645926;
        temp ^= c;
        temp >>= 2;
    }
    return result;
}

Sauber , 88 Bytes

import StdEnv,Text
$s=toInt{#i\\n<-split" "s,c<-:"rothuvsein"&i<-['0'..]|c==(n+n+n).[6]}

Probieren Sie es online!

Stark basierend auf Jonathan Allans Antwort .
Verwendet ein Verständnis für die Indizierung anstelle von indexOf/ elemIndex.

J , 38 Bytes

('b\e~mjPxw['i.[:u:70+1#.15|3&u:)&>@;:

Probieren Sie es online!

Holzkohle , 19 Bytes

Ｉ⍘⭆⪪Ｓ §ι⁶rothuvsein

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Port von @ KevinCruijssens 05AB1E Antwort. Erläuterung:

    Ｓ               Input string
   ⪪                Split on spaces
  ⭆                 Map over words and join
       ι            Current word
      §             Cyclically indexed
        ⁶           Literal `6`
 ⍘       rothuvsein Custom base conversion
Ｉ                   Cast to string for implicit print

PowerShell , 48 Byte

+-join($args|%{'rothuvsein'.indexof(($_*3)[6])})

Probieren Sie es online!

Verwendet den gleichen rothuvseinTrick wie andere, dank Jonathan Allan. Erwartet Eingabeargumente über Splatting, das sich in TIO als separate Befehlszeilenargumente manifestiert.

Kotlin, 83 Bytes

fun String.d()=split(' ').fold(""){a,b->a+"rothuvsein".indexOf((b+b+b)[6])}.toInt()

+1 Byte, wenn Sie Longs mit unterstützen möchten toLong()

Gleicher rothuvsein Trick wie die anderen, spart dank kotlins nettem toInt()und ein paar wertvolle Bytes fold(). Ich kann das Gefühl nicht loswerden, dass noch mehr Bytes entfernt werden können ...

sed -re , 78 Bytes

s/three/3/g;s/five/5/g;s/\w\w(\w)\w*/\1/g;s/ //g;y/eouxvgnr/12467890/;s/^0*//

Windows Batch, 169 Bytes

@setlocal enabledelayedexpansion
@set z=zeontwthfofisiseeini
:a
@set b=%1
@for /l %%c in (0,2,18)do @if "!b:~0,2!"=="!z:~%%c,2!" set/aa=a*10+%%c/2&shift&goto a
@echo %a%

Perl 6 , 45 Bytes

+*.words>>.&{+(1...*.uniname.comb(.uc))}.chrs

Probieren Sie es online!

VBA, 160 Bytes

Function e(s)
s = Split(s, " ")
For i = LBound(s) To UBound(s)
s(i) = Int((InStr("ontwthfofisiseeini", Left(s(i), 2)) + 1) / 2)
Next
e = Val(Join(s, ""))
End Function

Entspricht den ersten beiden Zeichen einer Zeichenfolge, ohne Null.

BaCon , 83 72 Bytes

Unter der Annahme, dass die Zeichenfolge in w $ angegeben ist, sucht dieser Code den Index in "zeontwthfofisiseeini" mit einem regulären Ausdruck, der auf den eindeutigen ersten beiden Zeichen jedes Wortes basiert. Der Index wird dann durch 2 geteilt, um das richtige Ergebnis zu erhalten.

FOR x$ IN w$:r=r*10+REGEX("zeontwthfofisiseeini",LEFT$(x$,2))/2:NEXT:?r