double rq_discount_factor_from_par_rate(double par_rate,
                                        unsigned short num_discount_factors,
                                        double *discount_factors) {
  unsigned short i = 0;
  double sum_dfs = 0.0;
  while (i < num_discount_factors) {
    sum_dfs += discount_factors[i];
    ++i;
  }
  return (1.0 - (par_rate * sum_dfs)) / (1.0 + par_rate);
}


x86 assembly (clang, -O0):
<rq_discount_factor_from_par_rate>:
push   %rbp
mov    %rsp,%rbp
mov    %di,%ax
movsd  %xmm0,-0x8(%rbp)
mov    %ax,-0xa(%rbp)
mov    %rsi,-0x18(%rbp)
movw   $0x0,-0x1a(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
movzwl -0x1a(%rbp),%eax
movzwl -0xa(%rbp),%ecx
cmp    %ecx,%eax
jge    115a <rq_discount_factor_from_par_rate+0x5a>
mov    -0x18(%rbp),%rax
movzwl -0x1a(%rbp),%ecx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x1a(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x1a(%rbp)
jmp    1122 <rq_discount_factor_from_par_rate+0x22>
movsd  -0x8(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm1,%xmm0
movsd  0xe79(%rip),%xmm1
addsd  %xmm1,%xmm0
movsd  0xe6d(%rip),%xmm1
addsd  -0x8(%rbp),%xmm1
divsd  %xmm1,%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<rq_discount_factor_from_par_rate>:
test   %edi,%edi
je     111e <rq_discount_factor_from_par_rate+0x1e>
movzwl %di,%ecx
lea    -0x1(%rcx),%rdx
mov    %ecx,%eax
and    $0x7,%eax
cmp    $0x7,%rdx
jae    1124 <rq_discount_factor_from_par_rate+0x24>
xorpd  %xmm2,%xmm2
xor    %edx,%edx
jmp    1168 <rq_discount_factor_from_par_rate+0x68>
xorpd  %xmm2,%xmm2
jmp    118e <rq_discount_factor_from_par_rate+0x8e>
and    $0xfffffff8,%ecx
xorpd  %xmm2,%xmm2
xor    %edx,%edx
nopl   (%rax)
addsd  (%rsi,%rdx,8),%xmm2
addsd  0x8(%rsi,%rdx,8),%xmm2
addsd  0x10(%rsi,%rdx,8),%xmm2
addsd  0x18(%rsi,%rdx,8),%xmm2
addsd  0x20(%rsi,%rdx,8),%xmm2
addsd  0x28(%rsi,%rdx,8),%xmm2
addsd  0x30(%rsi,%rdx,8),%xmm2
addsd  0x38(%rsi,%rdx,8),%xmm2
add    $0x8,%rdx
cmp    %rdx,%rcx
jne    1130 <rq_discount_factor_from_par_rate+0x30>
test   %rax,%rax
je     118e <rq_discount_factor_from_par_rate+0x8e>
lea    (%rsi,%rdx,8),%rcx
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
addsd  (%rcx,%rdx,8),%xmm2
add    $0x1,%rdx
cmp    %rdx,%rax
jne    1180 <rq_discount_factor_from_par_rate+0x80>
mulsd  %xmm0,%xmm2
movsd  0xe66(%rip),%xmm1
addsd  %xmm1,%xmm0
subsd  %xmm2,%xmm1
divsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
ret

LLVM IR (-O0):
define double @rq_discount_factor_from_par_rate(double %0, i16 zeroext %1, double* %2) {
%4 = alloca double
%5 = alloca i16
%6 = alloca double*
%7 = alloca i16
%8 = alloca double
store double %0, double* %4
store i16 %1, i16* %5
store double* %2, double** %6
store i16 0, i16* %7
store double 0.000000e+00, double* %8
br label %9
9: ; preds = %15, %3
%10 = load i16, i16* %7
%11 = zext i16 %10 to i32
%12 = load i16, i16* %5
%13 = zext i16 %12 to i32
%14 = icmp slt i32 %11, %13
br i1 %14, label %15, label %25
15: ; preds = %9
%16 = load double*, double** %6
%17 = load i16, i16* %7
%18 = zext i16 %17 to i64
%19 = getelementptr inbounds double, double* %16, i64 %18
%20 = load double, double* %19
%21 = load double, double* %8
%22 = fadd double %21, %20
store double %22, double* %8
%23 = load i16, i16* %7
%24 = add i16 %23, 1
store i16 %24, i16* %7
br label %9
25: ; preds = %9
%26 = load double, double* %4
%27 = load double, double* %8
%28 = fneg double %26
%29 = call double @llvm.fmuladd.f64(double %28, double %27, double 1.000000e+00)
%30 = load double, double* %4
%31 = fadd double 1.000000e+00, %30
%32 = fdiv double %29, %31
ret double %32
}

LLVM IR (-O2):
define double @rq_discount_factor_from_par_rate(double %0, i16 zeroext %1, double* nocapture %2) {
%4 = icmp eq i16 %1, 0
br i1 %4, label %65, label %5
5: ; preds = %3
%6 = zext i16 %1 to i64
%7 = add nsw i64 %6, -1
%8 = and i64 %6, 7
%9 = icmp ult i64 %7, 7
br i1 %9, label %50, label %10
10: ; preds = %5
%11 = and i64 %6, 65528
br label %12
12: ; preds = %12, %10
%13 = phi i64 [ 0, %10 ], [ %47, %12 ]
%14 = phi double [ 0.000000e+00, %10 ], [ %46, %12 ]
%15 = phi i64 [ 0, %10 ], [ %48, %12 ]
%16 = getelementptr inbounds double, double* %2, i64 %13
%17 = load double, double* %16
%18 = fadd double %14, %17
%19 = or i64 %13, 1
%20 = getelementptr inbounds double, double* %2, i64 %19
%21 = load double, double* %20
%22 = fadd double %18, %21
%23 = or i64 %13, 2
%24 = getelementptr inbounds double, double* %2, i64 %23
%25 = load double, double* %24
%26 = fadd double %22, %25
%27 = or i64 %13, 3
%28 = getelementptr inbounds double, double* %2, i64 %27
%29 = load double, double* %28
%30 = fadd double %26, %29
%31 = or i64 %13, 4
%32 = getelementptr inbounds double, double* %2, i64 %31
%33 = load double, double* %32
%34 = fadd double %30, %33
%35 = or i64 %13, 5
%36 = getelementptr inbounds double, double* %2, i64 %35
%37 = load double, double* %36
%38 = fadd double %34, %37
%39 = or i64 %13, 6
%40 = getelementptr inbounds double, double* %2, i64 %39
%41 = load double, double* %40
%42 = fadd double %38, %41
%43 = or i64 %13, 7
%44 = getelementptr inbounds double, double* %2, i64 %43
%45 = load double, double* %44
%46 = fadd double %42, %45
%47 = add nuw nsw i64 %13, 8
%48 = add i64 %15, 8
%49 = icmp eq i64 %48, %11
br i1 %49, label %50, label %12
50: ; preds = %12, %5
%51 = phi double [ undef, %5 ], [ %46, %12 ]
%52 = phi i64 [ 0, %5 ], [ %47, %12 ]
%53 = phi double [ 0.000000e+00, %5 ], [ %46, %12 ]
%54 = icmp eq i64 %8, 0
br i1 %54, label %65, label %55
55: ; preds = %50, %55
%56 = phi i64 [ %62, %55 ], [ %52, %50 ]
%57 = phi double [ %61, %55 ], [ %53, %50 ]
%58 = phi i64 [ %63, %55 ], [ 0, %50 ]
%59 = getelementptr inbounds double, double* %2, i64 %56
%60 = load double, double* %59
%61 = fadd double %57, %60
%62 = add nuw nsw i64 %56, 1
%63 = add i64 %58, 1
%64 = icmp eq i64 %63, %8
br i1 %64, label %65, label %55
65: ; preds = %50, %55, %3
%66 = phi double [ 0.000000e+00, %3 ], [ %51, %50 ], [ %61, %55 ]
%67 = fneg double %0
%68 = tail call double @llvm.fmuladd.f64(double %67, double %66, double 1.000000e+00)
%69 = fadd double %0, 1.000000e+00
%70 = fdiv double %68, %69
ret double %70
}