int check_digit_calc(char *isbn_only_numbers) {
  int i = 0;
  int last_digit = 0;
  for (i = 11; i >= 1; i -= 2) {
    last_digit = last_digit + ((isbn_only_numbers[i] - '0') * 3 +
                               isbn_only_numbers[i - 1] - '0');
  }
  last_digit = last_digit % 10;
  last_digit = 10 - last_digit;
  if (last_digit == isbn_only_numbers[12] - '0') {
    return 1;
  }
  return 0;
}


x86 assembly (clang, -O0):
<check_digit_calc>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0xb,-0x14(%rbp)
cmpl   $0x1,-0x14(%rbp)
jl     1165 <check_digit_calc+0x65>
mov    -0x18(%rbp),%eax
mov    -0x10(%rbp),%rcx
movslq -0x14(%rbp),%rdx
movsbl (%rcx,%rdx,1),%ecx
sub    $0x30,%ecx
imul   $0x3,%ecx,%ecx
mov    -0x10(%rbp),%rdx
mov    -0x14(%rbp),%esi
sub    $0x1,%esi
movslq %esi,%rsi
movsbl (%rdx,%rsi,1),%edx
add    %edx,%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x14(%rbp)
jmp    111d <check_digit_calc+0x1d>
mov    -0x18(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,-0x18(%rbp)
mov    $0xa,%eax
sub    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x10(%rbp),%rcx
movsbl 0xc(%rcx),%ecx
sub    $0x30,%ecx
cmp    %ecx,%eax
jne    11a0 <check_digit_calc+0xa0>
movl   $0x1,-0x4(%rbp)
jmp    11a7 <check_digit_calc+0xa7>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<check_digit_calc>:
movsbl 0xb(%rdi),%eax
lea    (%rax,%rax,2),%eax
movsbl 0xa(%rdi),%ecx
add    %eax,%ecx
movsbl 0x9(%rdi),%eax
lea    (%rax,%rax,2),%eax
add    %ecx,%eax
movsbl 0x8(%rdi),%ecx
add    %eax,%ecx
movsbl 0x7(%rdi),%eax
lea    (%rax,%rax,2),%eax
add    %ecx,%eax
movsbl 0x6(%rdi),%ecx
add    %eax,%ecx
movsbl 0x5(%rdi),%eax
lea    (%rax,%rax,2),%eax
add    %ecx,%eax
movsbl 0x4(%rdi),%ecx
add    %eax,%ecx
movsbl 0x3(%rdi),%eax
lea    (%rax,%rax,2),%eax
add    %ecx,%eax
movsbl 0x2(%rdi),%ecx
add    %eax,%ecx
movsbl 0x1(%rdi),%eax
lea    (%rax,%rax,2),%eax
add    %ecx,%eax
movsbl (%rdi),%ecx
add    %ecx,%eax
add    $0xfffffb80,%eax
movswl %ax,%ecx
imul   $0x6667,%ecx,%ecx
mov    %ecx,%edx
shr    $0x1f,%edx
sar    $0x12,%ecx
add    %edx,%ecx
add    %ecx,%ecx
lea    (%rcx,%rcx,4),%ecx
sub    %eax,%ecx
add    $0xa,%ecx
movswl %cx,%ecx
movsbl 0xc(%rdi),%edx
add    $0xffffffd0,%edx
xor    %eax,%eax
cmp    %ecx,%edx
sete   %al
ret

LLVM IR (-O0):
define i32 @check_digit_calc(i8* %0) {
%2 = alloca i32
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
store i8* %0, i8** %3
store i32 0, i32* %4
store i32 0, i32* %5
store i32 11, i32* %4
br label %6
6: ; preds = %29, %1
%7 = load i32, i32* %4
%8 = icmp sge i32 %7, 1
br i1 %8, label %9, label %32
9: ; preds = %6
%10 = load i32, i32* %5
%11 = load i8*, i8** %3
%12 = load i32, i32* %4
%13 = sext i32 %12 to i64
%14 = getelementptr inbounds i8, i8* %11, i64 %13
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
%17 = sub nsw i32 %16, 48
%18 = mul nsw i32 %17, 3
%19 = load i8*, i8** %3
%20 = load i32, i32* %4
%21 = sub nsw i32 %20, 1
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds i8, i8* %19, i64 %22
%24 = load i8, i8* %23
%25 = sext i8 %24 to i32
%26 = add nsw i32 %18, %25
%27 = sub nsw i32 %26, 48
%28 = add nsw i32 %10, %27
store i32 %28, i32* %5
br label %29
29: ; preds = %9
%30 = load i32, i32* %4
%31 = sub nsw i32 %30, 2
store i32 %31, i32* %4
br label %6
32: ; preds = %6
%33 = load i32, i32* %5
%34 = srem i32 %33, 10
store i32 %34, i32* %5
%35 = load i32, i32* %5
%36 = sub nsw i32 10, %35
store i32 %36, i32* %5
%37 = load i32, i32* %5
%38 = load i8*, i8** %3
%39 = getelementptr inbounds i8, i8* %38, i64 12
%40 = load i8, i8* %39
%41 = sext i8 %40 to i32
%42 = sub nsw i32 %41, 48
%43 = icmp eq i32 %37, %42
br i1 %43, label %44, label %45
44: ; preds = %32
store i32 1, i32* %2
br label %46
45: ; preds = %32
store i32 0, i32* %2
br label %46
46: ; preds = %45, %44
%47 = load i32, i32* %2
ret i32 %47
}

LLVM IR (-O2):
define i32 @check_digit_calc(i8* nocapture %0) {
%2 = getelementptr inbounds i8, i8* %0, i64 11
%3 = load i8, i8* %2
%4 = sext i8 %3 to i16
%5 = mul nsw i16 %4, 3
%6 = getelementptr inbounds i8, i8* %0, i64 10
%7 = load i8, i8* %6
%8 = sext i8 %7 to i16
%9 = add nsw i16 %5, -192
%10 = add nsw i16 %9, %8
%11 = getelementptr inbounds i8, i8* %0, i64 9
%12 = load i8, i8* %11
%13 = sext i8 %12 to i16
%14 = mul nsw i16 %13, 3
%15 = getelementptr inbounds i8, i8* %0, i64 8
%16 = load i8, i8* %15
%17 = sext i8 %16 to i16
%18 = add nsw i16 %10, -192
%19 = add nsw i16 %18, %14
%20 = add nsw i16 %19, %17
%21 = getelementptr inbounds i8, i8* %0, i64 7
%22 = load i8, i8* %21
%23 = sext i8 %22 to i16
%24 = mul nsw i16 %23, 3
%25 = getelementptr inbounds i8, i8* %0, i64 6
%26 = load i8, i8* %25
%27 = sext i8 %26 to i16
%28 = add i16 %20, -192
%29 = add i16 %28, %24
%30 = add i16 %29, %27
%31 = getelementptr inbounds i8, i8* %0, i64 5
%32 = load i8, i8* %31
%33 = sext i8 %32 to i16
%34 = mul nsw i16 %33, 3
%35 = getelementptr inbounds i8, i8* %0, i64 4
%36 = load i8, i8* %35
%37 = sext i8 %36 to i16
%38 = add i16 %30, -192
%39 = add i16 %38, %34
%40 = add i16 %39, %37
%41 = getelementptr inbounds i8, i8* %0, i64 3
%42 = load i8, i8* %41
%43 = sext i8 %42 to i16
%44 = mul nsw i16 %43, 3
%45 = getelementptr inbounds i8, i8* %0, i64 2
%46 = load i8, i8* %45
%47 = sext i8 %46 to i16
%48 = add i16 %40, -192
%49 = add i16 %48, %44
%50 = add i16 %49, %47
%51 = getelementptr inbounds i8, i8* %0, i64 1
%52 = load i8, i8* %51
%53 = sext i8 %52 to i16
%54 = mul nsw i16 %53, 3
%55 = load i8, i8* %0
%56 = sext i8 %55 to i16
%57 = add i16 %50, -192
%58 = add i16 %57, %54
%59 = add i16 %58, %56
%60 = srem i16 %59, 10
%61 = sub nsw i16 10, %60
%62 = sext i16 %61 to i32
%63 = getelementptr inbounds i8, i8* %0, i64 12
%64 = load i8, i8* %63
%65 = sext i8 %64 to i32
%66 = add nsw i32 %65, -48
%67 = icmp eq i32 %66, %62
%68 = zext i1 %67 to i32
ret i32 %68
}