isin(str, words) register char *str, *words;
{
  register char *p;
  register sc, wc;
  p = words;
  while (sc = *str++) {
    if ((wc = *p++) == '\0')
      return (1);
    if (wc == ' ') {
      if (index(".,!?-; \t\n", sc))
        continue;
    } else {
      if (isupper(wc))
        wc = tolower(wc);
      if (isupper(sc))
        sc = tolower(sc);
      if (wc == sc)
        continue;
    }
    str -= p - words - 1;
    p = words;
  }
  if (*p == '\0')
    return (1);
  return (0);
}


x86 assembly (clang, -O0):
<isin>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x24(%rbp)
cmp    $0x0,%eax
je     1237 <isin+0x107>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x28(%rbp)
cmp    $0x0,%eax
jne    1190 <isin+0x60>
movl   $0x1,-0x4(%rbp)
jmp    125a <isin+0x12a>
cmpl   $0x20,-0x28(%rbp)
jne    11bd <isin+0x8d>
mov    -0x24(%rbp),%esi
lea    0xe5c(%rip),%rdi
call   1030 <index@plt>
cmp    $0x0,%rax
je     11b8 <isin+0x88>
jmp    1148 <isin+0x18>
jmp    120b <isin+0xdb>
mov    -0x28(%rbp),%edi
call   1050 <isupper@plt>
cmp    $0x0,%eax
je     11d9 <isin+0xa9>
mov    -0x28(%rbp),%edi
call   1040 <tolower@plt>
mov    %eax,-0x28(%rbp)
mov    -0x24(%rbp),%edi
call   1050 <isupper@plt>
cmp    $0x0,%eax
je     11f5 <isin+0xc5>
mov    -0x24(%rbp),%edi
call   1040 <tolower@plt>
mov    %eax,-0x24(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jne    1206 <isin+0xd6>
jmp    1148 <isin+0x18>
jmp    120b <isin+0xdb>
mov    -0x20(%rbp),%rdx
mov    -0x18(%rbp),%rax
sub    %rax,%rdx
sub    $0x1,%rdx
mov    -0x10(%rbp),%rax
xor    %ecx,%ecx
sub    %rdx,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    1148 <isin+0x18>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    1253 <isin+0x123>
movl   $0x1,-0x4(%rbp)
jmp    125a <isin+0x12a>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<isin>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r15
mov    (%rdi),%al
test   %al,%al
je     11d5 <isin+0xa5>
mov    %rdi,%r12
lea    0x1(%r15),%r13
mov    %r15,%r14
jmp    1175 <isin+0x45>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r13,%rax
sub    %r14,%rax
add    %rax,%r12
mov    %r15,%r14
movzbl (%r12),%eax
test   %al,%al
je     11d8 <isin+0xa8>
add    $0x1,%r12
movsbl %al,%ebp
movsbl (%r14),%ebx
add    $0x1,%r14
cmp    $0x20,%ebx
je     11c0 <isin+0x90>
test   %bl,%bl
je     11e3 <isin+0xb3>
mov    %ebx,%edi
call   1050 <isupper@plt>
test   %eax,%eax
je     11a1 <isin+0x71>
mov    %ebx,%edi
call   1040 <tolower@plt>
mov    %eax,%ebx
mov    %ebp,%edi
call   1050 <isupper@plt>
test   %eax,%eax
je     11b5 <isin+0x85>
mov    %ebp,%edi
call   1040 <tolower@plt>
mov    %eax,%ebp
cmp    %ebp,%ebx
jne    1160 <isin+0x30>
jmp    116c <isin+0x3c>
nopl   0x0(%rax,%rax,1)
lea    0xe39(%rip),%rdi
mov    %ebp,%esi
call   1030 <index@plt>
test   %rax,%rax
jne    116c <isin+0x3c>
jmp    1160 <isin+0x30>
mov    %r15,%r14
xor    %eax,%eax
cmpb   $0x0,(%r14)
sete   %al
jmp    11e8 <isin+0xb8>
mov    $0x1,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [10 x i8] c".,!?-; \09\0A\00"
define i32 @isin(i8* %0, i8* %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
store i8* %0, i8** %4
store i8* %1, i8** %5
%9 = load i8*, i8** %5
store i8* %9, i8** %6
br label %10
10: ; preds = %52, %50, %30, %2
%11 = load i8*, i8** %4
%12 = getelementptr inbounds i8, i8* %11, i32 1
store i8* %12, i8** %4
%13 = load i8, i8* %11
%14 = sext i8 %13 to i32
store i32 %14, i32* %7
%15 = icmp ne i32 %14, 0
br i1 %15, label %16, label %63
16: ; preds = %10
%17 = load i8*, i8** %6
%18 = getelementptr inbounds i8, i8* %17, i32 1
store i8* %18, i8** %6
%19 = load i8, i8* %17
%20 = sext i8 %19 to i32
store i32 %20, i32* %8
%21 = icmp eq i32 %20, 0
br i1 %21, label %22, label %23
22: ; preds = %16
store i32 1, i32* %3
br label %70
23: ; preds = %16
%24 = load i32, i32* %8
%25 = icmp eq i32 %24, 32
br i1 %25, label %26, label %32
26: ; preds = %23
%27 = load i32, i32* %7
%28 = call i8* @index(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str, i64 0, i64 0), i32 %27)
%29 = icmp ne i8* %28, null
br i1 %29, label %30, label %31
30: ; preds = %26
br label %10
31: ; preds = %26
br label %52
32: ; preds = %23
%33 = load i32, i32* %8
%34 = call i32 @isupper(i32 %33)
%35 = icmp ne i32 %34, 0
br i1 %35, label %36, label %39
36: ; preds = %32
%37 = load i32, i32* %8
%38 = call i32 @tolower(i32 %37)
store i32 %38, i32* %8
br label %39
39: ; preds = %36, %32
%40 = load i32, i32* %7
%41 = call i32 @isupper(i32 %40)
%42 = icmp ne i32 %41, 0
br i1 %42, label %43, label %46
43: ; preds = %39
%44 = load i32, i32* %7
%45 = call i32 @tolower(i32 %44)
store i32 %45, i32* %7
br label %46
46: ; preds = %43, %39
%47 = load i32, i32* %8
%48 = load i32, i32* %7
%49 = icmp eq i32 %47, %48
br i1 %49, label %50, label %51
50: ; preds = %46
br label %10
51: ; preds = %46
br label %52
52: ; preds = %51, %31
%53 = load i8*, i8** %6
%54 = load i8*, i8** %5
%55 = ptrtoint i8* %53 to i64
%56 = ptrtoint i8* %54 to i64
%57 = sub i64 %55, %56
%58 = sub nsw i64 %57, 1
%59 = load i8*, i8** %4
%60 = sub i64 0, %58
%61 = getelementptr inbounds i8, i8* %59, i64 %60
store i8* %61, i8** %4
%62 = load i8*, i8** %5
store i8* %62, i8** %6
br label %10
63: ; preds = %10
%64 = load i8*, i8** %6
%65 = load i8, i8* %64
%66 = sext i8 %65 to i32
%67 = icmp eq i32 %66, 0
br i1 %67, label %68, label %69
68: ; preds = %63
store i32 1, i32* %3
br label %70
69: ; preds = %63
store i32 0, i32* %3
br label %70
70: ; preds = %69, %68, %22
%71 = load i32, i32* %3
ret i32 %71
}

