#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int array_sum(int *, int);
int *get_array(char *, int);
scalar_t__ strlen(char *);
int luhn_check_sum(char *str) {
  int len = (int)strlen(str);
  int *arr = get_array(str, len);
  for (int i = len - 1; i >= 0; i -= 2) {
    int multiple = arr[i] * 2;
    if (multiple > 9) {
      multiple -= 9;
    }
    arr[i] = multiple;
  }
  int sum = array_sum(arr, len);
  return sum * 9 % 10;
}


x86 assembly (clang, -O0):
<luhn_check_sum>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0xc(%rbp),%esi
call   1040 <get_array@plt>
mov    %rax,-0x18(%rbp)
mov    -0xc(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jl     11ab <luhn_check_sum+0x7b>
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
shl    $0x1,%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x9,-0x20(%rbp)
jle    118f <luhn_check_sum+0x5f>
mov    -0x20(%rbp),%eax
sub    $0x9,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x1c(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x1c(%rbp)
jmp    1161 <luhn_check_sum+0x31>
mov    -0x18(%rbp),%rdi
mov    -0xc(%rbp),%esi
call   1050 <array_sum@plt>
mov    %eax,-0x24(%rbp)
imul   $0x9,-0x24(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<luhn_check_sum>:
push   %r14
push   %rbx
push   %rax
mov    %rdi,%rbx
call   1030 <strlen@plt>
mov    %rax,%r14
mov    %rbx,%rdi
mov    %r14d,%esi
call   1040 <get_array@plt>
test   %r14d,%r14d
jle    117d <luhn_check_sum+0x4d>
lea    -0x1(%r14),%edx
lea    0x1(%r14),%ecx
lea    (%rax,%rdx,4),%rdx
nopl   0x0(%rax,%rax,1)
mov    (%rdx),%esi
lea    (%rsi,%rsi,1),%edi
cmp    $0x5,%esi
lea    -0x9(%rsi,%rsi,1),%esi
cmovl  %edi,%esi
mov    %esi,(%rdx)
add    $0xfffffffe,%ecx
add    $0xfffffffffffffff8,%rdx
cmp    $0x1,%ecx
ja     1160 <luhn_check_sum+0x30>
mov    %rax,%rdi
mov    %r14d,%esi
call   1050 <array_sum@plt>
lea    (%rax,%rax,8),%eax
cltq
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    %ecx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
define i32 @luhn_check_sum(i8* %0) {
%2 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%3 = trunc i64 %2 to i32
%4 = tail call i32* @get_array(i8* %0, i32 %3)
%5 = icmp sgt i32 %3, 0
br i1 %5, label %6, label %8
6: ; preds = %1
%7 = add nsw i32 %3, -1
br label %12
8: ; preds = %12, %1
%9 = tail call i32 @array_sum(i32* %4, i32 %3)
%10 = mul nsw i32 %9, 9
%11 = srem i32 %10, 10
ret i32 %11
12: ; preds = %6, %12
%13 = phi i32 [ %21, %12 ], [ %7, %6 ]
%14 = zext i32 %13 to i64
%15 = getelementptr inbounds i32, i32* %4, i64 %14
%16 = load i32, i32* %15
%17 = shl nsw i32 %16, 1
%18 = icmp sgt i32 %16, 4
%19 = add nsw i32 %17, -9
%20 = select i1 %18, i32 %19, i32 %17
store i32 %20, i32* %15
%21 = add nsw i32 %13, -2
%22 = icmp ugt i32 %13, 1
br i1 %22, label %12, label %8
}