#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 /*<<< orphan*/ printf(char *, int, ...);
int main() {
  int d[10000];
  for (int n = 1; n < 10000; n++) {
    for (int i = 1; i <= n / 2; i++) {
      if (n % i == 0) {
        d[n] += i;
      }
    }
  }
  int sum = 0;
  for (int n = 1; n < 10000; n++) {
    if (d[n] != n && d[n] >= 1 && d[n] < 10000 && d[d[n]] == n) {
      printf("d(%d) = %d, d(%d) = %d\n", n, d[n], d[n], d[d[n]]);
      sum += n;
      sum += d[n];
    }
  }
  sum /= 2;
  printf("%d\n", sum);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x9c70,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x1,-0x9c54(%rbp)
cmpl   $0x2710,-0x9c54(%rbp)
jge    11d3 <main+0xc3>
movl   $0x1,-0x9c58(%rbp)
mov    -0x9c58(%rbp),%eax
mov    %eax,-0x9c64(%rbp)
mov    -0x9c54(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x9c64(%rbp),%eax
cmp    %ecx,%eax
jg     11ba <main+0xaa>
mov    -0x9c54(%rbp),%eax
cltd
idivl  -0x9c58(%rbp)
cmp    $0x0,%edx
jne    11a1 <main+0x91>
mov    -0x9c58(%rbp),%ecx
movslq -0x9c54(%rbp),%rax
add    -0x9c50(%rbp,%rax,4),%ecx
mov    %ecx,-0x9c50(%rbp,%rax,4)
jmp    11a6 <main+0x96>
mov    -0x9c58(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x9c58(%rbp)
jmp    1146 <main+0x36>
jmp    11bf <main+0xaf>
mov    -0x9c54(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x9c54(%rbp)
jmp    112c <main+0x1c>
movl   $0x0,-0x9c5c(%rbp)
movl   $0x1,-0x9c60(%rbp)
cmpl   $0x2710,-0x9c60(%rbp)
jge    12ec <main+0x1dc>
movslq -0x9c60(%rbp),%rax
mov    -0x9c50(%rbp,%rax,4),%eax
cmp    -0x9c60(%rbp),%eax
je     12d3 <main+0x1c3>
movslq -0x9c60(%rbp),%rax
cmpl   $0x1,-0x9c50(%rbp,%rax,4)
01
jl     12d3 <main+0x1c3>
movslq -0x9c60(%rbp),%rax
cmpl   $0x2710,-0x9c50(%rbp,%rax,4)
jge    12d3 <main+0x1c3>
movslq -0x9c60(%rbp),%rax
movslq -0x9c50(%rbp,%rax,4),%rax
ff
mov    -0x9c50(%rbp,%rax,4),%eax
cmp    -0x9c60(%rbp),%eax
jne    12d3 <main+0x1c3>
mov    -0x9c60(%rbp),%esi
movslq -0x9c60(%rbp),%rax
mov    -0x9c50(%rbp,%rax,4),%edx
movslq -0x9c60(%rbp),%rax
mov    -0x9c50(%rbp,%rax,4),%ecx
movslq -0x9c60(%rbp),%rax
movslq -0x9c50(%rbp,%rax,4),%rax
ff
mov    -0x9c50(%rbp,%rax,4),%r8d
ff
lea    0xd60(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0x9c60(%rbp),%eax
add    -0x9c5c(%rbp),%eax
mov    %eax,-0x9c5c(%rbp)
movslq -0x9c60(%rbp),%rax
mov    -0x9c50(%rbp,%rax,4),%eax
add    -0x9c5c(%rbp),%eax
mov    %eax,-0x9c5c(%rbp)
jmp    12d8 <main+0x1c8>
mov    -0x9c60(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x9c60(%rbp)
jmp    11e7 <main+0xd7>
mov    -0x9c5c(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x9c5c(%rbp)
mov    -0x9c5c(%rbp),%esi
lea    0xd07(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x9c70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0x9c48,%rsp
mov    $0x1,%ecx
xor    %r9d,%r9d
mov    $0x1,%r8d
jmp    1141 <main+0x31>
nopl   (%rax)
add    $0x1,%rcx
cmp    $0x2710,%rcx
je     11d9 <main+0xc9>
mov    %ecx,%ebx
shr    %ebx
cmp    $0x2,%ebx
cmovb  %r8d,%ebx
add    $0x1,%r9d
mov    %r9d,%esi
shr    %esi
cmp    $0x2,%esi
cmovb  %r8d,%esi
cmp    $0x2,%rcx
jb     1130 <main+0x20>
mov    $0x1,%edi
cmp    $0x4,%r9d
jae    1190 <main+0x80>
test   $0x1,%sil
je     1130 <main+0x20>
mov    %ecx,%eax
xor    %edx,%edx
div    %edi
test   %edx,%edx
jne    1130 <main+0x20>
add    %edi,(%rsp,%rcx,4)
jmp    1130 <main+0x20>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
and    $0xfffffffe,%ebx
neg    %ebx
mov    $0x1,%ebp
jmp    11b2 <main+0xa2>
nopl   0x0(%rax)
mov    %ebp,%edi
add    $0x2,%edi
lea    (%rbx,%rbp,1),%eax
add    $0x2,%eax
mov    %edi,%ebp
cmp    $0x1,%eax
je     116d <main+0x5d>
mov    %ecx,%eax
xor    %edx,%edx
div    %ebp
test   %edx,%edx
jne    11bf <main+0xaf>
add    %ebp,(%rsp,%rcx,4)
lea    0x1(%rbp),%edi
mov    %ecx,%eax
xor    %edx,%edx
div    %edi
test   %edx,%edx
jne    11a0 <main+0x90>
mov    (%rsp,%rcx,4),%eax
add    %ebp,%eax
add    $0x1,%eax
mov    %eax,(%rsp,%rcx,4)
jmp    11a0 <main+0x90>
mov    $0x1,%ebx
lea    0xe1b(%rip),%r14
xor    %ebp,%ebp
jmp    11fd <main+0xed>
nopl   0x0(%rax)
add    $0x1,%rbx
cmp    $0x2710,%rbx
je     1233 <main+0x123>
mov    (%rsp,%rbx,4),%r15d
cmp    %r15,%rbx
je     11f0 <main+0xe0>
lea    -0x1(%r15),%eax
cmp    $0x270e,%eax
ja     11f0 <main+0xe0>
mov    (%rsp,%r15,4),%r8d
cmp    %r8,%rbx
jne    11f0 <main+0xe0>
mov    %r14,%rdi
mov    %ebx,%esi
mov    %r15d,%edx
mov    %r15d,%ecx
xor    %eax,%eax
call   1030 <printf@plt>
add    %r15d,%ebp
add    %ebx,%ebp
jmp    11f0 <main+0xe0>
mov    %ebp,%esi
shr    $0x1f,%esi
add    %ebp,%esi
sar    %esi
lea    0xdd1(%rip),%rdi
xor    %eax,%eax
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x9c48,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [24 x i8] c"d(%d) = %d, d(%d) = %d\0A\00"
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [10000 x i32]
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
store i32 0, i32* %1
store i32 1, i32* %3
br label %7
7: ; preds = %33, %0
%8 = load i32, i32* %3
%9 = icmp slt i32 %8, 10000
br i1 %9, label %10, label %36
10: ; preds = %7
store i32 1, i32* %4
br label %11
11: ; preds = %29, %10
%12 = load i32, i32* %4
%13 = load i32, i32* %3
%14 = sdiv i32 %13, 2
%15 = icmp sle i32 %12, %14
br i1 %15, label %16, label %32
16: ; preds = %11
%17 = load i32, i32* %3
%18 = load i32, i32* %4
%19 = srem i32 %17, %18
%20 = icmp eq i32 %19, 0
br i1 %20, label %21, label %28
21: ; preds = %16
%22 = load i32, i32* %4
%23 = load i32, i32* %3
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %24
%26 = load i32, i32* %25
%27 = add nsw i32 %26, %22
store i32 %27, i32* %25
br label %28
28: ; preds = %21, %16
br label %29
29: ; preds = %28
%30 = load i32, i32* %4
%31 = add nsw i32 %30, 1
store i32 %31, i32* %4
br label %11
32: ; preds = %11
br label %33
33: ; preds = %32
%34 = load i32, i32* %3
%35 = add nsw i32 %34, 1
store i32 %35, i32* %3
br label %7
36: ; preds = %7
store i32 0, i32* %5
store i32 1, i32* %6
br label %37
37: ; preds = %97, %36
%38 = load i32, i32* %6
%39 = icmp slt i32 %38, 10000
br i1 %39, label %40, label %100
40: ; preds = %37
%41 = load i32, i32* %6
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %42
%44 = load i32, i32* %43
%45 = load i32, i32* %6
%46 = icmp ne i32 %44, %45
br i1 %46, label %47, label %96
47: ; preds = %40
%48 = load i32, i32* %6
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %49
%51 = load i32, i32* %50
%52 = icmp sge i32 %51, 1
br i1 %52, label %53, label %96
53: ; preds = %47
%54 = load i32, i32* %6
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %55
%57 = load i32, i32* %56
%58 = icmp slt i32 %57, 10000
br i1 %58, label %59, label %96
59: ; preds = %53
%60 = load i32, i32* %6
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %61
%63 = load i32, i32* %62
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %64
%66 = load i32, i32* %65
%67 = load i32, i32* %6
%68 = icmp eq i32 %66, %67
br i1 %68, label %69, label %96
69: ; preds = %59
%70 = load i32, i32* %6
%71 = load i32, i32* %6
%72 = sext i32 %71 to i64
%73 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %72
%74 = load i32, i32* %73
%75 = load i32, i32* %6
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %76
%78 = load i32, i32* %77
%79 = load i32, i32* %6
%80 = sext i32 %79 to i64
%81 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %80
%82 = load i32, i32* %81
%83 = sext i32 %82 to i64
%84 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %83
%85 = load i32, i32* %84
%86 = call i32 (i8*, i32, ...) @printf(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str, i64 0, i64 0), i32 %70, i32 %74, i32 %78, i32 %85)
%87 = load i32, i32* %6
%88 = load i32, i32* %5
%89 = add nsw i32 %88, %87
store i32 %89, i32* %5
%90 = load i32, i32* %6
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %91
%93 = load i32, i32* %92
%94 = load i32, i32* %5
%95 = add nsw i32 %94, %93
store i32 %95, i32* %5
br label %96
96: ; preds = %69, %59, %53, %47, %40
br label %97
97: ; preds = %96
%98 = load i32, i32* %6
%99 = add nsw i32 %98, 1
store i32 %99, i32* %6
br label %37
100: ; preds = %37
%101 = load i32, i32* %5
%102 = sdiv i32 %101, 2
store i32 %102, i32* %5
%103 = load i32, i32* %5
%104 = call i32 (i8*, i32, ...) @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %103)
ret i32 0
}

LLVM IR (-O2):
@.str = [24 x i8] c"d(%d) = %d, d(%d) = %d\0A\00"
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca [10000 x i32]
%2 = bitcast [10000 x i32]* %1 to i8*
br label %3
3: ; preds = %0, %26
%4 = phi i32 [ 0, %0 ], [ %29, %26 ]
%5 = phi i64 [ 1, %0 ], [ %27, %26 ]
%6 = add i32 %4, 1
%7 = lshr i32 %6, 1
%8 = call i32 @llvm.umax.i32(i32 %7, i32 1)
%9 = trunc i64 %5 to i32
%10 = icmp ult i64 %5, 2
br i1 %10, label %26, label %11
11: ; preds = %3
%12 = getelementptr inbounds [10000 x i32], [10000 x i32]* %1, i64 0, i64 %5
%13 = and i32 %8, 1
%14 = icmp ult i32 %6, 4
br i1 %14, label %17, label %15
15: ; preds = %11
%16 = and i32 %8, 2147483646
br label %30
17: ; preds = %45, %11
%18 = phi i32 [ 1, %11 ], [ %46, %45 ]
%19 = icmp eq i32 %13, 0
br i1 %19, label %26, label %20
20: ; preds = %17
%21 = urem i32 %9, %18
%22 = icmp eq i32 %21, 0
br i1 %22, label %23, label %26
23: ; preds = %20
%24 = load i32, i32* %12
%25 = add nsw i32 %24, %18
store i32 %25, i32* %12
br label %26
26: ; preds = %17, %23, %20, %3
%27 = add nuw nsw i64 %5, 1
%28 = icmp eq i64 %27, 10000
%29 = add i32 %4, 1
br i1 %28, label %52, label %3
30: ; preds = %45, %15
%31 = phi i32 [ 1, %15 ], [ %46, %45 ]
%32 = phi i32 [ 0, %15 ], [ %47, %45 ]
%33 = urem i32 %9, %31
%34 = icmp eq i32 %33, 0
br i1 %34, label %35, label %38
35: ; preds = %30
%36 = load i32, i32* %12
%37 = add nsw i32 %36, %31
store i32 %37, i32* %12
br label %38
38: ; preds = %30, %35
%39 = add nuw nsw i32 %31, 1
%40 = urem i32 %9, %39
%41 = icmp eq i32 %40, 0
br i1 %41, label %42, label %45
42: ; preds = %38
%43 = load i32, i32* %12
%44 = add nsw i32 %43, %39
store i32 %44, i32* %12
br label %45
45: ; preds = %42, %38
%46 = add nuw nsw i32 %31, 2
%47 = add i32 %32, 2
%48 = icmp eq i32 %47, %16
br i1 %48, label %17, label %30
49: ; preds = %72
%50 = sdiv i32 %73, 2
%51 = tail call i32 (i8*, i32, ...) @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %50)
ret i32 0
52: ; preds = %26, %72
%53 = phi i64 [ %74, %72 ], [ 1, %26 ]
%54 = phi i32 [ %73, %72 ], [ 0, %26 ]
%55 = getelementptr inbounds [10000 x i32], [10000 x i32]* %1, i64 0, i64 %53
%56 = load i32, i32* %55
%57 = zext i32 %56 to i64
%58 = icmp ne i64 %53, %57
%59 = add i32 %56, -1
%60 = icmp ult i32 %59, 9999
%61 = and i1 %58, %60
br i1 %61, label %62, label %72
62: ; preds = %52
%63 = getelementptr inbounds [10000 x i32], [10000 x i32]* %1, i64 0, i64 %57
%64 = load i32, i32* %63
%65 = zext i32 %64 to i64
%66 = icmp eq i64 %53, %65
br i1 %66, label %67, label %72
67: ; preds = %62
%68 = trunc i64 %53 to i32
%69 = tail call i32 (i8*, i32, ...) @printf(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str, i64 0, i64 0), i32 %68, i32 %56, i32 %56, i32 %64)
%70 = add nsw i32 %54, %68
%71 = add nsw i32 %70, %56
br label %72
72: ; preds = %52, %62, %67
%73 = phi i32 [ %71, %67 ], [ %54, %62 ], [ %54, %52 ]
%74 = add nuw nsw i64 %53, 1
%75 = icmp eq i64 %74, 10000
br i1 %75, label %49, label %52
}