r_any(chr, stg) char chr, *stg;
{
  register char c, *s;
  c = chr;
  for (s = stg; (*s) && (*s != ',') && (*s != '\n');)
    if (*s++ == c)
      return (1);
  return (0);
}


x86 assembly (clang, -O0):
<r_any>:
push   %rbp
mov    %rsp,%rbp
mov    %dil,%al
mov    %al,-0x5(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x5(%rbp),%al
mov    %al,-0x11(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x21(%rbp)
je     1156 <r_any+0x56>
mov    -0x20(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x2c,%ecx
mov    %al,-0x21(%rbp)
je     1156 <r_any+0x56>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xa,%eax
setne  %al
mov    %al,-0x21(%rbp)
mov    -0x21(%rbp),%al
test   $0x1,%al
jne    1166 <r_any+0x66>
jmp    1195 <r_any+0x95>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
movsbl (%rax),%eax
movsbl -0x11(%rbp),%ecx
cmp    %ecx,%eax
jne    1190 <r_any+0x90>
movl   $0x1,-0x4(%rbp)
jmp    119c <r_any+0x9c>
jmp    111c <r_any+0x1c>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<r_any>:
movsbl %dil,%eax
movabs $0x100000000401,%rcx
jmp    111b <r_any+0x1b>
movsbl %dl,%edx
add    $0x1,%rsi
cmp    %edx,%eax
je     112d <r_any+0x2d>
movzbl (%rsi),%edx
cmp    $0x2c,%rdx
ja     1110 <r_any+0x10>
bt     %rdx,%rcx
jae    1110 <r_any+0x10>
xor    %eax,%eax
ret
mov    $0x1,%eax
ret

LLVM IR (-O0):
define i32 @r_any(i32 %0, i8* %1) {
%3 = alloca i32
%4 = alloca i8
%5 = alloca i8*
%6 = alloca i8
%7 = alloca i8*
%8 = trunc i32 %0 to i8
store i8 %8, i8* %4
store i8* %1, i8** %5
%9 = load i8, i8* %4
store i8 %9, i8* %6
%10 = load i8*, i8** %5
store i8* %10, i8** %7
br label %11
11: ; preds = %37, %2
%12 = load i8*, i8** %7
%13 = load i8, i8* %12
%14 = sext i8 %13 to i32
%15 = icmp ne i32 %14, 0
br i1 %15, label %16, label %26
16: ; preds = %11
%17 = load i8*, i8** %7
%18 = load i8, i8* %17
%19 = sext i8 %18 to i32
%20 = icmp ne i32 %19, 44
br i1 %20, label %21, label %26
21: ; preds = %16
%22 = load i8*, i8** %7
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = icmp ne i32 %24, 10
br label %26
26: ; preds = %21, %16, %11
%27 = phi i1 [ false, %16 ], [ false, %11 ], [ %25, %21 ]
br i1 %27, label %28, label %38
28: ; preds = %26
%29 = load i8*, i8** %7
%30 = getelementptr inbounds i8, i8* %29, i32 1
store i8* %30, i8** %7
%31 = load i8, i8* %29
%32 = sext i8 %31 to i32
%33 = load i8, i8* %6
%34 = sext i8 %33 to i32
%35 = icmp eq i32 %32, %34
br i1 %35, label %36, label %37
36: ; preds = %28
store i32 1, i32* %3
br label %39
37: ; preds = %28
br label %11
38: ; preds = %26
store i32 0, i32* %3
br label %39
39: ; preds = %38, %36
%40 = load i32, i32* %3
ret i32 %40
}

LLVM IR (-O2):
define i32 @r_any(i32 %0, i8* nocapture %1) {
%3 = shl i32 %0, 24
%4 = ashr exact i32 %3, 24
br label %5
5: ; preds = %8, %2
%6 = phi i8* [ %1, %2 ], [ %10, %8 ]
%7 = load i8, i8* %6
switch i8 %7, label %8 [
i8 0, label %12
i8 44, label %12
i8 10, label %12
]
8: ; preds = %5
%9 = sext i8 %7 to i32
%10 = getelementptr inbounds i8, i8* %6, i64 1
%11 = icmp eq i32 %4, %9
br i1 %11, label %12, label %5
12: ; preds = %5, %5, %5, %8
%13 = phi i32 [ 1, %8 ], [ 0, %5 ], [ 0, %5 ], [ 0, %5 ]
ret i32 %13
}