#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 rd_kutorsis(const double *x, size_t nmemb) {
  double m1 = 0.0, m2 = 0.0, m3 = 0.0, m4 = 0.0;
  double i1, term1, delta, delta_n, delta_n2;
  int i = 0;
  for (; i < nmemb; ++i) {
    i1 = (double)(i + 1);
    delta = x[i] - m1;
    delta_n = delta / i1;
    delta_n2 = delta_n * delta_n;
    term1 = delta * delta_n * i;
    m1 += delta_n;
    m4 += term1 * delta_n2 * (i1 * i1 - 3 * i1 + 3) + 6 * delta_n2 * m2 -
          4 * delta_n * m3;
    m3 += term1 * delta_n * (i1 - 2) - 3 * delta_n * m2;
    m2 += term1;
  }
  return (nmemb * m4) / (m2 * m2) - 3;
}


x86 assembly (clang, -O0):
<rd_kutorsis>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x18(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x0,-0x5c(%rbp)
movslq -0x5c(%rbp),%rax
cmp    -0x10(%rbp),%rax
jae    12c0 <rd_kutorsis+0x1c0>
mov    -0x5c(%rbp),%eax
add    $0x1,%eax
cvtsi2sd %eax,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x48(%rbp),%xmm0
divsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
mulsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x48(%rbp),%xmm0
mulsd  -0x50(%rbp),%xmm0
cvtsi2sdl -0x5c(%rbp),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x50(%rbp),%xmm0
addsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
movsd  -0x40(%rbp),%xmm1
mulsd  -0x58(%rbp),%xmm1
movsd  -0x38(%rbp),%xmm2
movsd  -0x38(%rbp),%xmm3
movsd  0xe38(%rip),%xmm0
mulsd  -0x38(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm3,%xmm2
addsd  %xmm0,%xmm2
movsd  0xe0c(%rip),%xmm0
addsd  %xmm0,%xmm2
movsd  0xe18(%rip),%xmm0
mulsd  -0x58(%rbp),%xmm0
mulsd  -0x20(%rbp),%xmm0
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
movsd  0xdf6(%rip),%xmm0
mulsd  -0x50(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
addsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x40(%rbp),%xmm0
mulsd  -0x50(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm2
movsd  0xda4(%rip),%xmm1
subsd  %xmm1,%xmm2
movsd  0xd90(%rip),%xmm1
mulsd  -0x50(%rbp),%xmm1
mulsd  -0x20(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x40(%rbp),%xmm0
addsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x5c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x5c(%rbp)
jmp    1133 <rd_kutorsis+0x33>
movaps 0xd59(%rip),%xmm1
movq   -0x10(%rbp),%xmm0
punpckldq %xmm1,%xmm0
movapd 0xd58(%rip),%xmm1
subpd  %xmm1,%xmm0
movaps %xmm0,%xmm1
unpckhpd %xmm0,%xmm0
addsd  %xmm1,%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  -0x20(%rbp),%xmm1
mulsd  -0x20(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  0xcfe(%rip),%xmm1
subsd  %xmm1,%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<rd_kutorsis>:
test   %rsi,%rsi
je     1209 <rd_kutorsis+0x109>
xorpd  %xmm14,%xmm14
xor    %ecx,%ecx
movsd  0xee7(%rip),%xmm12
movsd  0xee6(%rip),%xmm8
movsd  0xee5(%rip),%xmm9
movsd  0xee4(%rip),%xmm10
movsd  0xee3(%rip),%xmm11
xorpd  %xmm15,%xmm15
xorpd  %xmm4,%xmm4
xorpd  %xmm13,%xmm13
nopl   0x0(%rax,%rax,1)
xorps  %xmm5,%xmm5
cvtsi2sd %ecx,%xmm5
movsd  (%rdi,%rcx,8),%xmm6
lea    0x1(%rcx),%rax
xorps  %xmm1,%xmm1
cvtsi2sd %eax,%xmm1
subsd  %xmm14,%xmm6
movapd %xmm6,%xmm3
divsd  %xmm1,%xmm3
movapd %xmm3,%xmm2
mulsd  %xmm3,%xmm2
mulsd  %xmm3,%xmm6
mulsd  %xmm6,%xmm5
addsd  %xmm3,%xmm14
movapd %xmm2,%xmm6
mulsd  %xmm5,%xmm6
movapd %xmm1,%xmm7
mulsd  %xmm12,%xmm7
movapd %xmm1,%xmm0
mulsd  %xmm1,%xmm0
addsd  %xmm7,%xmm0
addsd  %xmm8,%xmm0
mulsd  %xmm6,%xmm0
mulsd  %xmm9,%xmm2
mulsd  %xmm15,%xmm2
addsd  %xmm0,%xmm2
movapd %xmm3,%xmm0
mulsd  %xmm10,%xmm0
mulsd  %xmm4,%xmm0
addsd  %xmm2,%xmm0
addsd  %xmm0,%xmm13
movapd %xmm3,%xmm0
mulsd  %xmm5,%xmm0
addsd  %xmm11,%xmm1
mulsd  %xmm0,%xmm1
mulsd  %xmm12,%xmm3
mulsd  %xmm15,%xmm3
addsd  %xmm1,%xmm3
addsd  %xmm3,%xmm4
addsd  %xmm5,%xmm15
mov    %rax,%rcx
cmp    %rax,%rsi
jne    1150 <rd_kutorsis+0x50>
jmp    1213 <rd_kutorsis+0x113>
xorpd  %xmm13,%xmm13
xorpd  %xmm15,%xmm15
movq   %rsi,%xmm1
punpckldq 0xe10(%rip),%xmm1
subpd  0xe18(%rip),%xmm1
movapd %xmm1,%xmm0
unpckhpd %xmm1,%xmm0
addsd  %xmm1,%xmm0
mulsd  %xmm13,%xmm0
mulsd  %xmm15,%xmm15
divsd  %xmm15,%xmm0
addsd  0xdb5(%rip),%xmm0
ret

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

LLVM IR (-O2):
define double @rd_kutorsis(double* nocapture %0, i64 %1) {
%3 = icmp eq i64 %1, 0
br i1 %3, label %41, label %4
4: ; preds = %2, %4
%5 = phi i64 [ %10, %4 ], [ 0, %2 ]
%6 = phi double [ %22, %4 ], [ 0.000000e+00, %2 ]
%7 = phi double [ %39, %4 ], [ 0.000000e+00, %2 ]
%8 = phi double [ %38, %4 ], [ 0.000000e+00, %2 ]
%9 = phi double [ %32, %4 ], [ 0.000000e+00, %2 ]
%10 = add nuw nsw i64 %5, 1
%11 = trunc i64 %10 to i32
%12 = sitofp i32 %11 to double
%13 = getelementptr inbounds double, double* %0, i64 %5
%14 = load double, double* %13
%15 = fsub double %14, %6
%16 = fdiv double %15, %12
%17 = fmul double %16, %16
%18 = fmul double %15, %16
%19 = trunc i64 %5 to i32
%20 = sitofp i32 %19 to double
%21 = fmul double %18, %20
%22 = fadd double %6, %16
%23 = fmul double %17, %21
%24 = fmul double %12, -3.000000e+00
%25 = tail call double @llvm.fmuladd.f64(double %12, double %12, double %24)
%26 = fadd double %25, 3.000000e+00
%27 = fmul double %17, 6.000000e+00
%28 = fmul double %7, %27
%29 = tail call double @llvm.fmuladd.f64(double %23, double %26, double %28)
%30 = fmul double %16, -4.000000e+00
%31 = tail call double @llvm.fmuladd.f64(double %30, double %8, double %29)
%32 = fadd double %9, %31
%33 = fmul double %16, %21
%34 = fadd double %12, -2.000000e+00
%35 = fmul double %16, -3.000000e+00
%36 = fmul double %7, %35
%37 = tail call double @llvm.fmuladd.f64(double %33, double %34, double %36)
%38 = fadd double %8, %37
%39 = fadd double %7, %21
%40 = icmp eq i64 %10, %1
br i1 %40, label %41, label %4
41: ; preds = %4, %2
%42 = phi double [ 0.000000e+00, %2 ], [ %32, %4 ]
%43 = phi double [ 0.000000e+00, %2 ], [ %39, %4 ]
%44 = uitofp i64 %1 to double
%45 = fmul double %42, %44
%46 = fmul double %43, %43
%47 = fdiv double %45, %46
%48 = fadd double %47, -3.000000e+00
ret double %48
}