#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 BlastKarlinLambdaBis(double *, int, int);
scalar_t__ BlastScoreChk(int, int);
double exp(double);
double pow(double, int);
double BlastKarlinLambdaNR(double *sfp, int min, int max) {
  int low;
  int high;
  int j;
  int i;
  double *sprob;
  double lambda0, sum, slope, temp, x0, x1, amt;
  low = min;
  high = max;
  if (BlastScoreChk(low, high) != 0)
    return -1.;
  lambda0 = 0.5;
  sprob = sfp;
  for (j = 0; j < 20; ++j) {
    sum = -1.0;
    slope = 0.0;
    if (lambda0 < 0.01)
      break;
    x0 = exp((double)lambda0);
    x1 = pow((double)x0, low - 1);
    if (x1 == 0.)
      break;
    for (i = low; i <= high; ++i) {
      sum += (temp = sprob[i] * (x1 *= x0));
      slope += temp * i;
    }
    lambda0 -= (amt = sum / slope);
    if (((amt / lambda0) >= 0 ? (amt / lambda0) : -(amt / lambda0)) < (1.e-5)) {
      if (lambda0 > (1.e-5))
        return lambda0;
      break;
    }
  }
  return BlastKarlinLambdaBis(sfp, min, max);
}


x86 assembly (clang, -O0):
<BlastKarlinLambdaNR>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    -0x14(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x18(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%edi
mov    -0x20(%rbp),%esi
call   1030 <BlastScoreChk@plt>
cmp    $0x0,%rax
je     1185 <BlastKarlinLambdaNR+0x45>
movsd  0xe95(%rip),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    135b <BlastKarlinLambdaNR+0x21b>
movsd  0xe73(%rip),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x24(%rbp)
cmpl   $0x14,-0x24(%rbp)
jge    1347 <BlastKarlinLambdaNR+0x207>
movsd  0xe5d(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xe40(%rip),%xmm0
ucomisd -0x38(%rbp),%xmm0
jbe    11d8 <BlastKarlinLambdaNR+0x98>
jmp    1347 <BlastKarlinLambdaNR+0x207>
movsd  -0x38(%rbp),%xmm0
call   1040 <exp@plt>
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
mov    -0x1c(%rbp),%edi
sub    $0x1,%edi
call   1050 <pow@plt>
movsd  %xmm0,-0x60(%rbp)
movsd  -0x60(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1219 <BlastKarlinLambdaNR+0xd9>
jp     1219 <BlastKarlinLambdaNR+0xd9>
jmp    1347 <BlastKarlinLambdaNR+0x207>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x20(%rbp),%eax
jg     1284 <BlastKarlinLambdaNR+0x144>
mov    -0x30(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  -0x58(%rbp),%xmm1
mulsd  -0x60(%rbp),%xmm1
movsd  %xmm1,-0x60(%rbp)
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
addsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x50(%rbp),%xmm0
cvtsi2sdl -0x28(%rbp),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    121f <BlastKarlinLambdaNR+0xdf>
movsd  -0x40(%rbp),%xmm1
divsd  -0x48(%rbp),%xmm1
movsd  %xmm1,-0x68(%rbp)
movsd  -0x38(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x68(%rbp),%xmm0
divsd  -0x38(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     12cc <BlastKarlinLambdaNR+0x18c>
movsd  -0x68(%rbp),%xmm0
divsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x70(%rbp)
jmp    12f2 <BlastKarlinLambdaNR+0x1b2>
movsd  -0x68(%rbp),%xmm0
divsd  -0x38(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x70(%rbp),%xmm1
movsd  0xd19(%rip),%xmm0
ucomisd %xmm1,%xmm0
jbe    1334 <BlastKarlinLambdaNR+0x1f4>
movsd  -0x38(%rbp),%xmm0
movsd  0xd02(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    132f <BlastKarlinLambdaNR+0x1ef>
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    135b <BlastKarlinLambdaNR+0x21b>
jmp    1347 <BlastKarlinLambdaNR+0x207>
jmp    1339 <BlastKarlinLambdaNR+0x1f9>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    11a1 <BlastKarlinLambdaNR+0x61>
mov    -0x10(%rbp),%rdi
mov    -0x14(%rbp),%esi
mov    -0x18(%rbp),%edx
call   1060 <BlastKarlinLambdaBis@plt>
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<BlastKarlinLambdaNR>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %edx,%r14d
mov    %esi,%r15d
mov    %rdi,%rbx
mov    %esi,%edi
mov    %edx,%esi
call   1030 <BlastScoreChk@plt>
test   %rax,%rax
je     1180 <BlastKarlinLambdaNR+0x40>
movsd  0xe93(%rip),%xmm5
movapd %xmm5,%xmm0
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
lea    -0x1(%r15),%r13d
movslq %r15d,%rcx
lea    0x1(%r14),%ebp
mov    %ebp,%eax
sub    %r15d,%eax
mov    %eax,0xc(%rsp)
cvtsi2sd %r15d,%xmm0
movsd  %xmm0,0x28(%rsp)
mov    %rcx,%rax
mov    %rcx,0x10(%rsp)
lea    0x1(%rcx),%rax
mov    %rax,0x20(%rsp)
movsd  0xe50(%rip),%xmm5
xor    %r12d,%r12d
nopl   0x0(%rax,%rax,1)
movsd  %xmm5,0x30(%rsp)
movapd %xmm5,%xmm0
call   1040 <exp@plt>
movsd  %xmm0,0x18(%rsp)
mov    %r13d,%edi
call   1050 <pow@plt>
movsd  0x30(%rsp),%xmm5
ucomisd 0xe3d(%rip),%xmm0
jne    11f3 <BlastKarlinLambdaNR+0xb3>
jnp    1327 <BlastKarlinLambdaNR+0x1e7>
movsd  0xe15(%rip),%xmm1
cmp    %r15d,%r14d
jl     12c4 <BlastKarlinLambdaNR+0x184>
testb  $0x1,0xc(%rsp)
jne    1230 <BlastKarlinLambdaNR+0xf0>
xorpd  %xmm2,%xmm2
mov    0x10(%rsp),%rax
movsd  0xde4(%rip),%xmm1
movsd  0x18(%rsp),%xmm6
cmp    %r15d,%r14d
jne    1270 <BlastKarlinLambdaNR+0x130>
jmp    12c0 <BlastKarlinLambdaNR+0x180>
nopl   0x0(%rax)
movsd  0x18(%rsp),%xmm6
mulsd  %xmm6,%xmm0
mov    0x10(%rsp),%rax
movsd  (%rbx,%rax,8),%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm2,%xmm1
addsd  0xdac(%rip),%xmm1
mulsd  0x28(%rsp),%xmm2
addsd  0xdc6(%rip),%xmm2
mov    0x20(%rsp),%rax
cmp    %r15d,%r14d
je     12c0 <BlastKarlinLambdaNR+0x180>
nopl   0x0(%rax)
mulsd  %xmm6,%xmm0
movapd %xmm6,%xmm3
mulsd  %xmm0,%xmm3
mulsd  (%rbx,%rax,8),%xmm0
addsd  %xmm0,%xmm1
xorps  %xmm4,%xmm4
cvtsi2sd %eax,%xmm4
mulsd  %xmm0,%xmm4
addsd  %xmm2,%xmm4
movsd  0x8(%rbx,%rax,8),%xmm0
mulsd  %xmm3,%xmm0
addsd  %xmm0,%xmm1
lea    0x1(%rax),%ecx
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm4,%xmm2
add    $0x2,%rax
movapd %xmm3,%xmm0
cmp    %eax,%ebp
jne    1270 <BlastKarlinLambdaNR+0x130>
divsd  %xmm2,%xmm1
subsd  %xmm1,%xmm5
divsd  %xmm5,%xmm1
movapd %xmm1,%xmm0
xorpd  0xd58(%rip),%xmm0
xorpd  %xmm2,%xmm2
cmpnlesd %xmm1,%xmm2
andpd  %xmm2,%xmm0
andnpd %xmm1,%xmm2
orpd   %xmm0,%xmm2
movsd  0xd23(%rip),%xmm0
ucomisd %xmm2,%xmm0
ja     1319 <BlastKarlinLambdaNR+0x1d9>
cmp    $0x12,%r12d
ja     1327 <BlastKarlinLambdaNR+0x1e7>
add    $0x1,%r12d
movsd  0xd13(%rip),%xmm0
ucomisd %xmm5,%xmm0
jbe    11c0 <BlastKarlinLambdaNR+0x80>
jmp    1327 <BlastKarlinLambdaNR+0x1e7>
ucomisd 0xcf7(%rip),%xmm5
ja     116d <BlastKarlinLambdaNR+0x2d>
mov    %rbx,%rdi
mov    %r15d,%esi
mov    %r14d,%edx
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1060 <BlastKarlinLambdaBis@plt>

LLVM IR (-O0):
define double @BlastKarlinLambdaNR(double* %0, i32 %1, i32 %2) {
%4 = alloca double
%5 = alloca double*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca double*
%13 = alloca double
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca double
%19 = alloca double
store double* %0, double** %5
store i32 %1, i32* %6
store i32 %2, i32* %7
%20 = load i32, i32* %6
store i32 %20, i32* %8
%21 = load i32, i32* %7
store i32 %21, i32* %9
%22 = load i32, i32* %8
%23 = load i32, i32* %9
%24 = call i64 @BlastScoreChk(i32 %22, i32 %23)
%25 = icmp ne i64 %24, 0
br i1 %25, label %26, label %27
26: ; preds = %3
store double -1.000000e+00, double* %4
br label %109
27: ; preds = %3
store double 5.000000e-01, double* %13
%28 = load double*, double** %5
store double* %28, double** %12
store i32 0, i32* %10
br label %29
29: ; preds = %101, %27
%30 = load i32, i32* %10
%31 = icmp slt i32 %30, 20
br i1 %31, label %32, label %104
32: ; preds = %29
store double -1.000000e+00, double* %14
store double 0.000000e+00, double* %15
%33 = load double, double* %13
%34 = fcmp olt double %33, 1.000000e-02
br i1 %34, label %35, label %36
35: ; preds = %32
br label %104
36: ; preds = %32
%37 = load double, double* %13
%38 = call double @exp(double %37)
store double %38, double* %17
%39 = load double, double* %17
%40 = load i32, i32* %8
%41 = sub nsw i32 %40, 1
%42 = call double @pow(double %39, i32 %41)
store double %42, double* %18
%43 = load double, double* %18
%44 = fcmp oeq double %43, 0.000000e+00
br i1 %44, label %45, label %46
45: ; preds = %36
br label %104
46: ; preds = %36
%47 = load i32, i32* %8
store i32 %47, i32* %11
br label %48
48: ; preds = %69, %46
%49 = load i32, i32* %11
%50 = load i32, i32* %9
%51 = icmp sle i32 %49, %50
br i1 %51, label %52, label %72
52: ; preds = %48
%53 = load double*, double** %12
%54 = load i32, i32* %11
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds double, double* %53, i64 %55
%57 = load double, double* %56
%58 = load double, double* %17
%59 = load double, double* %18
%60 = fmul double %59, %58
store double %60, double* %18
%61 = fmul double %57, %60
store double %61, double* %16
%62 = load double, double* %14
%63 = fadd double %62, %61
store double %63, double* %14
%64 = load double, double* %16
%65 = load i32, i32* %11
%66 = sitofp i32 %65 to double
%67 = load double, double* %15
%68 = call double @llvm.fmuladd.f64(double %64, double %66, double %67)
store double %68, double* %15
br label %69
69: ; preds = %52
%70 = load i32, i32* %11
%71 = add nsw i32 %70, 1
store i32 %71, i32* %11
br label %48
72: ; preds = %48
%73 = load double, double* %14
%74 = load double, double* %15
%75 = fdiv double %73, %74
store double %75, double* %19
%76 = load double, double* %13
%77 = fsub double %76, %75
store double %77, double* %13
%78 = load double, double* %19
%79 = load double, double* %13
%80 = fdiv double %78, %79
%81 = fcmp oge double %80, 0.000000e+00
br i1 %81, label %82, label %86
82: ; preds = %72
%83 = load double, double* %19
%84 = load double, double* %13
%85 = fdiv double %83, %84
br label %91
86: ; preds = %72
%87 = load double, double* %19
%88 = load double, double* %13
%89 = fdiv double %87, %88
%90 = fneg double %89
br label %91
91: ; preds = %86, %82
%92 = phi double [ %85, %82 ], [ %90, %86 ]
%93 = fcmp olt double %92, 1.000000e-05
br i1 %93, label %94, label %100
94: ; preds = %91
%95 = load double, double* %13
%96 = fcmp ogt double %95, 1.000000e-05
br i1 %96, label %97, label %99
97: ; preds = %94
%98 = load double, double* %13
store double %98, double* %4
br label %109
99: ; preds = %94
br label %104
100: ; preds = %91
br label %101
101: ; preds = %100
%102 = load i32, i32* %10
%103 = add nsw i32 %102, 1
store i32 %103, i32* %10
br label %29
104: ; preds = %99, %45, %35, %29
%105 = load double*, double** %5
%106 = load i32, i32* %6
%107 = load i32, i32* %7
%108 = call double @BlastKarlinLambdaBis(double* %105, i32 %106, i32 %107)
store double %108, double* %4
br label %109
109: ; preds = %104, %97, %26
%110 = load double, double* %4
ret double %110
}

LLVM IR (-O2):
define double @BlastKarlinLambdaNR(double* %0, i32 %1, i32 %2) {
%4 = tail call i64 @BlastScoreChk(i32 %1, i32 %2)
%5 = icmp eq i64 %4, 0
br i1 %5, label %6, label %85
6: ; preds = %3
%7 = add nsw i32 %1, -1
%8 = icmp slt i32 %2, %1
%9 = sext i32 %1 to i64
%10 = add i32 %2, 1
%11 = sub i32 %10, %1
%12 = and i32 %11, 1
%13 = icmp eq i32 %12, 0
%14 = getelementptr inbounds double, double* %0, i64 %9
%15 = sitofp i32 %1 to double
%16 = add nsw i64 %9, 1
%17 = icmp eq i32 %2, %1
br label %23
18: ; preds = %73
%19 = add nuw nsw i32 %24, 1
%20 = icmp ugt i32 %24, 18
%21 = fcmp olt double %75, 1.000000e-02
%22 = select i1 %20, i1 true, i1 %21
br i1 %22, label %83, label %23
23: ; preds = %6, %18
%24 = phi i32 [ 0, %6 ], [ %19, %18 ]
%25 = phi double [ 5.000000e-01, %6 ], [ %75, %18 ]
%26 = tail call double @exp(double %25)
%27 = tail call double @pow(double %26, i32 %7)
%28 = fcmp oeq double %27, 0.000000e+00
br i1 %28, label %83, label %29
29: ; preds = %23
br i1 %8, label %73, label %30
30: ; preds = %29
br i1 %13, label %37, label %31
31: ; preds = %30
%32 = load double, double* %14
%33 = fmul double %26, %27
%34 = fmul double %33, %32
%35 = fadd double %34, -1.000000e+00
%36 = tail call double @llvm.fmuladd.f64(double %34, double %15, double 0.000000e+00)
br label %37
37: ; preds = %31, %30
%38 = phi double [ undef, %30 ], [ %35, %31 ]
%39 = phi double [ undef, %30 ], [ %36, %31 ]
%40 = phi i64 [ %9, %30 ], [ %16, %31 ]
%41 = phi double [ %27, %30 ], [ %33, %31 ]
%42 = phi double [ 0.000000e+00, %30 ], [ %36, %31 ]
%43 = phi double [ -1.000000e+00, %30 ], [ %35, %31 ]
br i1 %17, label %69, label %44
44: ; preds = %37, %44
%45 = phi i64 [ %66, %44 ], [ %40, %37 ]
%46 = phi double [ %60, %44 ], [ %41, %37 ]
%47 = phi double [ %65, %44 ], [ %42, %37 ]
%48 = phi double [ %62, %44 ], [ %43, %37 ]
%49 = getelementptr inbounds double, double* %0, i64 %45
%50 = load double, double* %49
%51 = fmul double %26, %46
%52 = fmul double %51, %50
%53 = fadd double %48, %52
%54 = trunc i64 %45 to i32
%55 = sitofp i32 %54 to double
%56 = tail call double @llvm.fmuladd.f64(double %52, double %55, double %47)
%57 = add nsw i64 %45, 1
%58 = getelementptr inbounds double, double* %0, i64 %57
%59 = load double, double* %58
%60 = fmul double %26, %51
%61 = fmul double %60, %59
%62 = fadd double %53, %61
%63 = trunc i64 %57 to i32
%64 = sitofp i32 %63 to double
%65 = tail call double @llvm.fmuladd.f64(double %61, double %64, double %56)
%66 = add nsw i64 %45, 2
%67 = trunc i64 %66 to i32
%68 = icmp eq i32 %10, %67
br i1 %68, label %69, label %44
69: ; preds = %44, %37
%70 = phi double [ %38, %37 ], [ %62, %44 ]
%71 = phi double [ %39, %37 ], [ %65, %44 ]
%72 = fdiv double %70, %71
br label %73
73: ; preds = %69, %29
%74 = phi double [ %72, %69 ], [ 0xFFF0000000000000, %29 ]
%75 = fsub double %25, %74
%76 = fdiv double %74, %75
%77 = fcmp ult double %76, 0.000000e+00
%78 = fneg double %76
%79 = select i1 %77, double %78, double %76
%80 = fcmp olt double %79, 1.000000e-05
br i1 %80, label %81, label %18
81: ; preds = %73
%82 = fcmp ogt double %75, 1.000000e-05
br i1 %82, label %85, label %83
83: ; preds = %23, %18, %81
%84 = tail call double @BlastKarlinLambdaBis(double* %0, i32 %1, i32 %2)
br label %85
85: ; preds = %81, %3, %83
%86 = phi double [ %84, %83 ], [ -1.000000e+00, %3 ], [ %75, %81 ]
ret double %86
}