double sokalsneath_distance_bool(const char *u, const char *v, int n) {
  int _i = 0;
  int ntt = 0, nft = 0, ntf = 0;
  for (_i = 0; _i < n; _i++) {
    ntt += (u[_i] && v[_i]);
    ntf += (u[_i] && !v[_i]);
    nft += (!u[_i] && v[_i]);
  }
  return (2.0 * (ntf + nft)) / (2.0 * (ntf + nft) + ntt);
}


x86 assembly (clang, -O0):
<sokalsneath_distance_bool>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11ff <sokalsneath_distance_bool+0xff>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x25(%rbp)
je     116d <sokalsneath_distance_bool+0x6d>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x26(%rbp)
je     11a9 <sokalsneath_distance_bool+0xa9>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
cmpb   $0x0,(%rax,%rcx,1)
setne  %al
xor    $0xff,%al
mov    %al,-0x26(%rbp)
mov    -0x26(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
add    -0x24(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x8(%rbp),%rcx
movslq -0x18(%rbp),%rdx
xor    %eax,%eax
cmpb   $0x0,(%rcx,%rdx,1)
mov    %al,-0x27(%rbp)
jne    11e3 <sokalsneath_distance_bool+0xe3>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x27(%rbp)
mov    -0x27(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
add    -0x20(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1132 <sokalsneath_distance_bool+0x32>
mov    -0x24(%rbp),%eax
add    -0x20(%rbp),%eax
cvtsi2sd %eax,%xmm1
movsd  0xdef(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x24(%rbp),%eax
add    -0x20(%rbp),%eax
cvtsi2sd %eax,%xmm1
cvtsi2sdl -0x1c(%rbp),%xmm2
addsd  %xmm1,%xmm1
addsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<sokalsneath_distance_bool>:
test   %edx,%edx
jle    111d <sokalsneath_distance_bool+0x1d>
push   %rbx
mov    %edx,%r8d
cmp    $0x8,%edx
jae    1129 <sokalsneath_distance_bool+0x29>
xor    %r11d,%r11d
xor    %r10d,%r10d
xor    %eax,%eax
xor    %r9d,%r9d
jmp    12fe <sokalsneath_distance_bool+0x1fe>
xorpd  %xmm0,%xmm0
xor    %r9d,%r9d
jmp    12d0 <sokalsneath_distance_bool+0x1d0>
mov    %r8d,%r11d
and    $0xfffffff8,%r11d
pxor   %xmm8,%xmm8
xor    %edx,%edx
pcmpeqd %xmm9,%xmm9
movdqa 0xebb(%rip),%xmm10
pxor   %xmm11,%xmm11
pxor   %xmm12,%xmm12
pxor   %xmm13,%xmm13
pxor   %xmm14,%xmm14
pxor   %xmm15,%xmm15
pxor   %xmm7,%xmm7
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movd   (%rdi,%rdx,1),%xmm0
movd   0x4(%rdi,%rdx,1),%xmm2
pcmpeqb %xmm8,%xmm0
movdqa %xmm0,%xmm5
pxor   %xmm9,%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm1
psrad  $0x18,%xmm1
pcmpeqb %xmm8,%xmm2
movdqa %xmm2,%xmm6
pxor   %xmm9,%xmm2
punpcklbw %xmm2,%xmm0
punpcklwd %xmm0,%xmm0
psrad  $0x18,%xmm0
movd   (%rsi,%rdx,1),%xmm2
movd   0x4(%rsi,%rdx,1),%xmm3
pcmpeqb %xmm8,%xmm2
movdqa %xmm2,%xmm4
pcmpeqb %xmm8,%xmm3
punpcklbw %xmm2,%xmm2
punpcklwd %xmm2,%xmm2
pand   %xmm10,%xmm2
pand   %xmm1,%xmm2
paddd  %xmm2,%xmm11
movdqa %xmm3,%xmm2
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
pand   %xmm10,%xmm3
pand   %xmm0,%xmm3
paddd  %xmm3,%xmm12
pxor   %xmm9,%xmm4
punpcklbw %xmm4,%xmm3
punpcklwd %xmm3,%xmm3
psrad  $0x18,%xmm3
pand   %xmm3,%xmm1
psubd  %xmm1,%xmm15
pxor   %xmm9,%xmm2
punpcklbw %xmm2,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm1
pand   %xmm1,%xmm0
psubd  %xmm0,%xmm7
punpcklbw %xmm5,%xmm5
punpcklwd %xmm5,%xmm5
pand   %xmm10,%xmm5
pand   %xmm3,%xmm5
paddd  %xmm5,%xmm13
punpcklbw %xmm6,%xmm6
punpcklwd %xmm6,%xmm6
pand   %xmm10,%xmm6
pand   %xmm1,%xmm6
paddd  %xmm6,%xmm14
add    $0x8,%rdx
cmp    %rdx,%r11
jne    1170 <sokalsneath_distance_bool+0x70>
paddd  %xmm15,%xmm7
pshufd $0xee,%xmm7,%xmm0
paddd  %xmm7,%xmm0
pshufd $0x55,%xmm0,%xmm1
paddd  %xmm0,%xmm1
movd   %xmm1,%r9d
paddd  %xmm13,%xmm14
pshufd $0xee,%xmm14,%xmm0
paddd  %xmm14,%xmm0
pshufd $0x55,%xmm0,%xmm1
paddd  %xmm0,%xmm1
movd   %xmm1,%eax
paddd  %xmm11,%xmm12
pshufd $0xee,%xmm12,%xmm0
paddd  %xmm12,%xmm0
pshufd $0x55,%xmm0,%xmm1
paddd  %xmm0,%xmm1
movd   %xmm1,%r10d
cmp    %r8,%r11
jne    12fe <sokalsneath_distance_bool+0x1fe>
add    %eax,%r10d
xorps  %xmm0,%xmm0
cvtsi2sd %r10d,%xmm0
pop    %rbx
addsd  %xmm0,%xmm0
xorps  %xmm1,%xmm1
cvtsi2sd %r9d,%xmm1
addsd  %xmm0,%xmm1
divsd  %xmm1,%xmm0
ret
cs nopw 0x0(%rax,%rax,1)
nop
movzbl %dl,%ecx
add    %ecx,%eax
add    $0x1,%r11
cmp    %r11,%r8
je     12c4 <sokalsneath_distance_bool+0x1c4>
movzbl (%rsi,%r11,1),%ecx
test   %cl,%cl
setne  %dl
cmpb   $0x0,(%rdi,%r11,1)
je     12f0 <sokalsneath_distance_bool+0x1f0>
xor    %edx,%edx
xor    %ebx,%ebx
test   %cl,%cl
setne  %dl
sete   %bl
add    %edx,%r9d
add    %ebx,%r10d
xor    %edx,%edx
jmp    12f0 <sokalsneath_distance_bool+0x1f0>

LLVM IR (-O0):
define double @sokalsneath_distance_bool(i8* %0, i8* %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i8* %0, i8** %4
store i8* %1, i8** %5
store i32 %2, i32* %6
store i32 0, i32* %7
store i32 0, i32* %8
store i32 0, i32* %9
store i32 0, i32* %10
store i32 0, i32* %7
br label %11
11: ; preds = %75, %3
%12 = load i32, i32* %7
%13 = load i32, i32* %6
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %78
15: ; preds = %11
%16 = load i8*, i8** %4
%17 = load i32, i32* %7
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds i8, i8* %16, i64 %18
%20 = load i8, i8* %19
%21 = sext i8 %20 to i32
%22 = icmp ne i32 %21, 0
br i1 %22, label %23, label %31
23: ; preds = %15
%24 = load i8*, i8** %5
%25 = load i32, i32* %7
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i8, i8* %24, i64 %26
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = icmp ne i32 %29, 0
br label %31
31: ; preds = %23, %15
%32 = phi i1 [ false, %15 ], [ %30, %23 ]
%33 = zext i1 %32 to i32
%34 = load i32, i32* %8
%35 = add nsw i32 %34, %33
store i32 %35, i32* %8
%36 = load i8*, i8** %4
%37 = load i32, i32* %7
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds i8, i8* %36, i64 %38
%40 = load i8, i8* %39
%41 = sext i8 %40 to i32
%42 = icmp ne i32 %41, 0
br i1 %42, label %43, label %51
43: ; preds = %31
%44 = load i8*, i8** %5
%45 = load i32, i32* %7
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds i8, i8* %44, i64 %46
%48 = load i8, i8* %47
%49 = icmp ne i8 %48, 0
%50 = xor i1 %49, true
br label %51
51: ; preds = %43, %31
%52 = phi i1 [ false, %31 ], [ %50, %43 ]
%53 = zext i1 %52 to i32
%54 = load i32, i32* %10
%55 = add nsw i32 %54, %53
store i32 %55, i32* %10
%56 = load i8*, i8** %4
%57 = load i32, i32* %7
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds i8, i8* %56, i64 %58
%60 = load i8, i8* %59
%61 = icmp ne i8 %60, 0
br i1 %61, label %70, label %62
62: ; preds = %51
%63 = load i8*, i8** %5
%64 = load i32, i32* %7
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds i8, i8* %63, i64 %65
%67 = load i8, i8* %66
%68 = sext i8 %67 to i32
%69 = icmp ne i32 %68, 0
br label %70
70: ; preds = %62, %51
%71 = phi i1 [ false, %51 ], [ %69, %62 ]
%72 = zext i1 %71 to i32
%73 = load i32, i32* %9
%74 = add nsw i32 %73, %72
store i32 %74, i32* %9
br label %75
75: ; preds = %70
%76 = load i32, i32* %7
%77 = add nsw i32 %76, 1
store i32 %77, i32* %7
br label %11
78: ; preds = %11
%79 = load i32, i32* %10
%80 = load i32, i32* %9
%81 = add nsw i32 %79, %80
%82 = sitofp i32 %81 to double
%83 = fmul double 2.000000e+00, %82
%84 = load i32, i32* %10
%85 = load i32, i32* %9
%86 = add nsw i32 %84, %85
%87 = sitofp i32 %86 to double
%88 = load i32, i32* %8
%89 = sitofp i32 %88 to double
%90 = call double @llvm.fmuladd.f64(double 2.000000e+00, double %87, double %89)
%91 = fdiv double %83, %90
ret double %91
}

LLVM IR (-O2):
define double @sokalsneath_distance_bool(i8* nocapture %0, i8* nocapture %1, i32 %2) {
%4 = icmp sgt i32 %2, 0
br i1 %4, label %5, label %104
5: ; preds = %3
%6 = zext i32 %2 to i64
%7 = icmp ult i32 %2, 8
br i1 %7, label %68, label %8
8: ; preds = %5
%9 = and i64 %6, 4294967288
br label %10
10: ; preds = %10, %8
%11 = phi i64 [ 0, %8 ], [ %58, %10 ]
%12 = phi <4 x i32> [ zeroinitializer, %8 ], [ %39, %10 ]
%13 = phi <4 x i32> [ zeroinitializer, %8 ], [ %43, %10 ]
%14 = phi <4 x i32> [ zeroinitializer, %8 ], [ %56, %10 ]
%15 = phi <4 x i32> [ zeroinitializer, %8 ], [ %57, %10 ]
%16 = phi <4 x i32> [ zeroinitializer, %8 ], [ %47, %10 ]
%17 = phi <4 x i32> [ zeroinitializer, %8 ], [ %51, %10 ]
%18 = getelementptr inbounds i8, i8* %0, i64 %11
%19 = bitcast i8* %18 to <4 x i8>*
%20 = load <4 x i8>, <4 x i8>* %19
%21 = getelementptr inbounds i8, i8* %18, i64 4
%22 = bitcast i8* %21 to <4 x i8>*
%23 = load <4 x i8>, <4 x i8>* %22
%24 = icmp eq <4 x i8> %20, zeroinitializer
%25 = icmp eq <4 x i8> %23, zeroinitializer
%26 = getelementptr inbounds i8, i8* %1, i64 %11
%27 = bitcast i8* %26 to <4 x i8>*
%28 = load <4 x i8>, <4 x i8>* %27
%29 = getelementptr inbounds i8, i8* %26, i64 4
%30 = bitcast i8* %29 to <4 x i8>*
%31 = load <4 x i8>, <4 x i8>* %30
%32 = icmp ne <4 x i8> %28, zeroinitializer
%33 = icmp ne <4 x i8> %31, zeroinitializer
%34 = icmp eq <4 x i8> %28, zeroinitializer
%35 = icmp eq <4 x i8> %31, zeroinitializer
%36 = xor <4 x i1> %24, <i1 true, i1 true, i1 true, i1 true>
%37 = select <4 x i1> %36, <4 x i1> %34, <4 x i1> zeroinitializer
%38 = zext <4 x i1> %37 to <4 x i32>
%39 = add <4 x i32> %12, %38
%40 = xor <4 x i1> %25, <i1 true, i1 true, i1 true, i1 true>
%41 = select <4 x i1> %40, <4 x i1> %35, <4 x i1> zeroinitializer
%42 = zext <4 x i1> %41 to <4 x i32>
%43 = add <4 x i32> %13, %42
%44 = xor <4 x i1> %24, <i1 true, i1 true, i1 true, i1 true>
%45 = select <4 x i1> %44, <4 x i1> %32, <4 x i1> zeroinitializer
%46 = zext <4 x i1> %45 to <4 x i32>
%47 = add <4 x i32> %16, %46
%48 = xor <4 x i1> %25, <i1 true, i1 true, i1 true, i1 true>
%49 = select <4 x i1> %48, <4 x i1> %33, <4 x i1> zeroinitializer
%50 = zext <4 x i1> %49 to <4 x i32>
%51 = add <4 x i32> %17, %50
%52 = select <4 x i1> %24, <4 x i1> %32, <4 x i1> zeroinitializer
%53 = select <4 x i1> %25, <4 x i1> %33, <4 x i1> zeroinitializer
%54 = zext <4 x i1> %52 to <4 x i32>
%55 = zext <4 x i1> %53 to <4 x i32>
%56 = add <4 x i32> %14, %54
%57 = add <4 x i32> %15, %55
%58 = add nuw i64 %11, 8
%59 = icmp eq i64 %58, %9
br i1 %59, label %60, label %10
60: ; preds = %10
%61 = add <4 x i32> %51, %47
%62 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %61)
%63 = add <4 x i32> %57, %56
%64 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %63)
%65 = add <4 x i32> %43, %39
%66 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %65)
%67 = icmp eq i64 %9, %6
br i1 %67, label %98, label %68
68: ; preds = %5, %60
%69 = phi i64 [ 0, %5 ], [ %9, %60 ]
%70 = phi i32 [ 0, %5 ], [ %66, %60 ]
%71 = phi i32 [ 0, %5 ], [ %64, %60 ]
%72 = phi i32 [ 0, %5 ], [ %62, %60 ]
br label %73
73: ; preds = %68, %90
%74 = phi i64 [ %96, %90 ], [ %69, %68 ]
%75 = phi i32 [ %91, %90 ], [ %70, %68 ]
%76 = phi i32 [ %95, %90 ], [ %71, %68 ]
%77 = phi i32 [ %92, %90 ], [ %72, %68 ]
%78 = getelementptr inbounds i8, i8* %0, i64 %74
%79 = load i8, i8* %78
%80 = icmp eq i8 %79, 0
%81 = getelementptr inbounds i8, i8* %1, i64 %74
%82 = load i8, i8* %81
%83 = icmp ne i8 %82, 0
br i1 %80, label %90, label %84
84: ; preds = %73
%85 = zext i1 %83 to i32
%86 = add nuw nsw i32 %77, %85
%87 = icmp eq i8 %82, 0
%88 = zext i1 %87 to i32
%89 = add nuw nsw i32 %75, %88
br label %90
90: ; preds = %73, %84
%91 = phi i32 [ %89, %84 ], [ %75, %73 ]
%92 = phi i32 [ %86, %84 ], [ %77, %73 ]
%93 = phi i1 [ false, %84 ], [ %83, %73 ]
%94 = zext i1 %93 to i32
%95 = add nuw nsw i32 %76, %94
%96 = add nuw nsw i64 %74, 1
%97 = icmp eq i64 %96, %6
br i1 %97, label %98, label %73
98: ; preds = %90, %60
%99 = phi i32 [ %66, %60 ], [ %91, %90 ]
%100 = phi i32 [ %62, %60 ], [ %92, %90 ]
%101 = phi i32 [ %64, %60 ], [ %95, %90 ]
%102 = add nuw nsw i32 %99, %101
%103 = sitofp i32 %102 to double
br label %104
104: ; preds = %98, %3
%105 = phi i32 [ 0, %3 ], [ %100, %98 ]
%106 = phi double [ 0.000000e+00, %3 ], [ %103, %98 ]
%107 = fmul double %106, 2.000000e+00
%108 = sitofp i32 %105 to double
%109 = tail call double @llvm.fmuladd.f64(double %106, double 2.000000e+00, double %108)
%110 = fdiv double %107, %109
ret double %110
}