double dchoose(unsigned int n, unsigned int k) {
  unsigned int i;
  double r = 1.0;
  if (k > n)
    return 0;
  for (i = 1; i <= k; i++)
    r = (r * n--) / i;
  return r;
}


x86 assembly (clang, -O0):
<dchoose>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0xc(%rbp)
mov    %esi,-0x10(%rbp)
movsd  0xeee(%rip),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jbe    1130 <dchoose+0x30>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1185 <dchoose+0x85>
movl   $0x1,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x10(%rbp),%eax
ja     117b <dchoose+0x7b>
movsd  -0x20(%rbp),%xmm0
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0xc(%rbp)
cvtsi2sd %rax,%xmm1
mulsd  %xmm1,%xmm0
mov    -0x14(%rbp),%eax
cvtsi2sd %rax,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1137 <dchoose+0x37>
movsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<dchoose>:
xorpd  %xmm0,%xmm0
cmp    %edi,%esi
ja     11cb <dchoose+0xcb>
test   %esi,%esi
je     1130 <dchoose+0x30>
cmp    $0x1,%esi
jne    1139 <dchoose+0x39>
movsd  0xee3(%rip),%xmm0
movapd %xmm0,%xmm1
test   $0x1,%sil
jne    11b9 <dchoose+0xb9>
jmp    11cb <dchoose+0xcb>
movsd  0xec8(%rip),%xmm0
ret
mov    %esi,%r8d
and    $0xfffffffe,%r8d
neg    %r8d
mov    $0x1,%ecx
movsd  0xeb0(%rip),%xmm0
movsd  0xeb0(%rip),%xmm1
movapd %xmm0,%xmm2
nopl   0x0(%rax)
mov    %edi,%edx
mov    %edi,%edi
xorps  %xmm3,%xmm3
cvtsi2sd %rdi,%xmm3
mulsd  %xmm0,%xmm3
divsd  %xmm2,%xmm3
lea    0x1(%rcx),%eax
lea    -0x2(%rdx),%edi
add    $0xffffffff,%edx
xorps  %xmm0,%xmm0
cvtsi2sd %rdx,%xmm0
mulsd  %xmm3,%xmm0
xorps  %xmm3,%xmm3
cvtsi2sd %rax,%xmm3
divsd  %xmm3,%xmm0
addsd  %xmm1,%xmm2
mov    %ecx,%eax
add    $0x2,%ecx
add    %r8d,%eax
add    $0x2,%eax
cmp    $0x1,%eax
jne    1160 <dchoose+0x60>
mov    %ecx,%eax
xorps  %xmm1,%xmm1
cvtsi2sd %rax,%xmm1
test   $0x1,%sil
je     11cb <dchoose+0xcb>
mov    %edi,%eax
xorps  %xmm2,%xmm2
cvtsi2sd %rax,%xmm2
mulsd  %xmm2,%xmm0
divsd  %xmm1,%xmm0
ret

LLVM IR (-O0):
define double @dchoose(i32 %0, i32 %1) {
%3 = alloca double
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca double
store i32 %0, i32* %4
store i32 %1, i32* %5
store double 1.000000e+00, double* %7
%8 = load i32, i32* %5
%9 = load i32, i32* %4
%10 = icmp ugt i32 %8, %9
br i1 %10, label %11, label %12
11: ; preds = %2
store double 0.000000e+00, double* %3
br label %31
12: ; preds = %2
store i32 1, i32* %6
br label %13
13: ; preds = %26, %12
%14 = load i32, i32* %6
%15 = load i32, i32* %5
%16 = icmp ule i32 %14, %15
br i1 %16, label %17, label %29
17: ; preds = %13
%18 = load double, double* %7
%19 = load i32, i32* %4
%20 = add i32 %19, -1
store i32 %20, i32* %4
%21 = uitofp i32 %19 to double
%22 = fmul double %18, %21
%23 = load i32, i32* %6
%24 = uitofp i32 %23 to double
%25 = fdiv double %22, %24
store double %25, double* %7
br label %26
26: ; preds = %17
%27 = load i32, i32* %6
%28 = add i32 %27, 1
store i32 %28, i32* %6
br label %13
29: ; preds = %13
%30 = load double, double* %7
store double %30, double* %3
br label %31
31: ; preds = %29, %11
%32 = load double, double* %3
ret double %32
}

LLVM IR (-O2):
define double @dchoose(i32 %0, i32 %1) {
%3 = icmp ugt i32 %1, %0
br i1 %3, label %42, label %4
4: ; preds = %2
%5 = icmp eq i32 %1, 0
br i1 %5, label %42, label %6
6: ; preds = %4
%7 = and i32 %1, 1
%8 = icmp eq i32 %1, 1
br i1 %8, label %32, label %9
9: ; preds = %6
%10 = and i32 %1, -2
br label %11
11: ; preds = %11, %9
%12 = phi double [ 1.000000e+00, %9 ], [ %26, %11 ]
%13 = phi i32 [ 1, %9 ], [ %27, %11 ]
%14 = phi i32 [ %0, %9 ], [ %22, %11 ]
%15 = phi i32 [ 0, %9 ], [ %28, %11 ]
%16 = add i32 %14, -1
%17 = uitofp i32 %14 to double
%18 = fmul double %12, %17
%19 = uitofp i32 %13 to double
%20 = fdiv double %18, %19
%21 = add nuw i32 %13, 1
%22 = add i32 %14, -2
%23 = uitofp i32 %16 to double
%24 = fmul double %20, %23
%25 = uitofp i32 %21 to double
%26 = fdiv double %24, %25
%27 = add nuw i32 %13, 2
%28 = add i32 %15, 2
%29 = icmp eq i32 %28, %10
br i1 %29, label %30, label %11
30: ; preds = %11
%31 = uitofp i32 %27 to double
br label %32
32: ; preds = %30, %6
%33 = phi double [ undef, %6 ], [ %26, %30 ]
%34 = phi double [ 1.000000e+00, %6 ], [ %26, %30 ]
%35 = phi double [ 1.000000e+00, %6 ], [ %31, %30 ]
%36 = phi i32 [ %0, %6 ], [ %22, %30 ]
%37 = icmp eq i32 %7, 0
br i1 %37, label %42, label %38
38: ; preds = %32
%39 = uitofp i32 %36 to double
%40 = fmul double %34, %39
%41 = fdiv double %40, %35
br label %42
42: ; preds = %38, %32, %4, %2
%43 = phi double [ 0.000000e+00, %2 ], [ 1.000000e+00, %4 ], [ %33, %32 ], [ %41, %38 ]
ret double %43
}