LLVM IR (-O2):
@.str = [10 x i8] c".,!?-; \09\0A\00"
define i32 @isin(i8* nocapture %0, i8* %1) {
%3 = load i8, i8* %0
%4 = icmp eq i8 %3, 0
br i1 %4, label %43, label %5
5: ; preds = %2
%6 = ptrtoint i8* %1 to i64
%7 = add i64 %6, 1
br label %8
8: ; preds = %5, %38
%9 = phi i8 [ %3, %5 ], [ %41, %38 ]
%10 = phi i8* [ %0, %5 ], [ %39, %38 ]
%11 = phi i8* [ %1, %5 ], [ %40, %38 ]
%12 = getelementptr inbounds i8, i8* %10, i64 1
%13 = sext i8 %9 to i32
%14 = getelementptr inbounds i8, i8* %11, i64 1
%15 = load i8, i8* %11
%16 = sext i8 %15 to i32
switch i8 %15, label %20 [
i8 0, label %48
i8 32, label %17
]
17: ; preds = %8
%18 = tail call i8* @index(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str, i64 0, i64 0), i32 %13)
%19 = icmp eq i8* %18, null
br i1 %19, label %34, label %38
20: ; preds = %8
%21 = tail call i32 @isupper(i32 %16)
%22 = icmp eq i32 %21, 0
br i1 %22, label %25, label %23
23: ; preds = %20
%24 = tail call i32 @tolower(i32 %16)
br label %25
25: ; preds = %23, %20
%26 = phi i32 [ %24, %23 ], [ %16, %20 ]
%27 = tail call i32 @isupper(i32 %13)
%28 = icmp eq i32 %27, 0
br i1 %28, label %31, label %29
29: ; preds = %25
%30 = tail call i32 @tolower(i32 %13)
br label %31
31: ; preds = %29, %25
%32 = phi i32 [ %30, %29 ], [ %13, %25 ]
%33 = icmp eq i32 %26, %32
br i1 %33, label %38, label %34
34: ; preds = %31, %17
%35 = ptrtoint i8* %14 to i64
%36 = sub i64 %7, %35
%37 = getelementptr inbounds i8, i8* %12, i64 %36
br label %38
38: ; preds = %34, %17, %31
%39 = phi i8* [ %12, %17 ], [ %37, %34 ], [ %12, %31 ]
%40 = phi i8* [ %14, %17 ], [ %1, %34 ], [ %14, %31 ]
%41 = load i8, i8* %39
%42 = icmp eq i8 %41, 0
br i1 %42, label %43, label %8
43: ; preds = %38, %2
%44 = phi i8* [ %1, %2 ], [ %40, %38 ]
%45 = load i8, i8* %44
%46 = icmp eq i8 %45, 0
%47 = zext i1 %46 to i32
br label %48
48: ; preds = %8, %43
%49 = phi i32 [ %47, %43 ], [ 1, %8 ]
ret i32 %49
}