int lpfilt(int datum, int init) {
  static long y1 = 0, y2 = 0;
  static int data[10], ptr = 0;
  long y0;
  int output, halfPtr;
  if (init) {
    for (ptr = 0; ptr < 10; ++ptr)
      data[ptr] = 0;
    y1 = y2 = 0;
    ptr = 0;
  }
  halfPtr = ptr - (10 / 2);
  if (halfPtr < 0)
    halfPtr += 10;
  y0 = (y1 << 1) - y2 + datum - (data[halfPtr] << 1) + data[ptr];
  y2 = y1;
  y1 = y0;
  output = y0 / ((10 * 10) / 4);
  data[ptr] = datum;
  if (++ptr == 10)
    ptr = 0;
  return (output);
}


x86 assembly (clang, -O0):
<lpfilt>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
cmpl   $0x0,-0x8(%rbp)
je     1174 <lpfilt+0x74>
movl   $0x0,0x2f4a(%rip)
cmpl   $0xa,0x2f43(%rip)
jge    1154 <lpfilt+0x54>
movslq 0x2f36(%rip),%rcx
lea    0x2f07(%rip),%rax
movl   $0x0,(%rax,%rcx,4)
mov    0x2f22(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2f19(%rip)
jmp    111e <lpfilt+0x1e>
movq   $0x0,0x2ed9(%rip)
movq   $0x0,0x2ec6(%rip)
movl   $0x0,0x2ef4(%rip)
mov    0x2eee(%rip),%eax
sub    $0x5,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jge    1193 <lpfilt+0x93>
mov    -0x18(%rbp),%eax
add    $0xa,%eax
mov    %eax,-0x18(%rbp)
mov    0x2e96(%rip),%rax
shl    $0x1,%rax
sub    0x2e93(%rip),%rax
movslq -0x4(%rbp),%rcx
add    %rcx,%rax
movslq -0x18(%rbp),%rdx
lea    0x2e89(%rip),%rcx
mov    (%rcx,%rdx,4),%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
sub    %rcx,%rax
movslq 0x2e9e(%rip),%rdx
lea    0x2e6f(%rip),%rcx
movslq (%rcx,%rdx,4),%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    0x2e4d(%rip),%rax
mov    %rax,0x2e4e(%rip)
mov    -0x10(%rbp),%rax
mov    %rax,0x2e3b(%rip)
mov    -0x10(%rbp),%rax
mov    $0x19,%ecx
cqto
idiv   %rcx
mov    %eax,-0x14(%rbp)
mov    -0x4(%rbp),%edx
movslq 0x2e58(%rip),%rcx
lea    0x2e29(%rip),%rax
mov    %edx,(%rax,%rcx,4)
mov    0x2e48(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2e3f(%rip)
cmp    $0xa,%eax
jne    123c <lpfilt+0x13c>
movl   $0x0,0x2e2c(%rip)
mov    -0x14(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<lpfilt>:
test   %esi,%esi
je     112b <lpfilt+0x2b>
xorps  %xmm0,%xmm0
movaps %xmm0,0x2f42(%rip)
movaps %xmm0,0x2f2b(%rip)
movq   $0x0,0x2f40(%rip)
xor    %eax,%eax
xor    %edx,%edx
xor    %ecx,%ecx
xor    %r8d,%r8d
jmp    1156 <lpfilt+0x56>
movslq 0x2f36(%rip),%rax
mov    0x2ef7(%rip),%rdx
mov    0x2ef8(%rip),%rcx
lea    0x2ef9(%rip),%rsi
movslq (%rsi,%rax,4),%r8
mov    $0xfffffffb,%esi
cmp    $0x4,%rax
jg     115b <lpfilt+0x5b>
mov    $0x5,%esi
add    %eax,%esi
movslq %edi,%r10
movslq %esi,%rsi
lea    0x2ed6(%rip),%r9
mov    (%r9,%rsi,4),%esi
add    %esi,%esi
movslq %esi,%rsi
add    %rcx,%rsi
movslq %eax,%rdi
lea    (%r10,%rdx,2),%rcx
sub    %rsi,%rcx
add    %r8,%rcx
mov    %rdx,0x2eae(%rip)
movabs $0xa3d70a3d70a3d70b,%rdx
0a d7 a3
mov    %rcx,%rax
imul   %rdx
mov    %rcx,0x2e8f(%rip)
add    %rdx,%rcx
mov    %rcx,%rax
shr    $0x3f,%rax
shr    $0x4,%rcx
add    %eax,%ecx
mov    %r10d,(%r9,%rdi,4)
add    $0x1,%edi
xor    %eax,%eax
cmp    $0xa,%edi
cmovne %edi,%eax
mov    %eax,0x2ea2(%rip)
mov    %ecx,%eax
ret

LLVM IR (-O0):
@lpfilt.y1 = internal global i64 0
@lpfilt.y2 = internal global i64 0
@lpfilt.data = internal global [10 x i32] zeroinitializer
@lpfilt.ptr = internal global i32 0
define i32 @lpfilt(i32 %0, i32 %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i64
%6 = alloca i32
%7 = alloca i32
store i32 %0, i32* %3
store i32 %1, i32* %4
%8 = load i32, i32* %4
%9 = icmp ne i32 %8, 0
br i1 %9, label %10, label %22
10: ; preds = %2
store i32 0, i32* @lpfilt.ptr
br label %11
11: ; preds = %18, %10
%12 = load i32, i32* @lpfilt.ptr
%13 = icmp slt i32 %12, 10
br i1 %13, label %14, label %21
14: ; preds = %11
%15 = load i32, i32* @lpfilt.ptr
%16 = sext i32 %15 to i64
%17 = getelementptr inbounds [10 x i32], [10 x i32]* @lpfilt.data, i64 0, i64 %16
store i32 0, i32* %17
br label %18
18: ; preds = %14
%19 = load i32, i32* @lpfilt.ptr
%20 = add nsw i32 %19, 1
store i32 %20, i32* @lpfilt.ptr
br label %11
21: ; preds = %11
store i64 0, i64* @lpfilt.y2
store i64 0, i64* @lpfilt.y1
store i32 0, i32* @lpfilt.ptr
br label %22
22: ; preds = %21, %2
%23 = load i32, i32* @lpfilt.ptr
%24 = sub nsw i32 %23, 5
store i32 %24, i32* %7
%25 = load i32, i32* %7
%26 = icmp slt i32 %25, 0
br i1 %26, label %27, label %30
27: ; preds = %22
%28 = load i32, i32* %7
%29 = add nsw i32 %28, 10
store i32 %29, i32* %7
br label %30
30: ; preds = %27, %22
%31 = load i64, i64* @lpfilt.y1
%32 = shl i64 %31, 1
%33 = load i64, i64* @lpfilt.y2
%34 = sub nsw i64 %32, %33
%35 = load i32, i32* %3
%36 = sext i32 %35 to i64
%37 = add nsw i64 %34, %36
%38 = load i32, i32* %7
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds [10 x i32], [10 x i32]* @lpfilt.data, i64 0, i64 %39
%41 = load i32, i32* %40
%42 = shl i32 %41, 1
%43 = sext i32 %42 to i64
%44 = sub nsw i64 %37, %43
%45 = load i32, i32* @lpfilt.ptr
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds [10 x i32], [10 x i32]* @lpfilt.data, i64 0, i64 %46
%48 = load i32, i32* %47
%49 = sext i32 %48 to i64
%50 = add nsw i64 %44, %49
store i64 %50, i64* %5
%51 = load i64, i64* @lpfilt.y1
store i64 %51, i64* @lpfilt.y2
%52 = load i64, i64* %5
store i64 %52, i64* @lpfilt.y1
%53 = load i64, i64* %5
%54 = sdiv i64 %53, 25
%55 = trunc i64 %54 to i32
store i32 %55, i32* %6
%56 = load i32, i32* %3
%57 = load i32, i32* @lpfilt.ptr
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds [10 x i32], [10 x i32]* @lpfilt.data, i64 0, i64 %58
store i32 %56, i32* %59
%60 = load i32, i32* @lpfilt.ptr
%61 = add nsw i32 %60, 1
store i32 %61, i32* @lpfilt.ptr
%62 = icmp eq i32 %61, 10
br i1 %62, label %63, label %64
63: ; preds = %30
store i32 0, i32* @lpfilt.ptr
br label %64
64: ; preds = %63, %30
%65 = load i32, i32* %6
ret i32 %65
}

LLVM IR (-O2):
@lpfilt.y1 = internal unnamed_addr global i64 0
@lpfilt.y2 = internal unnamed_addr global i64 0
@lpfilt.data = internal unnamed_addr global [10 x i32] zeroinitializer
@lpfilt.ptr = internal unnamed_addr global i32 0
define i32 @lpfilt(i32 %0, i32 %1) {
%3 = icmp eq i32 %1, 0
br i1 %3, label %5, label %4
4: ; preds = %2
br label %14
5: ; preds = %2
%6 = load i32, i32* @lpfilt.ptr
%7 = load i64, i64* @lpfilt.y1
%8 = load i64, i64* @lpfilt.y2
%9 = sext i32 %6 to i64
%10 = getelementptr inbounds [10 x i32], [10 x i32]* @lpfilt.data, i64 0, i64 %9
%11 = load i32, i32* %10
%12 = sext i32 %11 to i64
%13 = icmp slt i32 %6, 5
br i1 %13, label %14, label %19
14: ; preds = %4, %5
%15 = phi i32 [ 0, %4 ], [ %6, %5 ]
%16 = phi i64 [ 0, %4 ], [ %7, %5 ]
%17 = phi i64 [ 0, %4 ], [ %8, %5 ]
%18 = phi i64 [ 0, %4 ], [ %12, %5 ]
br label %19
19: ; preds = %5, %14
%20 = phi i32 [ %15, %14 ], [ %6, %5 ]
%21 = phi i64 [ %16, %14 ], [ %7, %5 ]
%22 = phi i64 [ %17, %14 ], [ %8, %5 ]
%23 = phi i64 [ %18, %14 ], [ %12, %5 ]
%24 = phi i32 [ 5, %14 ], [ -5, %5 ]
%25 = add nsw i32 %24, %20
%26 = shl i64 %21, 1
%27 = sext i32 %0 to i64
%28 = sext i32 %25 to i64
%29 = getelementptr inbounds [10 x i32], [10 x i32]* @lpfilt.data, i64 0, i64 %28
%30 = load i32, i32* %29
%31 = shl i32 %30, 1
%32 = sext i32 %31 to i64
%33 = sext i32 %20 to i64
%34 = getelementptr inbounds [10 x i32], [10 x i32]* @lpfilt.data, i64 0, i64 %33
%35 = add i64 %26, %27
%36 = add i64 %22, %32
%37 = sub i64 %35, %36
%38 = add i64 %37, %23
store i64 %21, i64* @lpfilt.y2
store i64 %38, i64* @lpfilt.y1
%39 = sdiv i64 %38, 25
%40 = trunc i64 %39 to i32
store i32 %0, i32* %34
%41 = add nsw i32 %20, 1
%42 = icmp eq i32 %41, 10
%43 = select i1 %42, i32 0, i32 %41
store i32 %43, i32* @lpfilt.ptr
ret i32 %40
}