Convertissez une chaîne contenant des chiffres sous forme de mots en un entier, en ignorant les zéros de tête.

Exemples

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

Hypothèses

Les soumissions peuvent supposer que:

1. La chaîne d'entrée est composée de mots numériques séparés par des espaces.
2. Tous les mots sont valides (dans la plage "zéro" .. "neuf") et en minuscules. Le comportement pour une entrée vide n'est pas défini.
3. La chaîne d'entrée représente toujours un nombre non signé dans la plage de intet n'est jamais une chaîne vide.

Notation

Les réponses seront notées en octets avec moins d'octets étant mieux.

PHP , 74 octets

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

Essayez-le en ligne!

J'ai essayé d'obtenir une solution qui ne copie pas les réponses existantes. J'obtiens un polynôme de somme de contrôle de redondance cyclique de longueurs 32 bits ( crc32 ) pour chaque mot, puis je fais un mod 20 et un mod 11 dessus pour obtenir des valeurs uniques mélangées de 0 à 10 (6 manquantes) pour chaque chiffre. Ensuite, en utilisant cette valeur unique, je trouve le chiffre réel.

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

Une autre alternative CRC32 de 74 octets utilisant %493%10: Essayez-le en ligne!

Une autre alternative CRC32 de 74 octets utilisant %2326%11: Essayez-le en ligne!

PHP , 74 octets

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

Essayez-le en ligne!

Une autre alternative avec la même longueur, prend le 22ème caractère dans le md5mot (seul caractère qui donne une valeur unique pour chaque mot) et utilise ensuite ce caractère pour mapper à un chiffre.

Python 2 ,  71  70 octets

-1 grâce aux ovs (utilisation findà la place de index)

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

Essayez-le en ligne!

JavaScript (ES6),  70 67 66  62 octets

Sauvegardé 3 octets grâce à @ovs

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

Essayez-le en ligne!

Gelée ,  19  17 octets

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

Un lien monadique acceptant une liste de caractères qui donne un entier.

Essayez-le en ligne!

À peu près un portage de ma réponse Python 2.

précédent

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

Essayez-le en ligne!

Il existe peut - être un moyen plus court, mais c'est un moyen qui m'est venu à l'esprit.

Python 3 , 107 , 91 , 77 , 90 octets

-16 octets par Sriotchilism O'Zaic

+13 octets pour supprimer les zéros non significatifs

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

Essayez-le en ligne!

Perl 6 , 35 32 octets

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

Essayez-le en ligne!

Explication

{                              }  # 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 octets

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

Essayez-le en ligne!

Grâce aux astuces les plus intelligentes de @Ceilingcat:

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

05AB1E , 18 16 octets

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

Essayez-le en ligne.

Explication:

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

Voir cette astuce de mes 05AB1E (section Comment chaînes Compresser ne font pas partie du dictionnaire? ) Pour comprendre pourquoi .•ƒ/ÿßÇf•est "rothuvsein".

05AB1E , 17 16 octets

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

Essayez-le en ligne!

Lien parfait avec l'autre réponse 05AB1E , mais en utilisant une approche complètement différente.

•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 octets

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

^0+\B

Essayez-le en ligne! Le lien inclut des cas de test. Explication:

\w+
¶$&$&$&

Mettez chaque mot sur sa propre ligne et tripliquez-le.

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

Translittérer le 7e caractère de chaque ligne en utilisant la chaîne de @ UnrelatedString.

\D

Supprimez tous les caractères non numériques restants.

^0+\B

Supprimez les zéros non significatifs (mais laissez au moins un chiffre).

Solution plus traditionnelle de 46 octets:

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

^0+\B

Essayez-le en ligne! Le lien inclut des cas de test. Explication:

T`z\wuxg`E

Les mots zero, two, four, sixet eightcontiennent uniquement les lettres zwuxg. Translittérez-les aux chiffres pairs.

on
1
th
3
fi
5
se
7
ni
9

Pour les chiffres impairs, faites correspondre les deux premières lettres de chaque mot individuellement.

\D

Supprimez tous les caractères non numériques restants.

^0+\B

Supprimez les zéros non significatifs (mais laissez au moins un chiffre).

Gelée , 20 18 17 octets

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

Essayez-le en ligne!

