#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 */
double fabs(double);
scalar_t__ malloc(int);
int /*<<< orphan*/ sampling(long, int /*<<< orphan*/, long, long, long *);
double sqrt(double);
void qsp(double *X, long n, long d, long n_sample, long seed, double *score) {
  long i, j, point, *id_sample;
  double sum, res;
  id_sample = (long *)malloc(sizeof(long) * n_sample);
  sampling(n_sample, 0, n - 1, seed, id_sample);
  for (point = 0; point < n; point++) {
    res = 0;
    for (i = 0; i < n_sample; i++) {
      if (point != id_sample[i]) {
        sum = 0;
        for (j = 0; j < d; j++)
          sum += fabs(X[point * d + j] - X[id_sample[i] * d + j]) *
                 fabs(X[point * d + j] - X[id_sample[i] * d + j]);
        if (res == 0)
          res = sum;
        else if (sum < res && sum > 0)
          res = sum;
      }
    }
    score[point] = sqrt(res);
  }
}


x86 assembly (clang, -O0):
<qsp>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x20(%rbp),%rax
shl    $0x3,%rax
mov    %eax,%edi
call   1030 <malloc@plt>
mov    %rax,-0x50(%rbp)
mov    -0x20(%rbp),%rdi
mov    -0x10(%rbp),%rdx
sub    $0x1,%rdx
mov    -0x28(%rbp),%rcx
mov    -0x50(%rbp),%r8
xor    %esi,%esi
call   1040 <sampling@plt>
movq   $0x0,-0x48(%rbp)
mov    -0x48(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1326 <qsp+0x1f6>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x60(%rbp)
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x20(%rbp),%rax
jge    12fe <qsp+0x1ce>
mov    -0x48(%rbp),%rax
mov    -0x50(%rbp),%rcx
mov    -0x38(%rbp),%rdx
cmp    (%rcx,%rdx,8),%rax
je     12e8 <qsp+0x1b8>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x58(%rbp)
movq   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x18(%rbp),%rax
jge    1287 <qsp+0x157>
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%rcx
imul   -0x18(%rbp),%rcx
add    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x50(%rbp),%rcx
mov    -0x38(%rbp),%rdx
mov    (%rcx,%rdx,8),%rcx
imul   -0x18(%rbp),%rcx
add    -0x40(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movaps 0xddf(%rip),%xmm1
pand   %xmm1,%xmm0
mov    -0x8(%rbp),%rax
mov    -0x48(%rbp),%rcx
imul   -0x18(%rbp),%rcx
add    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x8(%rbp),%rax
mov    -0x50(%rbp),%rcx
mov    -0x38(%rbp),%rdx
mov    (%rcx,%rdx,8),%rcx
imul   -0x18(%rbp),%rcx
add    -0x40(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm2
movaps 0xda0(%rip),%xmm1
pand   %xmm1,%xmm2
movsd  -0x58(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    11d8 <qsp+0xa8>
movsd  -0x60(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    12ae <qsp+0x17e>
jp     12ae <qsp+0x17e>
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
jmp    12e3 <qsp+0x1b3>
movsd  -0x58(%rbp),%xmm1
movsd  -0x60(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    12de <qsp+0x1ae>
movsd  -0x58(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    12de <qsp+0x1ae>
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
jmp    12e3 <qsp+0x1b3>
jmp    12e8 <qsp+0x1b8>
jmp    12ed <qsp+0x1bd>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    11a4 <qsp+0x74>
movsd  -0x60(%rbp),%xmm0
call   1050 <sqrt@plt>
mov    -0x30(%rbp),%rax
mov    -0x48(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x48(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x48(%rbp)
jmp    1186 <qsp+0x56>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<qsp>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %r9,0x20(%rsp)
mov    %r8,%r13
mov    %rcx,%r15
mov    %rdx,%r14
mov    %rsi,%rbx
mov    %rdi,%r12
lea    0x0(,%rcx,8),%edi
call   1030 <malloc@plt>
mov    %rax,%rbp
lea    -0x1(%rbx),%rdx
mov    %r15,%rdi
xor    %esi,%esi
mov    %r13,%rcx
mov    %rax,%r8
call   1040 <sampling@plt>
test   %rbx,%rbx
jle    1323 <qsp+0x1f3>
mov    %r12,%r9
mov    %rbx,%r8
mov    %r14,%rbx
and    $0xfffffffffffffffe,%rbx
lea    0x8(%r12),%r10
lea    0x0(,%r14,8),%r11
xor    %r12d,%r12d
xorpd  %xmm4,%xmm4
mov    %r10,%r13
mov    %r8,0x18(%rsp)
mov    %r9,0x10(%rsp)
mov    %r10,0x8(%rsp)
mov    %r11,(%rsp)
jmp    11f7 <qsp+0xc7>
nopw   0x0(%rax,%rax,1)
call   1050 <sqrt@plt>
xorpd  %xmm4,%xmm4
mov    (%rsp),%r11
mov    0x8(%rsp),%r10
mov    0x10(%rsp),%r9
mov    0x18(%rsp),%r8
mov    0x20(%rsp),%rax
movsd  %xmm0,(%rax,%r12,8)
add    $0x1,%r12
add    %r11,%r13
cmp    %r8,%r12
je     1323 <qsp+0x1f3>
xorpd  %xmm0,%xmm0
test   %r15,%r15
jle    1310 <qsp+0x1e0>
mov    %r12,%rax
imul   %r14,%rax
xorpd  %xmm0,%xmm0
xor    %ecx,%ecx
jmp    1231 <qsp+0x101>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movapd %xmm1,%xmm0
add    $0x1,%rcx
cmp    %r15,%rcx
je     1310 <qsp+0x1e0>
mov    0x0(%rbp,%rcx,8),%rdx
cmp    %rdx,%r12
je     1224 <qsp+0xf4>
test   %r14,%r14
jle    1252 <qsp+0x122>
imul   %r14,%rdx
cmp    $0x1,%r14
jne    1258 <qsp+0x128>
xorpd  %xmm1,%xmm1
xor    %esi,%esi
jmp    12a6 <qsp+0x176>
xorpd  %xmm1,%xmm1
jmp    12c7 <qsp+0x197>
lea    (%r10,%rdx,8),%rdi
xorpd  %xmm2,%xmm2
xor    %esi,%esi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  -0x8(%r13,%rsi,8),%xmm3
movsd  0x0(%r13,%rsi,8),%xmm1
subsd  -0x8(%rdi,%rsi,8),%xmm3
mulsd  %xmm3,%xmm3
addsd  %xmm2,%xmm3
subsd  (%rdi,%rsi,8),%xmm1
mulsd  %xmm1,%xmm1
addsd  %xmm3,%xmm1
add    $0x2,%rsi
movapd %xmm1,%xmm2
cmp    %rsi,%rbx
jne    1270 <qsp+0x140>
test   $0x1,%r14b
je     12c7 <qsp+0x197>
lea    (%rsi,%rax,1),%rdi
movsd  (%r9,%rdi,8),%xmm2
add    %rsi,%rdx
subsd  (%r9,%rdx,8),%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm2,%xmm1
ucomisd %xmm4,%xmm0
jne    12d3 <qsp+0x1a3>
jnp    1220 <qsp+0xf0>
xorpd  %xmm2,%xmm2
cmpltsd %xmm1,%xmm2
movapd %xmm2,%xmm3
andpd  %xmm1,%xmm3
andnpd %xmm0,%xmm2
orpd   %xmm3,%xmm2
cmpltsd %xmm0,%xmm1
andpd  %xmm1,%xmm2
andnpd %xmm0,%xmm1
orpd   %xmm2,%xmm1
jmp    1220 <qsp+0xf0>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
ucomisd %xmm4,%xmm0
jb     11c0 <qsp+0x90>
sqrtsd %xmm0,%xmm0
jmp    11dc <qsp+0xac>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @qsp(double* %0, i64 %1, i64 %2, i64 %3, i64 %4, double* %5) {
%7 = alloca double*
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca double*
%13 = alloca i64
%14 = alloca i64
%15 = alloca i64
%16 = alloca i64*
%17 = alloca double
%18 = alloca double
store double* %0, double** %7
store i64 %1, i64* %8
store i64 %2, i64* %9
store i64 %3, i64* %10
store i64 %4, i64* %11
store double* %5, double** %12
%19 = load i64, i64* %10
%20 = mul i64 8, %19
%21 = trunc i64 %20 to i32
%22 = call i64 @malloc(i32 %21)
%23 = inttoptr i64 %22 to i64*
store i64* %23, i64** %16
%24 = load i64, i64* %10
%25 = load i64, i64* %8
%26 = sub nsw i64 %25, 1
%27 = load i64, i64* %11
%28 = load i64*, i64** %16
%29 = call i32 @sampling(i64 %24, i32 0, i64 %26, i64 %27, i64* %28)
store i64 0, i64* %15
br label %30
30: ; preds = %125, %6
%31 = load i64, i64* %15
%32 = load i64, i64* %8
%33 = icmp slt i64 %31, %32
br i1 %33, label %34, label %128
34: ; preds = %30
store double 0.000000e+00, double* %18
store i64 0, i64* %13
br label %35
35: ; preds = %116, %34
%36 = load i64, i64* %13
%37 = load i64, i64* %10
%38 = icmp slt i64 %36, %37
br i1 %38, label %39, label %119
39: ; preds = %35
%40 = load i64, i64* %15
%41 = load i64*, i64** %16
%42 = load i64, i64* %13
%43 = getelementptr inbounds i64, i64* %41, i64 %42
%44 = load i64, i64* %43
%45 = icmp ne i64 %40, %44
br i1 %45, label %46, label %115
46: ; preds = %39
store double 0.000000e+00, double* %17
store i64 0, i64* %14
br label %47
47: ; preds = %96, %46
%48 = load i64, i64* %14
%49 = load i64, i64* %9
%50 = icmp slt i64 %48, %49
br i1 %50, label %51, label %99
51: ; preds = %47
%52 = load double*, double** %7
%53 = load i64, i64* %15
%54 = load i64, i64* %9
%55 = mul nsw i64 %53, %54
%56 = load i64, i64* %14
%57 = add nsw i64 %55, %56
%58 = getelementptr inbounds double, double* %52, i64 %57
%59 = load double, double* %58
%60 = load double*, double** %7
%61 = load i64*, i64** %16
%62 = load i64, i64* %13
%63 = getelementptr inbounds i64, i64* %61, i64 %62
%64 = load i64, i64* %63
%65 = load i64, i64* %9
%66 = mul nsw i64 %64, %65
%67 = load i64, i64* %14
%68 = add nsw i64 %66, %67
%69 = getelementptr inbounds double, double* %60, i64 %68
%70 = load double, double* %69
%71 = fsub double %59, %70
%72 = call double @llvm.fabs.f64(double %71)
%73 = load double*, double** %7
%74 = load i64, i64* %15
%75 = load i64, i64* %9
%76 = mul nsw i64 %74, %75
%77 = load i64, i64* %14
%78 = add nsw i64 %76, %77
%79 = getelementptr inbounds double, double* %73, i64 %78
%80 = load double, double* %79
%81 = load double*, double** %7
%82 = load i64*, i64** %16
%83 = load i64, i64* %13
%84 = getelementptr inbounds i64, i64* %82, i64 %83
%85 = load i64, i64* %84
%86 = load i64, i64* %9
%87 = mul nsw i64 %85, %86
%88 = load i64, i64* %14
%89 = add nsw i64 %87, %88
%90 = getelementptr inbounds double, double* %81, i64 %89
%91 = load double, double* %90
%92 = fsub double %80, %91
%93 = call double @llvm.fabs.f64(double %92)
%94 = load double, double* %17
%95 = call double @llvm.fmuladd.f64(double %72, double %93, double %94)
store double %95, double* %17
br label %96
96: ; preds = %51
%97 = load i64, i64* %14
%98 = add nsw i64 %97, 1
store i64 %98, i64* %14
br label %47
99: ; preds = %47
%100 = load double, double* %18
%101 = fcmp oeq double %100, 0.000000e+00
br i1 %101, label %102, label %104
102: ; preds = %99
%103 = load double, double* %17
store double %103, double* %18
br label %114
104: ; preds = %99
%105 = load double, double* %17
%106 = load double, double* %18
%107 = fcmp olt double %105, %106
br i1 %107, label %108, label %113
108: ; preds = %104
%109 = load double, double* %17
%110 = fcmp ogt double %109, 0.000000e+00
br i1 %110, label %111, label %113
111: ; preds = %108
%112 = load double, double* %17
store double %112, double* %18
br label %113
113: ; preds = %111, %108, %104
br label %114
114: ; preds = %113, %102
br label %115
115: ; preds = %114, %39
br label %116
116: ; preds = %115
%117 = load i64, i64* %13
%118 = add nsw i64 %117, 1
store i64 %118, i64* %13
br label %35
119: ; preds = %35
%120 = load double, double* %18
%121 = call double @sqrt(double %120)
%122 = load double*, double** %12
%123 = load i64, i64* %15
%124 = getelementptr inbounds double, double* %122, i64 %123
store double %121, double* %124
br label %125
125: ; preds = %119
%126 = load i64, i64* %15
%127 = add nsw i64 %126, 1
store i64 %127, i64* %15
br label %30
128: ; preds = %30
ret void
}

LLVM IR (-O2):
define void @qsp(double* nocapture %0, i64 %1, i64 %2, i64 %3, i64 %4, double* nocapture writeonly %5) {
%7 = trunc i64 %3 to i32
%8 = shl i32 %7, 3
%9 = tail call i64 @malloc(i32 %8)
%10 = inttoptr i64 %9 to i64*
%11 = add nsw i64 %1, -1
%12 = tail call i32 @sampling(i64 %3, i32 0, i64 %11, i64 %4, i64* %10)
%13 = icmp sgt i64 %1, 0
br i1 %13, label %14, label %89
14: ; preds = %6
%15 = icmp sgt i64 %3, 0
%16 = icmp sgt i64 %2, 0
%17 = and i64 %2, 1
%18 = icmp eq i64 %2, 1
%19 = and i64 %2, -2
%20 = icmp eq i64 %17, 0
br label %21
21: ; preds = %14, %83
%22 = phi i64 [ 0, %14 ], [ %87, %83 ]
br i1 %15, label %23, label %83
23: ; preds = %21
%24 = mul nsw i64 %22, %2
br label %25
25: ; preds = %23, %79
%26 = phi double [ 0.000000e+00, %23 ], [ %80, %79 ]
%27 = phi i64 [ 0, %23 ], [ %81, %79 ]
%28 = getelementptr inbounds i64, i64* %10, i64 %27
%29 = load i64, i64* %28
%30 = icmp eq i64 %22, %29
br i1 %30, label %79, label %31
31: ; preds = %25
br i1 %16, label %32, label %71
32: ; preds = %31
%33 = mul nsw i64 %29, %2
br i1 %18, label %58, label %34
34: ; preds = %32, %34
%35 = phi double [ %54, %34 ], [ 0.000000e+00, %32 ]
%36 = phi i64 [ %55, %34 ], [ 0, %32 ]
%37 = phi i64 [ %56, %34 ], [ 0, %32 ]
%38 = add nsw i64 %36, %24
%39 = getelementptr inbounds double, double* %0, i64 %38
%40 = load double, double* %39
%41 = add nsw i64 %36, %33
%42 = getelementptr inbounds double, double* %0, i64 %41
%43 = load double, double* %42
%44 = fsub double %40, %43
%45 = tail call double @llvm.fmuladd.f64(double %44, double %44, double %35)
%46 = or i64 %36, 1
%47 = add nsw i64 %46, %24
%48 = getelementptr inbounds double, double* %0, i64 %47
%49 = load double, double* %48
%50 = add nsw i64 %46, %33
%51 = getelementptr inbounds double, double* %0, i64 %50
%52 = load double, double* %51
%53 = fsub double %49, %52
%54 = tail call double @llvm.fmuladd.f64(double %53, double %53, double %45)
%55 = add nuw nsw i64 %36, 2
%56 = add i64 %37, 2
%57 = icmp eq i64 %56, %19
br i1 %57, label %58, label %34
58: ; preds = %34, %32
%59 = phi double [ undef, %32 ], [ %54, %34 ]
%60 = phi double [ 0.000000e+00, %32 ], [ %54, %34 ]
%61 = phi i64 [ 0, %32 ], [ %55, %34 ]
br i1 %20, label %71, label %62
62: ; preds = %58
%63 = add nsw i64 %61, %24
%64 = getelementptr inbounds double, double* %0, i64 %63
%65 = load double, double* %64
%66 = add nsw i64 %61, %33
%67 = getelementptr inbounds double, double* %0, i64 %66
%68 = load double, double* %67
%69 = fsub double %65, %68
%70 = tail call double @llvm.fmuladd.f64(double %69, double %69, double %60)
br label %71
71: ; preds = %62, %58, %31
%72 = phi double [ 0.000000e+00, %31 ], [ %59, %58 ], [ %70, %62 ]
%73 = fcmp oeq double %26, 0.000000e+00
br i1 %73, label %79, label %74
74: ; preds = %71
%75 = fcmp olt double %72, %26
%76 = fcmp ogt double %72, 0.000000e+00
%77 = and i1 %75, %76
%78 = select i1 %77, double %72, double %26
br label %79
79: ; preds = %74, %71, %25
%80 = phi double [ %26, %25 ], [ %72, %71 ], [ %78, %74 ]
%81 = add nuw nsw i64 %27, 1
%82 = icmp eq i64 %81, %3
br i1 %82, label %83, label %25
83: ; preds = %79, %21
%84 = phi double [ 0.000000e+00, %21 ], [ %80, %79 ]
%85 = tail call double @sqrt(double %84)
%86 = getelementptr inbounds double, double* %5, i64 %22
store double %85, double* %86
%87 = add nuw nsw i64 %22, 1
%88 = icmp eq i64 %87, %1
br i1 %88, label %89, label %21
89: ; preds = %83, %6
ret void
}