| Bytes | Lang | Time | Link |
|---|---|---|---|
| 087 | Swift 6 | 240304T174034Z | macOSist |
| 064 | Kotlin | 240310T110209Z | Cactusro |
| 7875 | Vyxal | 240303T160654Z | pacman25 |
| 073 | Python 3 | 190922T211741Z | movatica |
| 020 | Pyth | 210103T202406Z | hakr14 |
| 110 | Lua | 210123T044740Z | J. А. de |
| 016 | Jelly | 190922T214204Z | Unrelate |
| 085 | Python 3 | 201231T111308Z | ToxicCod |
| 083 | Bash pure | 201230T222422Z | EasyasPi |
| 055 | Perl 5 p | 201230T015856Z | Xcali |
| 070 | ARM Thumb2 manual rothuvsein | 201230T005841Z | EasyasPi |
| 064 | AWK | 201229T034504Z | Pedro Ma |
| 026 | APL Dyalog Extended | 200913T091940Z | Razetime |
| 062 | Scala | 201228T202542Z | cubic le |
| 027 | K ngn/k | 201228T185654Z | coltim |
| 169 | Windows Batch | 190928T203927Z | peter fe |
| 072 | BaCon | 190927T121058Z | Peter |
| 089 | C gcc | 190924T132131Z | AZTECCO |
| 046 | x86 machine code | 190924T195827Z | anatolyg |
| 078 | sed re | 190923T104928Z | Herzausr |
| 083 | Kotlin | 190924T160431Z | Alex Pap |
| 110 | TSQL | 190923T195306Z | BradC |
| 050 | Ruby | 190923T124329Z | Harrowed |
| 045 | Retina 0.8.2 | 190922T220006Z | Neil |
| 048 | PowerShell | 190923T171937Z | AdmBorkB |
| 013 | Japt | 190923T065852Z | Shaggy |
| 019 | Charcoal | 190923T135905Z | Neil |
| 016 | 05AB1E | 190923T124958Z | Grimmy |
| 016 | 05AB1E | 190923T073428Z | Kevin Cr |
| 160 | VBA | 190923T115056Z | user3819 |
| 074 | PHP | 190923T033554Z | Night2 |
| 062 | JavaScript ES6 | 190922T214432Z | Arnauld |
| 038 | J | 190923T044345Z | Jonah |
| 142 | C++ gcc | 190922T210350Z | Sparkler |
| 032 | Perl 6 | 190922T234155Z | nwellnho |
| 088 | Clean | 190922T231456Z | Οurous |
| 070 | Python 2 | 190922T214958Z | Jonathan |
| 017 | Jelly | 190922T213439Z | Jonathan |
| 045 | Perl 6 | 190922T214245Z | Jo King |
Swift 6, 135 128 91 87 bytes
let f={Int(""+($0+"").split{$0<"0"}.map{[_]("2839016547")[Int($0,radix:36)!%204%13]})!}
This is pretty much a port of @Arnauld's JavaScript answer.
Kotlin, 64 bytes
{split(" ").fold(0){a,b->10*a+"rothuvsein".indexOf((b+b+b)[6])}}
Improving upon this answer.
Vyxal, 63 bitsv2, 7.875 bytes
⌈ƛ₀ʁ∆ċḟ;ṅ⌊
Bitstring:
110010010001010010110111001001001001010010011010110111110111010
⌈ƛ₀ʁ∆ċḟ;ṅ⌊
⌈ # split on spaces
ƛ ; # map over each
ḟ # their index in the list
₀ʁ∆ċ # 0-9 as words
ṅ⌊ # convert back to number
💎
Created with the help of Luminespire.
Python 3, 107, 91, 77, 90, 73 bytes
-16 bytes by Sriotchilism O'Zaic
+13 bytes to remove leading zeroes
-16 bytes using find and a more clever indexing, but now it's basically a rip-off of the Python 2 version...
lambda s:int(''.join(str('rothuvsein'.find((w*3)[6]))for w in s.split()))
Pyth, 21 20 bytes
ssm`x."evt8À"@d6c
Translates literally to print(int("".join(map(lambda d: str("rothuvsein".index(d[6%len(d)])), eval(input()).split())))) in Python 3.
Lua (110 bytes)
A translation to Lua of the rothuvsein trick, sorry. Note that we use 7 instead of 6 because Lua counts from 1, as sane humans do. 😉
function x(s)z=""for w in s:gmatch("%a+")do z=z..(("rothuvsein"):find(w:rep(3):sub(7,7))-1) end return z+0 end
Jelly, 20 18 17 16 bytes
Ḳ7ị“"c tẠ;Ḅ»iƲ€Ḍ
-2 bytes from running "rothuvsein" through user202729's string compressor.
-1 byte from stealing Jonathan Allan's zero-free enklact string, and putting it in a marginally differently structured program.
-1 byte because I actually kind of understand Jelly's dictionary-based string compression now
Ḳ Split the input on spaces,
Ʋ€ for each word
i find the first 1-based index (defaulting to 0)
“"c tẠ;Ḅ» in "othuvseine"
7ị of the element at modular index 7,
Ḍ and convert from decimal digits to integer.
I must admit, I'm disappointed I couldn't get a length reduction from othuvseinfeld.
Python 3, 85 bytes
I put two versions of my explanation just for fun :)
Split the input i into words and loop over it using list comprehension.
For all the words find the location of the first 2 letters in a lookup table ("zeontwthfofisiseeini"), making sure to divide by two - with // for floor division, finally use "".join( to combine into a string and int( to convert to integer and remove leading zero(s).
lambda i:int("".join([str("zeontwthfofisiseeini".find(x[:2])//2)for x in i.split()]))
lambda i:lambda function instead of using adeffunction[for x in]use list comprehension to check through the inputi.splitsplit the input at spaces (default delimiter)"zeontwthfofisiseeini".find(x[:2])find the location of the first two characters of x in a lookup list//2floor divide output of.findbecause it's checking the first 2 charsstr()convert position to string"".join()combine output of list comprehension to a stringint()convert string to int and remove leading zero(s)
Also, this is accidentally similar to this answer but I made mine before looking at the other answers.
Bash (pure), 85 83 bytes
r=rothuvsein
for j in $@
do
s=$j$j$j
t=${r%${s:6:1}*}
((i=i*10+${#t}))
done
echo $i
Literally just the same as every other rothuvsein entry. Concatenates three times and gets it at index 6.
First version which uses no string concatenation: (85 bytes)
r=rothuvsein
for j in $@
do
t=${r%${j:$((6%${#j})):1}*}
((i=i*10+${#t}))
done
echo $i
Pass the string as command line arguments. Expects $i to be unset.
Ungolfed version:
# Default value is zero
val=0
# declare our lookup table
lut=rothuvsein
# loop through command line arguments
for word in $@
do
# The index is at 6 % len(word) (see my Thumb submission)
idx=$(( 6 % ${#word} ))
# chr = word[6 % len(word)]
chr=${word:$idx:1}
# Find a substring using a modified technique from the linked SO post
substr=${lut%$chr*}
# Add the length to val * 10
(( val = val * 10 + ${#substr} ))
done
# Echo the result
echo $val
How to check if a string contains a substring in Bash - Stack Overflow
ARM Thumb-2 (manual rothuvsein, no div, no libc) 70 bytes
Machine code:
b5f0 2100 2420 f000 f816 0032 18c5 3b03
bf18 f1c3 0303 5cc4 a004 f000 f80c 240a
fb01 3104 1c68 2a00 d1ec bdf0 6f72 6874
7675 6573 6e69 f07f 0300 1c5b 5cc6 b10e
42a6 d1fa 4770
Assembly:
.syntax unified
.arch armv6t2
.thumb
.globl _strtoint
.thumb_func
_strtoint:
push {r4-r7, lr}
movs r1, #0
.Lstrtoint_loop:
movs r4, #' '
bl _strfind
movs r2, r6
adds r5, r0, r3
subs r3, #3
it ne
rsbne r3, #3
ldrb r4, [r0, r3]
adr r0, .Lrothuvsein
bl _strfind
movs r4, #10
mla r1, r1, r4, r3
adds r0, r5, #1
cmp r2, #0
bne .Lstrtoint_loop
.Lstrtoint_loop_end:
pop {r4-r7, pc}
@ naturally 4-byte aligned
@ note: this is not null terminated - we blindly assume a match
.Lrothuvsein:
.ascii "rothuvsein"
@ naturally 2-byte aligned
.thumb_func
_strfind:
movs r3, #-1
.Lstrfind_loop:
adds r3, r3, #1
ldrb r6, [r0, r3]
cbz r6, .Lstrfind_loop_end
cmp r6, r4
bne .Lstrfind_loop
.Lstrfind_loop_end:
bx lr
Explanation
Yet another port of the rothuvsein method, but this seems to be the first one in assembly. It is also done manually without the support of libc or fancy useless CISC instructions like repne scasb. Just plain, barebones RISC. That means that it is longer than other assembly languages.
Unlike my previous entries, I am a little more flexible with the calling convention.
While the input string (null terminated) is in r0 just like it would be in C, the output is a 32-bit integer in r1 instead of the traditional r0.
It can still be wrapped in C like so, since r1 is still used for 64-bit integers:
extern uint64_t _strtoint(const char *str);
uint32_t strtoint(const char *str)
{
return (uint32_t)(_strtoint(str) >> 32);
}
Regardless of whether I care about the calling convention, I am going to have to do something with the link register so I can call my subroutine, so might as well push the callee-saved registers and remain mostly in line with the calling convention.
.globl _strtoint
.thumb_func
_strtoint:
push {r4-r7, lr}
Initialize our accumulator/output variable to 0.
movs r1, #0
Call our internal subroutine to find the end of the word.
r3 will have the length of the word, and r6 will have the last byte read. I will explain _strfind later.
.Lstrtoint_loop:
movs r4, #' '
bl _strfind
We save a copy of the last byte read for later to tell if we reached the null terminator.
movs r2, r6
Put the pointer to the string (advanced to the space) in r5.
adds r5, r0, r3
Here is the trickiest part: One does not simply str+str+str in assembly. We need to find the index.
Specifically, if we plot it out:
oneoneone
^
fourfourfour
^
sevensevenseven
^
We can turn it into this:
switch (strlen(str)) {
case 3: return str[0];
case 4: return str[2];
case 5: return str[1];
}
It can be done as 6 % strlen(str), but that is division. I can do better.
I could do a lookup table, but there is a better solution than that:
Remember that r3 is essentially strlen(str).
We can do this:
subs r3, #3
it ne
rsbne r3, #3 @ note: rsb = Reverse SuBtract
The equivalent C:
if ((len -= 3) != 0)
{
len = 3 - len;
}
This works perfectly:
3 - 3 = 0
3 - (4 - 3) = 2
3 - (5 - 3) = 1
Now, we load the byte from the string at our offset...
ldrb r4, [r0, r3]
...then call _strfind with the rothuvsein lookup table to find it.
adr r0, .Lrothuvsein
bl _strfind
Now, we add the length to our accumulator times 10;
movs r4, #10
mla r1, r1, r4, r3 @ r1 = r1 * 10 + len
Take the copy of the string we made in r5, advance it past the space, and put it in r0 for the next iteration.
adds r0, r5, #1
Then, loop if we are not at a null terminator:
cmp r2, #0
bne .Lstrtoint_loop
Finally, return in r1 by popping the link register holding the return address into the program counter (along with restoring the other registers I saved).
.Lstrtoint_loop_end:
pop {r4-r7, pc}
_strfind subroutine
_strfind is the real workhorse here.
C users will find it similar to strcspn or strchr.
It is called with the null terminated string to search in r0 and the byte to find in r4.
It will return the index of the match (or null terminator) in r3 and the last byte read in r6.
First, initialize our counter at -1.
_strfind:
movs r3, #-1
On each iteration, increment the counter..
.Lstrfind_loop:
adds r3, r3, #1
Then, load str[counter] into r6
ldrb r6, [r0, r3]
Then loop unless r6 is \0 or if it matches r4.
cbz r6, .Lstrfind_loop_end
cmp r6, r4
bne .Lstrfind_loop
When we find it, return back to _strtoint.
.Lstrfind_loop_end:
bx lr
AWK, 76 64 bytes
More of the same, but with a pinch of AWK sparkling magic.
Edit: at first, I didn't looked for the answers, and my result was actually similar to some of them. I'm mesmerized by all these ingenious solutions.
{i=OFS=e;for(;NF>i++;)$i=index("othuvsein",substr($i$i$i,7,1))}1
{
i=OFS=e; # We start setting the _i_ variable and the
# Output Field Separator as the _e_ variable, which is
# just empty, for never being assigned anything,
# so _e_ is both evaluated as zero for _i_ and null for _OFS_
# (thanks Brian Kernighan for that!)
for(;
NF>i++; # the looping goes on until _i_ reaches the Number of Fields (NF).
) # also, _i_ is incremented by 1 each turn.
$i= # $i is each field text
index("othuvsein", # we get this magic Klingon and locate the
substr($i$i$i,7,1) # 7th letter of the input concatenated 3 times
) # this has the same effect as looking
# for the second to last letter on the word.
}
1 # finally, we print all the $i together
```
APL (Dyalog Extended), 26 bytes
10⊥'rothuvsein'⍳7⊢/⍤⍴¨≠⍛⊆⍨
A simple function which checks the first two letters of each word.
-30 bytes from Adám using Kevin Cruijssen's idea.
Explanation(old)
{⍕2÷⍨1-⍨(2↑⍵)(⍸⍷)'zeontwthfofisiseeinite'} inner fn:
(2↑⍵) take first two letters
(⍸⍷)'zeontwthfofisiseeinite'} find index of the letters in hardcoded string
2÷⍨1-⍨ subtract 1, divide by 2
⍕ stringify
{⍎⊃,/{⍕2÷⍨1-⍨(2↑⍵)(⍸⍷)'zeontwthfofisiseeinite'}¨' '(≠⊆⊢)⍵} ⍵ → input
' '(≠⊆⊢)⍵ split input on spaces
,/ join output of inner fn
⍎⊃ execute it
Scala, 66 64 62 bytes
_.split(" ").map("rothuvsein"indexOf _.*(3)(6)).mkString.toInt
Try it online!
This is the "rothuvsein" approach in Scala. The 7th character of each (repeated) number string is extracted via (numberString*3)(6). The position of this character in "rothuvsein" is then used as the correct numerical digit. The toInt conversion does the rest (e.g., dealing with leading zeros).
2 times 2 bytes saved thanks to @user by
- an even more abused use of syntactic sugar :)
- simply using
toIntconversion rather thanBigIntconstructor
K (ngn/k), 27 bytes
10/"rothuvsein"?(*|7#)'" "\
Another port of Kevin Cruijssen's 05AB1E answer.
" "\split input on spaces(*|7#)'take the last character of each word (repeated to be of length seven)"rothuvsein"?find index of character in "rothuvsein" (i.e. the seventh character of "zero" repeated is "r", which is at index 0)10/convert from a list of digits to a decimal number
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%
BaCon, 83 72 bytes
Assuming the string is provided in w$, this code looks up the index in "zeontwthfofisiseeini" using a regular expression based on the unique first 2 characters of each word. The index is then divided by 2 providing the correct result.
FOR x$ IN w$:r=r*10+REGEX("zeontwthfofisiseeini",LEFT$(x$,2))/2:NEXT:?r
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++;);}
Thanks to @Ceilingcat smartest tricks :
- printf instead of putchar.
- !printf instead of printf()&0.
- And wide char !
x86 machine code, 46 bytes
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
It's a fastcall function - receives a pointer to the string in ecx, and returns the result in eax.
The hashing function multiplies by a magic number 1856645926, does a XOR with input byte, and shifts right by 2 bits.
Saving and restoring noclobber registers (edi and ebx) took 4 bytes, but I didn't find a more efficient way to implement this. Storing the constant 10 in ebx was particularly annoying!
Disassembly with corresponding 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
Equivalent 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;
}
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*//
Kotlin, 83 bytes
fun String.d()=split(' ').fold(""){a,b->a+"rothuvsein".indexOf((b+b+b)[6])}.toInt()
+1 byte if you wanna support longs with toLong()
Same rothuvsein trick as the others, saving some precious bytes thanks to kotlin's nice toInt() and fold(). I just can't shake the feeling that some more bytes can be shaved off though...
T-SQL, 110 bytes
SELECT 0+STRING_AGG(CHARINDEX(LEFT(value,2),'_ontwthfofisiseeini')/2,'')
FROM STRING_SPLIT((SELECT*FROM i),' ')
Line break is for readability only.
Input is taken via table \$i\$, per our IO rules. I could have saved 14 bytes by pre-populating a string variable, but that's only allowed if the language has no other input methods.
Explanation:
STRING_SPLITtakes the input string and separates it at the spacesCHARINDEXtakes the first 2 characters and returns the (1-based) position in the string'_ontwthfofisiseeini'.'ze'for zero is not in the string and returns 0 for "not found". The underscore ensures we only get multiples of two.- Divide by 2 to get the final numeral
STRING_AGGsmashes the digits back together with no separator0+forces an implicit conversion to INT and drops any leading zeros.1*would also work.
Ruby, 63 bytes, 52 bytes, 50 bytes
p $*.map{|d|'rothuvsein'.index (d*3)[6]}.join.to_i
-2 thanks to value ink's tip
Retina 0.8.2, 46 45 bytes
\w+
¶$&$&$&
%7=T`r\ot\huvs\ein`d`.
\D
^0+\B
Try it online! Link includes test cases. Explanation:
\w+
¶$&$&$&
Put each word on its own line and triplicate it.
%7=T`r\ot\huvs\ein`d`.
Transliterate the 7th character of each line using @UnrelatedString's string.
\D
Delete all remaining non-digit characters.
^0+\B
Delete leading zeros (but leave at least one digit).
Previous 46-byte more traditional solution:
T`z\wuxg`E
on
1
th
3
fi
5
se
7
ni
9
\D
^0+\B
Try it online! Link includes test cases. Explanation:
T`z\wuxg`E
The words zero, two, four, six and eight uniquely contain the letters zwuxg. Transliterate those to the even digits.
on
1
th
3
fi
5
se
7
ni
9
For the odd digits, just match the first two letters of each word individually.
\D
Delete all remaining non-digit characters.
^0+\B
Delete leading zeros (but leave at least one digit).
PowerShell, 48 bytes
+-join($args|%{'rothuvsein'.indexof(($_*3)[6])})
Uses the same rothuvsein trick as others, thanks to Jonathan Allan. Expects input arguments via splatting, which on TIO manifests as separate command-line arguments.
Japt, 13 bytes
¸mg6 ì`Ψuv
Looks like everyone else beat me to the same idea - could've saved myself the hassle of writing a script to brute force the optimal string for compression, only to find that, up to index 1,000,000 (it was early, I hadn't had my caffeine yet!), "rothuvsein" is the only possible string!
¸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"
The compressed string contains the characters at codepoints 206, 168, 117, 118, 160 & 136.
Charcoal, 19 bytes
I⍘⭆⪪S §ι⁶rothuvsein
Try it online! Link is to verbose version of code. Port of @KevinCruijssen's 05AB1E answer. Explanation:
S Input string
⪪ Split on spaces
⭆ Map over words and join
ι Current word
§ Cyclically indexed
⁶ Literal `6`
⍘ rothuvsein Custom base conversion
I Cast to string for implicit print
05AB1E, 17 16 bytes
•D±¾©xWÄ0•I#HèTβ
Perfect tie with the other 05AB1E answer, but using a completely different approach.
•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
05AB1E, 18 16 bytes
#ε6è}.•ƒ/ÿßÇf•Åβ
Explanation:
# # 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)
See this 05AB1E tip of mine (section How to compress strings not part of the dictionary?) to understand why .•ƒ/ÿßÇf• is "rothuvsein".
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
Matches the first two characters in a string, zero excluded.
PHP, 74 bytes
foreach(explode(' ',$argn)as$w)$n.='793251_8640'[crc32($w)%20%11];echo+$n;
Tried to get a solution which doesn't copy existing answers. I get cyclic redundancy checksum polynomial of 32-bit lengths (crc32) for each word and then do a mod 20 and mod 11 on it to get mixed up unique values from 0 to 10 (missing 6) for each digit. Then using that unique value I find the actual digit.
| 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 |
Another 74 bytes CRC32 alternative using %493%10: Try it online!
Another 74 bytes CRC32 alternative using %2326%11: Try it online!
PHP, 74 bytes
foreach(explode(' ',$argn)as$w)$n.=strpos(d07bfe386c,md5($w)[21]);echo+$n;
Another alternative with same length, takes 22nd character in the md5 of the word (only character which gives a unique value for each word) and then uses that character to map to a digit.
JavaScript (ES6), 70 67 66 62 bytes
Saved 3 bytes thanks to @ovs
s=>+s.replace(/\w+ ?/g,s=>'2839016547'[parseInt(s,36)%204%13])
C++ (gcc), 478 218 142 bytes
-(a lot) thanks to 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;}
Perl 6, 35 32 bytes
{+uniparse 'SP'~S:g/<</,DIGIT /}
Explanation
{ } # 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
Clean, 88 bytes
import StdEnv,Text
$s=toInt{#i\\n<-split" "s,c<-:"rothuvsein"&i<-['0'..]|c==(n+n+n).[6]}
Heavily based on Jonathan Allan's answer.
Uses a comprehension for indexing instead of indexOf / elemIndex.
Python 2, 71 70 bytes
-1 thanks to ovs (use find in place of index)
lambda s:int(''.join(`'rothuvsein'.find((w*3)[6])`for w in s.split()))
Jelly, 19 17 bytes
Ḳµ7ị“*;nÄƲ]³Ṙ»i)Ḍ
A monadic Link accepting a list of characters which yields an integer.
Pretty much a port of my Python 2 answer.
Previous
ḲŒ¿€i@€“©¥q£½¤MÆÑ‘Ḍ
There is quite possibly a shorter way, but this is a way that first came to mind.