-2 octets de l'exécution de "rothuvsein" via le compresseur de cordes de user202729 .

-1 octet pour avoir volé la chaîne d'enklact zéro-libre de Jonathan Allan et l'avoir placée dans un programme légèrement différent.

Ḳ                    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 octets

- (beaucoup) merci à 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;}

Essayez-le en ligne!

Japt , 13 octets

¸mg6 ì`Ψuv 

Essayez-le

On dirait que tout le monde m'a battu à la même idée - j'aurais pu me épargner les tracas de l'écriture d'un script pour forcer brutalement la chaîne optimale pour la compression, seulement pour trouver cela, jusqu'à l'index 1,000,000 (c'était tôt, je n'avais pas eu mon caféine encore!), "rothuvsein" est la seule chaîne possible!

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

La chaîne compressée contient les caractères à codepoints 206, 168, 117, 118, 160et 136.

Ruby , 63 octets , 52 octets , 50 octets

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

-2 grâce à la pointe de l'encre de valeur

T-SQL, 110 octets

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

Le saut de ligne est uniquement pour la lisibilité.

L'entrée est prise via la table $i$, selon nos règles IO . J'aurais pu économiser 14 octets en préremplissant une variable de chaîne, mais cela n'est autorisé que si la langue n'a pas d'autres méthodes d'entrée.

Explication:

1. STRING_SPLIT prend la chaîne d'entrée et la sépare dans les espaces
2. CHARINDEXprend les 2 premiers caractères et renvoie la position (basée sur 1) dans la chaîne '_ontwthfofisiseeini'. 'ze'pour zéro n'est pas dans la chaîne et renvoie 0 pour "non trouvé". Le trait de soulignement garantit que nous n'obtenons que des multiples de deux.
3. Divisez par 2 pour obtenir le chiffre final
4. STRING_AGG écrase les chiffres sans séparateur
5. 0+force une conversion implicite en INT et supprime tous les zéros non significatifs. 1*fonctionnerait également.

code machine x86, 46 octets

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

C'est un fastcall fonction - reçoit un pointeur sur la chaîne ecxet retourne le résultat danseax .

La fonction de hachage se multiplie par un nombre magique 1856645926 , fait unXOR octet d'entrée et se décale de 2 bits vers la droite.

Sauvegarde et restauration des registres noclobber (edi et ebx) ont pris 4 octets, mais je n'ai pas trouvé de moyen plus efficace de l'implémenter. Stockage de la constante 10 poucesebx était particulièrement ennuyeux!

Démontage avec octets de code correspondants:

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

Code C équivalent:

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

Nettoyer , 88 octets

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

Essayez-le en ligne!

Fortement basé sur la réponse de Jonathan Allan .
Utilise une compréhension pour l'indexation au lieu de indexOf/ elemIndex.

J , 38 octets

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

Essayez-le en ligne!

VBA, 160 octets

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

Correspond aux deux premiers caractères d'une chaîne, zéro exclu.

Fusain , 19 octets

Ｉ⍘⭆⪪Ｓ §ι⁶rothuvsein

Essayez-le en ligne! Le lien est vers la version détaillée du code. Port de la réponse 05AB1E de @ KevinCruijssen. Explication:

    Ｓ               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 octets

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

Essayez-le en ligne!

Utilise la même rothuvseinastuce que les autres, grâce à Jonathan Allan. Attend les arguments d'entrée via l'éclatement, qui sur TIO se manifeste sous forme d'arguments de ligne de commande distincts.

Kotlin, 83 octets

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

+1 octet si vous voulez prendre en charge les longs avec toLong()

Même astuce rothuvsein que les autres, économisant de précieux octets grâce à nice toInt()et kotlin fold(). Je ne peux tout simplement pas me débarrasser du sentiment que certains octets supplémentaires peuvent être rasés, bien que ...

sed -re , 78 octets

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 octets

@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 octets

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

Essayez-le en ligne!

BaCon , 83 72 octets

En supposant que la chaîne est fournie en w $, ce code recherche l'index dans "zeontwthfofisiseeini" en utilisant une expression régulière basée sur les 2 premiers caractères uniques de chaque mot. L'index est ensuite divisé par 2 fournissant le résultat correct.

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