int word_in_vocabulary(char *text, int start_pos, int end_pos, char *vocab,
                       float *frequency, int update_frequency,
                       float *returned_frequency) {
  int length = end_pos - start_pos;
  int index, i = 0, c;
  if ((length == 0) || (length >= 32 - 1))
    return 0;
  if ((text[start_pos] >= 'a') && (text[start_pos] <= 'z')) {
    index = (int)(text[start_pos] - 'a');
  } else {
    index = (int)(text[start_pos] - 'A');
  }
  if (index >= 26)
    return 0;
  while (i < 640) {
    if (vocab[(((index)*640 * 32) + ((i)*32))] == 0)
      break;
    if (strlen(&vocab[(((index)*640 * 32) + ((i)*32))]) == length) {
      for (c = start_pos; c < end_pos; c++) {
        if (tolower(text[c]) !=
            vocab[(((index)*640 * 32) + ((i)*32)) + c - start_pos])
          break;
      }
      if (c == end_pos) {
        if (update_frequency > 0) {
          frequency[(((index)*640) + (i))]++;
        } else {
          *returned_frequency = frequency[(((index)*640) + (i))];
        }
        return 1;
      }
    }
    i++;
  }
  return 0;
}


x86 assembly (clang, -O0):
<word_in_vocabulary>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    0x10(%rbp),%rax
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9d,-0x2c(%rbp)
mov    -0x18(%rbp),%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x30(%rbp)
movl   $0x0,-0x38(%rbp)
cmpl   $0x0,-0x30(%rbp)
je     1166 <word_in_vocabulary+0x46>
cmpl   $0x1f,-0x30(%rbp)
jl     1172 <word_in_vocabulary+0x52>
movl   $0x0,-0x4(%rbp)
jmp    132d <word_in_vocabulary+0x20d>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x61,%eax
jl     11b3 <word_in_vocabulary+0x93>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x7a,%eax
jg     11b3 <word_in_vocabulary+0x93>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
sub    $0x61,%eax
mov    %eax,-0x34(%rbp)
jmp    11c5 <word_in_vocabulary+0xa5>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
sub    $0x41,%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x1a,-0x34(%rbp)
jl     11db <word_in_vocabulary+0xbb>
movl   $0x0,-0x4(%rbp)
jmp    132d <word_in_vocabulary+0x20d>
jmp    11e0 <word_in_vocabulary+0xc0>
cmpl   $0x280,-0x38(%rbp)
jge    1326 <word_in_vocabulary+0x206>
mov    -0x20(%rbp),%rax
imul   $0x280,-0x34(%rbp),%ecx
shl    $0x5,%ecx
mov    -0x38(%rbp),%edx
shl    $0x5,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
jne    1218 <word_in_vocabulary+0xf8>
jmp    1326 <word_in_vocabulary+0x206>
mov    -0x20(%rbp),%rdi
imul   $0x280,-0x34(%rbp),%eax
shl    $0x5,%eax
mov    -0x38(%rbp),%ecx
shl    $0x5,%ecx
add    %ecx,%eax
cltq
add    %rax,%rdi
call   1030 <strlen@plt>
movslq -0x30(%rbp),%rcx
cmp    %rcx,%rax
jne    1318 <word_in_vocabulary+0x1f8>
mov    -0x14(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    12ab <word_in_vocabulary+0x18b>
mov    -0x10(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1040 <tolower@plt>
mov    -0x20(%rbp),%rcx
imul   $0x280,-0x34(%rbp),%edx
shl    $0x5,%edx
mov    -0x38(%rbp),%esi
shl    $0x5,%esi
add    %esi,%edx
add    -0x3c(%rbp),%edx
sub    -0x14(%rbp),%edx
movslq %edx,%rdx
movsbl (%rcx,%rdx,1),%ecx
cmp    %ecx,%eax
je     1298 <word_in_vocabulary+0x178>
jmp    12ab <word_in_vocabulary+0x18b>
jmp    129d <word_in_vocabulary+0x17d>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    124b <word_in_vocabulary+0x12b>
mov    -0x3c(%rbp),%eax
cmp    -0x18(%rbp),%eax
jne    1313 <word_in_vocabulary+0x1f3>
cmpl   $0x0,-0x2c(%rbp)
jle    12e9 <word_in_vocabulary+0x1c9>
mov    -0x28(%rbp),%rax
imul   $0x280,-0x34(%rbp),%ecx
add    -0x38(%rbp),%ecx
movslq %ecx,%rcx
movss  0xd26(%rip),%xmm0
addss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
jmp    1307 <word_in_vocabulary+0x1e7>
mov    -0x28(%rbp),%rax
imul   $0x280,-0x34(%rbp),%ecx
add    -0x38(%rbp),%ecx
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
mov    0x10(%rbp),%rax
movss  %xmm0,(%rax)
movl   $0x1,-0x4(%rbp)
jmp    132d <word_in_vocabulary+0x20d>
jmp    1318 <word_in_vocabulary+0x1f8>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    11e0 <word_in_vocabulary+0xc0>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<word_in_vocabulary>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rcx,%rbp
xor    %eax,%eax
mov    %edx,%ecx
sub    %esi,%ecx
je     1285 <word_in_vocabulary+0x165>
cmp    $0x1e,%ecx
jg     1285 <word_in_vocabulary+0x165>
mov    %rdi,%rbx
movslq %esi,%r11
movsbl (%rdi,%r11,1),%r10d
lea    -0x61(%r10),%r14d
xor    %edi,%edi
cmp    $0x1a,%r14b
setae  %dil
shl    $0x5,%edi
or     $0xffffff9f,%edi
lea    (%rdi,%r10,1),%r14d
cmp    $0x19,%r14d
jg     1285 <word_in_vocabulary+0x165>
mov    %edx,0xc(%rsp)
mov    %r9d,0x10(%rsp)
mov    %r8,0x28(%rsp)
add    %r11,%rbx
mov    %r14,%rax
mov    %r14,0x20(%rsp)
mov    %r14d,%edx
shl    $0xc,%edx
lea    (%rdx,%rdx,4),%edx
movslq %ecx,%r15
movslq %edx,%rax
mov    %rax,0x30(%rsp)
mov    %esi,0x14(%rsp)
mov    %esi,%eax
mov    %rax,0x18(%rsp)
lea    (%rdi,%rdi,4),%ecx
shl    $0xc,%ecx
lea    (%r10,%r10,4),%r14d
shl    $0xc,%r14d
add    %ecx,%r14d
xor    %r12d,%r12d
jmp    11e4 <word_in_vocabulary+0xc4>
add    0x18(%rsp),%r13d
mov    0xc(%rsp),%eax
cmp    %eax,%r13d
je     1243 <word_in_vocabulary+0x123>
add    $0x1,%r12
add    $0x20,%r14
cmp    $0x280,%r12
je     1273 <word_in_vocabulary+0x153>
mov    %r12,%rdi
shl    $0x5,%rdi
add    0x30(%rsp),%rdi
cmpb   $0x0,0x0(%rbp,%rdi,1)
je     1273 <word_in_vocabulary+0x153>
add    %rbp,%rdi
call   1030 <strlen@plt>
cmp    %r15,%rax
jne    11cf <word_in_vocabulary+0xaf>
mov    0x14(%rsp),%ecx
mov    %ecx,%r13d
mov    0xc(%rsp),%eax
cmp    %ecx,%eax
jle    11ca <word_in_vocabulary+0xaa>
xor    %r13d,%r13d
cs nopw 0x0(%rax,%rax,1)
movsbl (%rbx,%r13,1),%edi
call   1040 <tolower@plt>
lea    (%r14,%r13,1),%ecx
movslq %ecx,%rcx
movsbl 0x0(%rbp,%rcx,1),%ecx
cmp    %ecx,%eax
jne    11c1 <word_in_vocabulary+0xa1>
add    $0x1,%r13
cmp    %r13,%r15
jne    1220 <word_in_vocabulary+0x100>
mov    0x20(%rsp),%rax
lea    (%rax,%rax,4),%eax
shl    $0x7,%eax
add    %r12d,%eax
cltq
mov    0x28(%rsp),%rcx
movss  (%rcx,%rax,4),%xmm0
cmpl   $0x0,0x10(%rsp)
jle    1277 <word_in_vocabulary+0x157>
addss  0xd94(%rip),%xmm0
movss  %xmm0,(%rcx,%rax,4)
jmp    1280 <word_in_vocabulary+0x160>
xor    %eax,%eax
jmp    1285 <word_in_vocabulary+0x165>
mov    0x70(%rsp),%rax
movss  %xmm0,(%rax)
mov    $0x1,%eax
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @word_in_vocabulary(i8* %0, i32 %1, i32 %2, i8* %3, float* %4, i32 %5, float* %6) {
%8 = alloca i32
%9 = alloca i8*
%10 = alloca i32
%11 = alloca i32
%12 = alloca i8*
%13 = alloca float*
%14 = alloca i32
%15 = alloca float*
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
store i8* %0, i8** %9
store i32 %1, i32* %10
store i32 %2, i32* %11
store i8* %3, i8** %12
store float* %4, float** %13
store i32 %5, i32* %14
store float* %6, float** %15
%20 = load i32, i32* %11
%21 = load i32, i32* %10
%22 = sub nsw i32 %20, %21
store i32 %22, i32* %16
store i32 0, i32* %18
%23 = load i32, i32* %16
%24 = icmp eq i32 %23, 0
br i1 %24, label %28, label %25
25: ; preds = %7
%26 = load i32, i32* %16
%27 = icmp sge i32 %26, 31
br i1 %27, label %28, label %29
28: ; preds = %25, %7
store i32 0, i32* %8
br label %165
29: ; preds = %25
%30 = load i8*, i8** %9
%31 = load i32, i32* %10
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %30, i64 %32
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp sge i32 %35, 97
br i1 %36, label %37, label %53
37: ; preds = %29
%38 = load i8*, i8** %9
%39 = load i32, i32* %10
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds i8, i8* %38, i64 %40
%42 = load i8, i8* %41
%43 = sext i8 %42 to i32
%44 = icmp sle i32 %43, 122
br i1 %44, label %45, label %53
45: ; preds = %37
%46 = load i8*, i8** %9
%47 = load i32, i32* %10
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds i8, i8* %46, i64 %48
%50 = load i8, i8* %49
%51 = sext i8 %50 to i32
%52 = sub nsw i32 %51, 97
store i32 %52, i32* %17
br label %61
53: ; preds = %37, %29
%54 = load i8*, i8** %9
%55 = load i32, i32* %10
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds i8, i8* %54, i64 %56
%58 = load i8, i8* %57
%59 = sext i8 %58 to i32
%60 = sub nsw i32 %59, 65
store i32 %60, i32* %17
br label %61
61: ; preds = %53, %45
%62 = load i32, i32* %17
%63 = icmp sge i32 %62, 26
br i1 %63, label %64, label %65
64: ; preds = %61
store i32 0, i32* %8
br label %165
65: ; preds = %61
br label %66
66: ; preds = %161, %65
%67 = load i32, i32* %18
%68 = icmp slt i32 %67, 640
br i1 %68, label %69, label %164
69: ; preds = %66
%70 = load i8*, i8** %12
%71 = load i32, i32* %17
%72 = mul nsw i32 %71, 640
%73 = mul nsw i32 %72, 32
%74 = load i32, i32* %18
%75 = mul nsw i32 %74, 32
%76 = add nsw i32 %73, %75
%77 = sext i32 %76 to i64
%78 = getelementptr inbounds i8, i8* %70, i64 %77
%79 = load i8, i8* %78
%80 = sext i8 %79 to i32
%81 = icmp eq i32 %80, 0
br i1 %81, label %82, label %83
82: ; preds = %69
br label %164
83: ; preds = %69
%84 = load i8*, i8** %12
%85 = load i32, i32* %17
%86 = mul nsw i32 %85, 640
%87 = mul nsw i32 %86, 32
%88 = load i32, i32* %18
%89 = mul nsw i32 %88, 32
%90 = add nsw i32 %87, %89
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds i8, i8* %84, i64 %91
%93 = call i64 @strlen(i8* %92)
%94 = load i32, i32* %16
%95 = sext i32 %94 to i64
%96 = icmp eq i64 %93, %95
br i1 %96, label %97, label %161
97: ; preds = %83
%98 = load i32, i32* %10
store i32 %98, i32* %19
br label %99
99: ; preds = %129, %97
%100 = load i32, i32* %19
%101 = load i32, i32* %11
%102 = icmp slt i32 %100, %101
br i1 %102, label %103, label %132
103: ; preds = %99
%104 = load i8*, i8** %9
%105 = load i32, i32* %19
%106 = sext i32 %105 to i64
%107 = getelementptr inbounds i8, i8* %104, i64 %106
%108 = load i8, i8* %107
%109 = sext i8 %108 to i32
%110 = call i32 @tolower(i32 %109)
%111 = load i8*, i8** %12
%112 = load i32, i32* %17
%113 = mul nsw i32 %112, 640
%114 = mul nsw i32 %113, 32
%115 = load i32, i32* %18
%116 = mul nsw i32 %115, 32
%117 = add nsw i32 %114, %116
%118 = load i32, i32* %19
%119 = add nsw i32 %117, %118
%120 = load i32, i32* %10
%121 = sub nsw i32 %119, %120
%122 = sext i32 %121 to i64
%123 = getelementptr inbounds i8, i8* %111, i64 %122
%124 = load i8, i8* %123
%125 = sext i8 %124 to i32
%126 = icmp ne i32 %110, %125
br i1 %126, label %127, label %128
127: ; preds = %103
br label %132
128: ; preds = %103
br label %129
129: ; preds = %128
%130 = load i32, i32* %19
%131 = add nsw i32 %130, 1
store i32 %131, i32* %19
br label %99
132: ; preds = %127, %99
%133 = load i32, i32* %19
%134 = load i32, i32* %11
%135 = icmp eq i32 %133, %134
br i1 %135, label %136, label %160
136: ; preds = %132
%137 = load i32, i32* %14
%138 = icmp sgt i32 %137, 0
br i1 %138, label %139, label %149
139: ; preds = %136
%140 = load float*, float** %13
%141 = load i32, i32* %17
%142 = mul nsw i32 %141, 640
%143 = load i32, i32* %18
%144 = add nsw i32 %142, %143
%145 = sext i32 %144 to i64
%146 = getelementptr inbounds float, float* %140, i64 %145
%147 = load float, float* %146
%148 = fadd float %147, 1.000000e+00
store float %148, float* %146
br label %159
149: ; preds = %136
%150 = load float*, float** %13
%151 = load i32, i32* %17
%152 = mul nsw i32 %151, 640
%153 = load i32, i32* %18
%154 = add nsw i32 %152, %153
%155 = sext i32 %154 to i64
%156 = getelementptr inbounds float, float* %150, i64 %155
%157 = load float, float* %156
%158 = load float*, float** %15
store float %157, float* %158
br label %159
159: ; preds = %149, %139
store i32 1, i32* %8
br label %165
160: ; preds = %132
br label %161
161: ; preds = %160, %83
%162 = load i32, i32* %18
%163 = add nsw i32 %162, 1
store i32 %163, i32* %18
br label %66
164: ; preds = %82, %66
store i32 0, i32* %8
br label %165
165: ; preds = %164, %159, %64, %28
%166 = load i32, i32* %8
ret i32 %166
}

LLVM IR (-O2):
define i32 @word_in_vocabulary(i8* nocapture %0, i32 %1, i32 %2, i8* nocapture %3, float* nocapture %4, i32 %5, float* nocapture writeonly %6) {
%8 = sub nsw i32 %2, %1
%9 = icmp eq i32 %8, 0
%10 = icmp sgt i32 %8, 30
%11 = or i1 %9, %10
br i1 %11, label %77, label %12
12: ; preds = %7
%13 = sext i32 %1 to i64
%14 = getelementptr inbounds i8, i8* %0, i64 %13
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
%17 = add i8 %15, -97
%18 = icmp ult i8 %17, 26
%19 = select i1 %18, i32 -97, i32 -65
%20 = add nsw i32 %19, %16
%21 = icmp sgt i32 %20, 25
br i1 %21, label %77, label %22
22: ; preds = %12
%23 = mul nsw i32 %20, 20480
%24 = sext i32 %8 to i64
%25 = icmp sgt i32 %2, %1
%26 = sext i32 %23 to i64
%27 = sext i32 %2 to i64
br label %28
28: ; preds = %22, %74
%29 = phi i64 [ 0, %22 ], [ %75, %74 ]
%30 = shl nuw nsw i64 %29, 5
%31 = add nsw i64 %30, %26
%32 = getelementptr inbounds i8, i8* %3, i64 %31
%33 = load i8, i8* %32
%34 = icmp eq i8 %33, 0
br i1 %34, label %77, label %35
35: ; preds = %28
%36 = tail call i64 @strlen(i8* %32)
%37 = icmp eq i64 %36, %24
br i1 %37, label %38, label %74
38: ; preds = %35
br i1 %25, label %39, label %60
39: ; preds = %38
%40 = trunc i64 %31 to i32
%41 = sub i32 %40, %1
br label %42
42: ; preds = %39, %55
%43 = phi i64 [ %13, %39 ], [ %56, %55 ]
%44 = getelementptr inbounds i8, i8* %0, i64 %43
%45 = load i8, i8* %44
%46 = sext i8 %45 to i32
%47 = tail call i32 @tolower(i32 %46)
%48 = trunc i64 %43 to i32
%49 = add i32 %41, %48
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds i8, i8* %3, i64 %50
%52 = load i8, i8* %51
%53 = sext i8 %52 to i32
%54 = icmp eq i32 %47, %53
br i1 %54, label %55, label %58
55: ; preds = %42
%56 = add nsw i64 %43, 1
%57 = icmp eq i64 %56, %27
br i1 %57, label %63, label %42
58: ; preds = %42
%59 = trunc i64 %43 to i32
br label %60
60: ; preds = %58, %38
%61 = phi i32 [ %1, %38 ], [ %59, %58 ]
%62 = icmp eq i32 %61, %2
br i1 %62, label %63, label %74
63: ; preds = %60, %55
%64 = trunc i64 %29 to i32
%65 = mul nsw i32 %20, 640
%66 = icmp sgt i32 %5, 0
%67 = add nsw i32 %65, %64
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds float, float* %4, i64 %68
%70 = load float, float* %69
br i1 %66, label %71, label %73
71: ; preds = %63
%72 = fadd float %70, 1.000000e+00
store float %72, float* %69
br label %77
73: ; preds = %63
store float %70, float* %6
br label %77
74: ; preds = %60, %35
%75 = add nuw nsw i64 %29, 1
%76 = icmp eq i64 %75, 640
br i1 %76, label %77, label %28
77: ; preds = %74, %28, %71, %73, %12, %7
%78 = phi i32 [ 0, %7 ], [ 0, %12 ], [ 1, %73 ], [ 1, %71 ], [ 0, %28 ], [ 0, %74 ]
ret i32 %78
}