long long percentile(long long *A, int N, int ple) {
  int I, J, L, R, K;
  long long X, W;
  if (N == 0)
    return 0;
  K = N * ple / 100;
  L = 0;
  R = N - 1;
  while (L < R) {
    X = A[K];
    I = L;
    J = R;
    do {
      while (A[I] < X)
        I++;
      while (X < A[J])
        J--;
      if (I <= J) {
        W = A[I];
        A[I] = A[J];
        A[J] = W;
        I++;
        J--;
      }
    } while (I <= J);
    if (J < K)
      L = I;
    if (K < I)
      R = J;
  }
  return A[K];
}


x86 assembly (clang, -O0):
<percentile>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
cmpl   $0x0,-0x14(%rbp)
jne    1125 <percentile+0x25>
movq   $0x0,-0x8(%rbp)
jmp    1261 <percentile+0x161>
mov    -0x14(%rbp),%eax
imul   -0x18(%rbp),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
mov    %eax,-0x2c(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    1251 <percentile+0x151>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x38(%rbp)
mov    -0x24(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    1174 <percentile+0x74>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
cmp    -0x38(%rbp),%rax
jge    1198 <percentile+0x98>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1174 <percentile+0x74>
jmp    119d <percentile+0x9d>
mov    -0x38(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x20(%rbp),%rdx
cmp    (%rcx,%rdx,8),%rax
jge    11c1 <percentile+0xc1>
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
jmp    119d <percentile+0x9d>
mov    -0x1c(%rbp),%eax
cmp    -0x20(%rbp),%eax
jg     1217 <percentile+0x117>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x40(%rbp),%rdx
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
jmp    121c <percentile+0x11c>
mov    -0x1c(%rbp),%eax
cmp    -0x20(%rbp),%eax
jle    116f <percentile+0x6f>
mov    -0x20(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    123a <percentile+0x13a>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    124c <percentile+0x14c>
mov    -0x20(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    1147 <percentile+0x47>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<percentile>:
test   %esi,%esi
je     11c9 <percentile+0xc9>
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
imul   %esi,%edx
movslq %edx,%rax
imul   $0x51eb851f,%rax,%r9
mov    %r9,%rax
shr    $0x3f,%rax
sar    $0x25,%r9
add    %eax,%r9d
cmp    $0x1,%esi
jle    11cc <percentile+0xcc>
add    $0xffffffff,%esi
movslq %r9d,%r8
lea    0x8(%rdi),%r11
xor    %r10d,%r10d
jmp    1163 <percentile+0x63>
cs nopw 0x0(%rax,%rax,1)
nop
cmp    %r9d,%r14d
cmovl  %r15d,%r10d
cmp    %r15d,%r9d
cmovl  %r14d,%esi
cmp    %esi,%r10d
jge    11cf <percentile+0xcf>
mov    (%rdi,%r8,8),%r12
mov    %esi,%r14d
mov    %r10d,%r15d
jmp    1175 <percentile+0x75>
nop
cmp    %r14d,%r15d
jg     1150 <percentile+0x50>
movslq %r15d,%rax
lea    (%rdi,%rax,8),%rbx
mov    %r15d,%edx
nop
mov    (%rbx),%r13
add    $0x8,%rbx
add    $0x1,%edx
cmp    %r12,%r13
jl     1180 <percentile+0x80>
lea    -0x1(%rdx),%r15d
movslq %r14d,%rax
lea    (%r11,%rax,8),%rbp
mov    %r14d,%eax
nopl   (%rax)
mov    -0x8(%rbp),%rcx
add    $0xfffffffffffffff8,%rbp
add    $0xffffffff,%eax
cmp    %rcx,%r12
jl     11a0 <percentile+0xa0>
lea    0x1(%rax),%r14d
cmp    %r14d,%r15d
jg     1170 <percentile+0x70>
mov    %rcx,-0x8(%rbx)
mov    %r13,0x0(%rbp)
mov    %eax,%r14d
mov    %edx,%r15d
jmp    1170 <percentile+0x70>
xor    %eax,%eax
ret
movslq %r9d,%r8
mov    (%rdi,%r8,8),%rax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i64 @percentile(i64* nocapture %0, i32 %1, i32 %2) {
%4 = icmp eq i32 %1, 0
br i1 %4, label %60, label %5
5: ; preds = %3
%6 = mul nsw i32 %2, %1
%7 = sdiv i32 %6, 100
%8 = icmp sgt i32 %1, 1
br i1 %8, label %11, label %9
9: ; preds = %5
%10 = sext i32 %7 to i64
br label %56
11: ; preds = %5
%12 = add nsw i32 %1, -1
%13 = sext i32 %7 to i64
%14 = getelementptr inbounds i64, i64* %0, i64 %13
br label %15
15: ; preds = %11, %50
%16 = phi i32 [ %12, %11 ], [ %54, %50 ]
%17 = phi i32 [ 0, %11 ], [ %52, %50 ]
%18 = load i64, i64* %14
br label %19
19: ; preds = %46, %15
%20 = phi i32 [ %16, %15 ], [ %47, %46 ]
%21 = phi i32 [ %17, %15 ], [ %48, %46 ]
%22 = sext i32 %21 to i64
br label %23
23: ; preds = %23, %19
%24 = phi i64 [ %28, %23 ], [ %22, %19 ]
%25 = getelementptr inbounds i64, i64* %0, i64 %24
%26 = load i64, i64* %25
%27 = icmp slt i64 %26, %18
%28 = add i64 %24, 1
br i1 %27, label %23, label %29
29: ; preds = %23
%30 = getelementptr inbounds i64, i64* %0, i64 %24
%31 = trunc i64 %24 to i32
%32 = sext i32 %20 to i64
br label %33
33: ; preds = %33, %29
%34 = phi i64 [ %38, %33 ], [ %32, %29 ]
%35 = getelementptr inbounds i64, i64* %0, i64 %34
%36 = load i64, i64* %35
%37 = icmp slt i64 %18, %36
%38 = add i64 %34, -1
br i1 %37, label %33, label %39
39: ; preds = %33
%40 = trunc i64 %34 to i32
%41 = icmp sgt i32 %31, %40
br i1 %41, label %46, label %42
42: ; preds = %39
%43 = getelementptr inbounds i64, i64* %0, i64 %34
store i64 %36, i64* %30
store i64 %26, i64* %43
%44 = add nsw i32 %31, 1
%45 = add nsw i32 %40, -1
br label %46
46: ; preds = %39, %42
%47 = phi i32 [ %45, %42 ], [ %40, %39 ]
%48 = phi i32 [ %44, %42 ], [ %31, %39 ]
%49 = icmp sgt i32 %48, %47
br i1 %49, label %50, label %19
50: ; preds = %46
%51 = icmp slt i32 %47, %7
%52 = select i1 %51, i32 %48, i32 %17
%53 = icmp slt i32 %7, %48
%54 = select i1 %53, i32 %47, i32 %16
%55 = icmp slt i32 %52, %54
br i1 %55, label %15, label %56
56: ; preds = %50, %9
%57 = phi i64 [ %10, %9 ], [ %13, %50 ]
%58 = getelementptr inbounds i64, i64* %0, i64 %57
%59 = load i64, i64* %58
br label %60
60: ; preds = %3, %56
%61 = phi i64 [ %59, %56 ], [ 0, %3 ]
ret i64 %61
}