#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 *, ...);
void cluster_diag(int dim, int n, int k, double *X,
                  int *cluster_assignment_index, double *cluster_centroid) {
  int i;
  int cluster_member_count[1000];
  for (i = 0; i < k; i++) {
    cluster_member_count[i] = 0;
  }
  for (i = 0; i < n; i++) {
    cluster_member_count[cluster_assignment_index[i]]++;
  }
  printf("  Final clusters \n");
  for (i = 0; i < k; i++)
    printf("    cluster %d:     members: %8d, centroid (%.1f %.1f) \n", i,
           cluster_member_count[i], cluster_centroid[i * dim + 0],
           cluster_centroid[i * dim + 1]);
}


x86 assembly (clang, -O0):
<cluster_diag>:
push   %rbp
mov    %rsp,%rbp
sub    $0xfd0,%rsp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %rcx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
mov    %r9,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1160 <cluster_diag+0x50>
movslq -0x2c(%rbp),%rax
movl   $0x0,-0xfd0(%rbp,%rax,4)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1137 <cluster_diag+0x27>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    119e <cluster_diag+0x8e>
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movslq (%rax,%rcx,4),%rax
mov    -0xfd0(%rbp,%rax,4),%ecx
add    $0x1,%ecx
mov    %ecx,-0xfd0(%rbp,%rax,4)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1167 <cluster_diag+0x57>
lea    0xe5b(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1215 <cluster_diag+0x105>
mov    -0x2c(%rbp),%esi
movslq -0x2c(%rbp),%rax
mov    -0xfd0(%rbp,%rax,4),%edx
mov    -0x28(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x4(%rbp),%ecx
add    $0x0,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x4(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
lea    0xe13(%rip),%rdi
mov    $0x2,%al
call   1030 <printf@plt>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    11b3 <cluster_diag+0xa3>
add    $0xfd0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<cluster_diag>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xfa8,%rsp
mov    %r9,%rbx
mov    %r8,%rbp
mov    %edx,%r15d
mov    %esi,%r12d
mov    %edi,%r14d
mov    %edx,%r13d
test   %edx,%edx
jle    1169 <cluster_diag+0x39>
lea    0x0(,%r13,4),%rdx
mov    %rsp,%rdi
xor    %esi,%esi
call   1050 <memset@plt>
test   %r12d,%r12d
jle    11e1 <cluster_diag+0xb1>
mov    %r12d,%ecx
lea    -0x1(%rcx),%rdx
mov    %ecx,%eax
and    $0x3,%eax
cmp    $0x3,%rdx
jae    1184 <cluster_diag+0x54>
xor    %edx,%edx
jmp    11bd <cluster_diag+0x8d>
and    $0xfffffffc,%ecx
xor    %edx,%edx
nopl   0x0(%rax)
movslq 0x0(%rbp,%rdx,4),%rsi
addl   $0x1,(%rsp,%rsi,4)
movslq 0x4(%rbp,%rdx,4),%rsi
addl   $0x1,(%rsp,%rsi,4)
movslq 0x8(%rbp,%rdx,4),%rsi
addl   $0x1,(%rsp,%rsi,4)
movslq 0xc(%rbp,%rdx,4),%rsi
addl   $0x1,(%rsp,%rsi,4)
add    $0x4,%rdx
cmp    %rdx,%rcx
jne    1190 <cluster_diag+0x60>
test   %rax,%rax
je     11e1 <cluster_diag+0xb1>
lea    0x0(,%rdx,4),%rcx
add    %rbp,%rcx
xor    %edx,%edx
nop
movslq (%rcx,%rdx,4),%rsi
addl   $0x1,(%rsp,%rsi,4)
add    $0x1,%rdx
cmp    %rdx,%rax
jne    11d0 <cluster_diag+0xa0>
lea    0xe51(%rip),%rdi
call   1030 <puts@plt>
test   %r15d,%r15d
jle    1234 <cluster_diag+0x104>
movslq %r14d,%r15
add    $0x8,%rbx
shl    $0x3,%r15
xor    %ebp,%ebp
lea    0xdfa(%rip),%r14
cs nopw 0x0(%rax,%rax,1)
mov    (%rsp,%rbp,4),%edx
movsd  -0x8(%rbx),%xmm0
movsd  (%rbx),%xmm1
mov    %r14,%rdi
mov    %ebp,%esi
mov    $0x2,%al
call   1040 <printf@plt>
add    $0x1,%rbp
add    %r15,%rbx
cmp    %rbp,%r13
jne    1210 <cluster_diag+0xe0>
add    $0xfa8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [19 x i8] c" Final clusters \0A\00"
@.str.1 = [57 x i8] c" cluster %d: members: %8d, centroid (%.1f %.1f) \0A\00"
define void @cluster_diag(i32 %0, i32 %1, i32 %2, double* %3, i32* %4, double* %5) {
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca double*
%11 = alloca i32*
%12 = alloca double*
%13 = alloca i32
%14 = alloca [1000 x i32]
store i32 %0, i32* %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store double* %3, double** %10
store i32* %4, i32** %11
store double* %5, double** %12
store i32 0, i32* %13
br label %15
15: ; preds = %23, %6
%16 = load i32, i32* %13
%17 = load i32, i32* %9
%18 = icmp slt i32 %16, %17
br i1 %18, label %19, label %26
19: ; preds = %15
%20 = load i32, i32* %13
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds [1000 x i32], [1000 x i32]* %14, i64 0, i64 %21
store i32 0, i32* %22
br label %23
23: ; preds = %19
%24 = load i32, i32* %13
%25 = add nsw i32 %24, 1
store i32 %25, i32* %13
br label %15
26: ; preds = %15
store i32 0, i32* %13
br label %27
27: ; preds = %41, %26
%28 = load i32, i32* %13
%29 = load i32, i32* %8
%30 = icmp slt i32 %28, %29
br i1 %30, label %31, label %44
31: ; preds = %27
%32 = load i32*, i32** %11
%33 = load i32, i32* %13
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i32, i32* %32, i64 %34
%36 = load i32, i32* %35
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds [1000 x i32], [1000 x i32]* %14, i64 0, i64 %37
%39 = load i32, i32* %38
%40 = add nsw i32 %39, 1
store i32 %40, i32* %38
br label %41
41: ; preds = %31
%42 = load i32, i32* %13
%43 = add nsw i32 %42, 1
store i32 %43, i32* %13
br label %27
44: ; preds = %27
%45 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 0))
store i32 0, i32* %13
br label %46
46: ; preds = %73, %44
%47 = load i32, i32* %13
%48 = load i32, i32* %9
%49 = icmp slt i32 %47, %48
br i1 %49, label %50, label %76
50: ; preds = %46
%51 = load i32, i32* %13
%52 = load i32, i32* %13
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds [1000 x i32], [1000 x i32]* %14, i64 0, i64 %53
%55 = load i32, i32* %54
%56 = load double*, double** %12
%57 = load i32, i32* %13
%58 = load i32, i32* %7
%59 = mul nsw i32 %57, %58
%60 = add nsw i32 %59, 0
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds double, double* %56, i64 %61
%63 = load double, double* %62
%64 = load double*, double** %12
%65 = load i32, i32* %13
%66 = load i32, i32* %7
%67 = mul nsw i32 %65, %66
%68 = add nsw i32 %67, 1
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds double, double* %64, i64 %69
%71 = load double, double* %70
%72 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([57 x i8], [57 x i8]* @.str.1, i64 0, i64 0), i32 %51, i32 %55, double %63, double %71)
br label %73
73: ; preds = %50
%74 = load i32, i32* %13
%75 = add nsw i32 %74, 1
store i32 %75, i32* %13
br label %46
76: ; preds = %46
ret void
}

