int is_isbn(int num[]) {
  int sum = 0, is_even = 0;
  for (int i = 0; i < 4; i++) {
    int tmp = num[i];
    while (tmp != 0) {
      sum += tmp % 10 * (is_even == 1 ? 3 : 1);
      is_even = !is_even;
      tmp /= 10;
    }
  }
  return ((10 - (sum % 10) == num[4]) ? 1 : 0);
}


x86 assembly (clang, -O0):
<is_isbn>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movl   $0x0,-0xc(%rbp)
movl   $0x0,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
cmpl   $0x4,-0x14(%rbp)
jge    119f <is_isbn+0x9f>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     118c <is_isbn+0x8c>
mov    -0x18(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
mov    -0x10(%rbp),%esi
mov    $0x1,%ecx
mov    $0x3,%edx
cmp    $0x1,%esi
cmove  %edx,%ecx
imul   %ecx,%eax
add    -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
cmpl   $0x0,-0x10(%rbp)
setne  %al
xor    $0xff,%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x10(%rbp)
mov    -0x18(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %eax,-0x18(%rbp)
jmp    1135 <is_isbn+0x35>
jmp    1191 <is_isbn+0x91>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    111d <is_isbn+0x1d>
mov    -0xc(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
mov    $0xa,%edx
sub    %eax,%edx
mov    -0x8(%rbp),%rax
mov    0x10(%rax),%esi
xor    %eax,%eax
mov    $0x1,%ecx
cmp    %esi,%edx
cmove  %ecx,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<is_isbn>:
mov    (%rdi),%edx
test   %edx,%edx
je     1158 <is_isbn+0x58>
xor    %ecx,%ecx
xor    %r9d,%r9d
nopl   0x0(%rax,%rax,1)
xor    %esi,%esi
cmp    $0x1,%ecx
sete   %sil
lea    (%rsi,%rsi,1),%r8d
add    $0x1,%r8d
movslq %edx,%rsi
imul   $0x66666667,%rsi,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x22,%rdx
add    %eax,%edx
lea    (%rdx,%rdx,1),%eax
lea    (%rax,%rax,4),%r10d
mov    %esi,%eax
sub    %r10d,%eax
imul   %r8d,%eax
add    %eax,%r9d
xor    $0x1,%ecx
add    $0x9,%esi
cmp    $0x12,%esi
ja     1110 <is_isbn+0x10>
jmp    115d <is_isbn+0x5d>
xor    %r9d,%r9d
xor    %ecx,%ecx
mov    0x4(%rdi),%esi
test   %esi,%esi
je     11bd <is_isbn+0xbd>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
xor    %eax,%eax
cmp    $0x1,%ecx
sete   %al
lea    (%rax,%rax,1),%r8d
add    $0x1,%r8d
movslq %esi,%rax
imul   $0x66666667,%rax,%rsi
mov    %rsi,%rdx
shr    $0x3f,%rdx
sar    $0x22,%rsi
add    %edx,%esi
lea    (%rsi,%rsi,1),%edx
lea    (%rdx,%rdx,4),%r10d
mov    %eax,%edx
sub    %r10d,%edx
imul   %r8d,%edx
add    %edx,%r9d
xor    %edx,%edx
test   %ecx,%ecx
sete   %dl
add    $0x9,%eax
mov    %edx,%ecx
cmp    $0x12,%eax
ja     1170 <is_isbn+0x70>
jmp    11bf <is_isbn+0xbf>
mov    %ecx,%edx
mov    0x8(%rdi),%esi
test   %esi,%esi
je     121d <is_isbn+0x11d>
cs nopw 0x0(%rax,%rax,1)
xor    %eax,%eax
cmp    $0x1,%edx
sete   %al
lea    (%rax,%rax,1),%r8d
add    $0x1,%r8d
movslq %esi,%rax
imul   $0x66666667,%rax,%rsi
mov    %rsi,%rcx
shr    $0x3f,%rcx
sar    $0x22,%rsi
add    %ecx,%esi
lea    (%rsi,%rsi,1),%ecx
lea    (%rcx,%rcx,4),%r10d
mov    %eax,%ecx
sub    %r10d,%ecx
imul   %r8d,%ecx
add    %ecx,%r9d
xor    %ecx,%ecx
test   %edx,%edx
sete   %cl
add    $0x9,%eax
mov    %ecx,%edx
cmp    $0x12,%eax
ja     11d0 <is_isbn+0xd0>
jmp    121f <is_isbn+0x11f>
mov    %edx,%ecx
mov    0xc(%rdi),%edx
test   %edx,%edx
je     127b <is_isbn+0x17b>
cs nopw 0x0(%rax,%rax,1)
xor    %eax,%eax
cmp    $0x1,%ecx
sete   %al
lea    (%rax,%rax,1),%r8d
add    $0x1,%r8d
movslq %edx,%rsi
imul   $0x66666667,%rsi,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x22,%rdx
add    %eax,%edx
lea    (%rdx,%rdx,1),%eax
lea    (%rax,%rax,4),%r10d
mov    %esi,%eax
sub    %r10d,%eax
imul   %r8d,%eax
add    %eax,%r9d
xor    %eax,%eax
test   %ecx,%ecx
sete   %al
add    $0x9,%esi
mov    %eax,%ecx
cmp    $0x12,%esi
ja     1230 <is_isbn+0x130>
movslq %r9d,%rax
imul   $0x66666667,%rax,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
sar    $0x22,%rcx
add    %edx,%ecx
add    %ecx,%ecx
lea    (%rcx,%rcx,4),%ecx
sub    %eax,%ecx
add    $0xa,%ecx
xor    %eax,%eax
cmp    0x10(%rdi),%ecx
sete   %al
ret

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

LLVM IR (-O2):
define i32 @is_isbn(i32* nocapture %0) {
%2 = load i32, i32* %0
%3 = icmp eq i32 %2, 0
br i1 %3, label %17, label %4
4: ; preds = %1, %4
%5 = phi i32 [ %14, %4 ], [ %2, %1 ]
%6 = phi i32 [ %13, %4 ], [ 0, %1 ]
%7 = phi i32 [ %12, %4 ], [ 0, %1 ]
%8 = srem i32 %5, 10
%9 = icmp eq i32 %6, 1
%10 = select i1 %9, i32 3, i32 1
%11 = mul nsw i32 %8, %10
%12 = add nsw i32 %11, %7
%13 = xor i32 %6, 1
%14 = sdiv i32 %5, 10
%15 = add i32 %5, 9
%16 = icmp ult i32 %15, 19
br i1 %16, label %17, label %4
17: ; preds = %4, %1
%18 = phi i32 [ 0, %1 ], [ %12, %4 ]
%19 = phi i32 [ 0, %1 ], [ %13, %4 ]
%20 = getelementptr inbounds i32, i32* %0, i64 1
%21 = load i32, i32* %20
%22 = icmp eq i32 %21, 0
br i1 %22, label %37, label %23
23: ; preds = %17, %23
%24 = phi i32 [ %34, %23 ], [ %21, %17 ]
%25 = phi i32 [ %33, %23 ], [ %19, %17 ]
%26 = phi i32 [ %31, %23 ], [ %18, %17 ]
%27 = srem i32 %24, 10
%28 = icmp eq i32 %25, 1
%29 = select i1 %28, i32 3, i32 1
%30 = mul nsw i32 %27, %29
%31 = add nsw i32 %30, %26
%32 = icmp eq i32 %25, 0
%33 = zext i1 %32 to i32
%34 = sdiv i32 %24, 10
%35 = add i32 %24, 9
%36 = icmp ult i32 %35, 19
br i1 %36, label %37, label %23
37: ; preds = %23, %17
%38 = phi i32 [ %18, %17 ], [ %31, %23 ]
%39 = phi i32 [ %19, %17 ], [ %33, %23 ]
%40 = getelementptr inbounds i32, i32* %0, i64 2
%41 = load i32, i32* %40
%42 = icmp eq i32 %41, 0
br i1 %42, label %57, label %43
43: ; preds = %37, %43
%44 = phi i32 [ %54, %43 ], [ %41, %37 ]
%45 = phi i32 [ %53, %43 ], [ %39, %37 ]
%46 = phi i32 [ %51, %43 ], [ %38, %37 ]
%47 = srem i32 %44, 10
%48 = icmp eq i32 %45, 1
%49 = select i1 %48, i32 3, i32 1
%50 = mul nsw i32 %47, %49
%51 = add nsw i32 %50, %46
%52 = icmp eq i32 %45, 0
%53 = zext i1 %52 to i32
%54 = sdiv i32 %44, 10
%55 = add i32 %44, 9
%56 = icmp ult i32 %55, 19
br i1 %56, label %57, label %43
57: ; preds = %43, %37
%58 = phi i32 [ %38, %37 ], [ %51, %43 ]
%59 = phi i32 [ %39, %37 ], [ %53, %43 ]
%60 = getelementptr inbounds i32, i32* %0, i64 3
%61 = load i32, i32* %60
%62 = icmp eq i32 %61, 0
br i1 %62, label %77, label %63
63: ; preds = %57, %63
%64 = phi i32 [ %74, %63 ], [ %61, %57 ]
%65 = phi i32 [ %73, %63 ], [ %59, %57 ]
%66 = phi i32 [ %71, %63 ], [ %58, %57 ]
%67 = srem i32 %64, 10
%68 = icmp eq i32 %65, 1
%69 = select i1 %68, i32 3, i32 1
%70 = mul nsw i32 %67, %69
%71 = add nsw i32 %70, %66
%72 = icmp eq i32 %65, 0
%73 = zext i1 %72 to i32
%74 = sdiv i32 %64, 10
%75 = add i32 %64, 9
%76 = icmp ult i32 %75, 19
br i1 %76, label %77, label %63
77: ; preds = %63, %57
%78 = phi i32 [ %58, %57 ], [ %71, %63 ]
%79 = srem i32 %78, 10
%80 = sub nsw i32 10, %79
%81 = getelementptr inbounds i32, i32* %0, i64 4
%82 = load i32, i32* %81
%83 = icmp eq i32 %80, %82
%84 = zext i1 %83 to i32
ret i32 %84
}