LLVM IR (-O2):
@.str.1 = [57 x i8] c" cluster %d: members: %8d, centroid (%.1f %.1f) \0A\00"
@str = [18 x i8] c" Final clusters \00"
define void @cluster_diag(i32 %0, i32 %1, i32 %2, double* nocapture readnone %3, i32* nocapture %4, double* nocapture %5) {
%7 = alloca [1000 x i32]
%8 = bitcast [1000 x i32]* %7 to i8*
%9 = icmp sgt i32 %2, 0
br i1 %9, label %10, label %13
10: ; preds = %6
%11 = zext i32 %2 to i64
%12 = shl nuw nsw i64 %11, 2
br label %13
13: ; preds = %10, %6
%14 = icmp sgt i32 %1, 0
br i1 %14, label %15, label %70
15: ; preds = %13
%16 = zext i32 %1 to i64
%17 = add nsw i64 %16, -1
%18 = and i64 %16, 3
%19 = icmp ult i64 %17, 3
br i1 %19, label %55, label %20
20: ; preds = %15
%21 = and i64 %16, 4294967292
br label %22
22: ; preds = %22, %20
%23 = phi i64 [ 0, %20 ], [ %52, %22 ]
%24 = phi i64 [ 0, %20 ], [ %53, %22 ]
%25 = getelementptr inbounds i32, i32* %4, i64 %23
%26 = load i32, i32* %25
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds [1000 x i32], [1000 x i32]* %7, i64 0, i64 %27
%29 = load i32, i32* %28
%30 = add nsw i32 %29, 1
store i32 %30, i32* %28
%31 = or i64 %23, 1
%32 = getelementptr inbounds i32, i32* %4, i64 %31
%33 = load i32, i32* %32
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds [1000 x i32], [1000 x i32]* %7, i64 0, i64 %34
%36 = load i32, i32* %35
%37 = add nsw i32 %36, 1
store i32 %37, i32* %35
%38 = or i64 %23, 2
%39 = getelementptr inbounds i32, i32* %4, i64 %38
%40 = load i32, i32* %39
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds [1000 x i32], [1000 x i32]* %7, i64 0, i64 %41
%43 = load i32, i32* %42
%44 = add nsw i32 %43, 1
store i32 %44, i32* %42
%45 = or i64 %23, 3
%46 = getelementptr inbounds i32, i32* %4, i64 %45
%47 = load i32, i32* %46
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds [1000 x i32], [1000 x i32]* %7, i64 0, i64 %48
%50 = load i32, i32* %49
%51 = add nsw i32 %50, 1
store i32 %51, i32* %49
%52 = add nuw nsw i64 %23, 4
%53 = add i64 %24, 4
%54 = icmp eq i64 %53, %21
br i1 %54, label %55, label %22
55: ; preds = %22, %15
%56 = phi i64 [ 0, %15 ], [ %52, %22 ]
%57 = icmp eq i64 %18, 0
br i1 %57, label %70, label %58
58: ; preds = %55, %58
%59 = phi i64 [ %67, %58 ], [ %56, %55 ]
%60 = phi i64 [ %68, %58 ], [ 0, %55 ]
%61 = getelementptr inbounds i32, i32* %4, i64 %59
%62 = load i32, i32* %61
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds [1000 x i32], [1000 x i32]* %7, i64 0, i64 %63
%65 = load i32, i32* %64
%66 = add nsw i32 %65, 1
store i32 %66, i32* %64
%67 = add nuw nsw i64 %59, 1
%68 = add i64 %60, 1
%69 = icmp eq i64 %68, %18
br i1 %69, label %70, label %58
70: ; preds = %55, %58, %13
%71 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([18 x i8], [18 x i8]* @str, i64 0, i64 0))
br i1 %9, label %72, label %89
72: ; preds = %70
%73 = sext i32 %0 to i64
%74 = zext i32 %2 to i64
br label %75
75: ; preds = %72, %75
%76 = phi i64 [ 0, %72 ], [ %87, %75 ]
%77 = getelementptr inbounds [1000 x i32], [1000 x i32]* %7, i64 0, i64 %76
%78 = load i32, i32* %77
%79 = mul nsw i64 %76, %73
%80 = getelementptr inbounds double, double* %5, i64 %79
%81 = load double, double* %80
%82 = add nsw i64 %79, 1
%83 = getelementptr inbounds double, double* %5, i64 %82
%84 = load double, double* %83
%85 = trunc i64 %76 to i32
%86 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([57 x i8], [57 x i8]* @.str.1, i64 0, i64 0), i32 %85, i32 %78, double %81, double %84)
%87 = add nuw nsw i64 %76, 1
%88 = icmp eq i64 %87, %74
br i1 %88, label %89, label %75
89: ; preds = %75, %70
ret void
}