int sumsub_pental(n) {
  long i = n - 1;
  long pentn = penta(n);
  long penti = penta(i);
  int tmp = (is_pental(pentn + penti) && is_pental(pentn - penti));
  while ((!tmp) && (i > 0)) {
    i--;
    penti = penta(i);
    tmp = (is_pental(pentn + penti) && is_pental(pentn - penti));
  }
  if (tmp) {
    return pentn - penti;
  } else {
    return 0;
  }
}


x86 assembly (clang, -O0):
<sumsub_pental>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x8(%rbp)
mov    -0x8(%rbp),%eax
sub    $0x1,%eax
cltq
mov    %rax,-0x10(%rbp)
mov    -0x8(%rbp),%edi
mov    $0x0,%al
call   1040 <penta@plt>
cltq
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1040 <penta@plt>
cltq
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rdi
add    -0x20(%rbp),%rdi
mov    $0x0,%al
call   1030 <is_pental@plt>
mov    %eax,%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x25(%rbp)
je     118f <sumsub_pental+0x6f>
mov    -0x18(%rbp),%rdi
sub    -0x20(%rbp),%rdi
mov    $0x0,%al
call   1030 <is_pental@plt>
cmp    $0x0,%eax
setne  %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x24(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x24(%rbp)
mov    %al,-0x26(%rbp)
jne    11b4 <sumsub_pental+0x94>
cmpq   $0x0,-0x10(%rbp)
setg   %al
mov    %al,-0x26(%rbp)
mov    -0x26(%rbp),%al
test   $0x1,%al
jne    11c4 <sumsub_pental+0xa4>
jmp    1228 <sumsub_pental+0x108>
mov    -0x10(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1040 <penta@plt>
cltq
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rdi
add    -0x20(%rbp),%rdi
mov    $0x0,%al
call   1030 <is_pental@plt>
mov    %eax,%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x27(%rbp)
je     1218 <sumsub_pental+0xf8>
mov    -0x18(%rbp),%rdi
sub    -0x20(%rbp),%rdi
mov    $0x0,%al
call   1030 <is_pental@plt>
cmp    $0x0,%eax
setne  %al
mov    %al,-0x27(%rbp)
mov    -0x27(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x24(%rbp)
jmp    119a <sumsub_pental+0x7a>
cmpl   $0x0,-0x24(%rbp)
je     1242 <sumsub_pental+0x122>
mov    -0x18(%rbp),%rax
sub    -0x20(%rbp),%rax
mov    %eax,-0x4(%rbp)
jmp    1249 <sumsub_pental+0x129>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<sumsub_pental>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %edi,%r15d
lea    -0x1(%r15),%eax
movslq %eax,%r14
xor    %eax,%eax
call   1040 <penta@plt>
mov    %eax,0x4(%rsp)
movslq %eax,%r13
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <penta@plt>
mov    %eax,%r12d
movslq %eax,%rbx
lea    (%rbx,%r13,1),%rdi
xor    %eax,%eax
call   1030 <is_pental@plt>
test   %eax,%eax
je     117a <sumsub_pental+0x5a>
mov    %r13,%rdi
sub    %rbx,%rdi
xor    %eax,%eax
call   1030 <is_pental@plt>
test   %eax,%eax
sete   %cl
test   %cl,%cl
jne    1180 <sumsub_pental+0x60>
jmp    11db <sumsub_pental+0xbb>
mov    $0x1,%cl
test   %cl,%cl
je     11db <sumsub_pental+0xbb>
cmp    $0x2,%r15d
jl     11db <sumsub_pental+0xbb>
cs nopw 0x0(%rax,%rax,1)
lea    -0x1(%r14),%r15
xor    %ebp,%ebp
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <penta@plt>
mov    %eax,%r12d
movslq %eax,%rbx
lea    (%rbx,%r13,1),%rdi
xor    %eax,%eax
call   1030 <is_pental@plt>
test   %eax,%eax
je     11c8 <sumsub_pental+0xa8>
mov    %r13,%rdi
sub    %rbx,%rdi
xor    %eax,%eax
call   1030 <is_pental@plt>
test   %eax,%eax
setne  %bpl
mov    %ebp,%ecx
xor    $0x1,%cl
test   %bpl,%bpl
jne    11db <sumsub_pental+0xbb>
cmp    $0x1,%r14
mov    %r15,%r14
jg     1190 <sumsub_pental+0x70>
mov    0x4(%rsp),%edx
sub    %r12d,%edx
xor    %eax,%eax
test   %cl,%cl
cmove  %edx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @sumsub_pental(i32 %0) {
%2 = alloca i32
%3 = alloca i32
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
%7 = alloca i32
store i32 %0, i32* %3
%8 = load i32, i32* %3
%9 = sub nsw i32 %8, 1
%10 = sext i32 %9 to i64
store i64 %10, i64* %4
%11 = load i32, i32* %3
%12 = call i32 (i32, ...) bitcast (i32 (...)* @penta to i32 (i32, ...)*)(i32 %11)
%13 = sext i32 %12 to i64
store i64 %13, i64* %5
%14 = load i64, i64* %4
%15 = call i32 (i64, ...) bitcast (i32 (...)* @penta to i32 (i64, ...)*)(i64 %14)
%16 = sext i32 %15 to i64
store i64 %16, i64* %6
%17 = load i64, i64* %5
%18 = load i64, i64* %6
%19 = add nsw i64 %17, %18
%20 = call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %19)
%21 = icmp ne i32 %20, 0
br i1 %21, label %22, label %28
22: ; preds = %1
%23 = load i64, i64* %5
%24 = load i64, i64* %6
%25 = sub nsw i64 %23, %24
%26 = call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %25)
%27 = icmp ne i32 %26, 0
br label %28
28: ; preds = %22, %1
%29 = phi i1 [ false, %1 ], [ %27, %22 ]
%30 = zext i1 %29 to i32
store i32 %30, i32* %7
br label %31
31: ; preds = %56, %28
%32 = load i32, i32* %7
%33 = icmp ne i32 %32, 0
br i1 %33, label %37, label %34
34: ; preds = %31
%35 = load i64, i64* %4
%36 = icmp sgt i64 %35, 0
br label %37
37: ; preds = %34, %31
%38 = phi i1 [ false, %31 ], [ %36, %34 ]
br i1 %38, label %39, label %59
39: ; preds = %37
%40 = load i64, i64* %4
%41 = add nsw i64 %40, -1
store i64 %41, i64* %4
%42 = load i64, i64* %4
%43 = call i32 (i64, ...) bitcast (i32 (...)* @penta to i32 (i64, ...)*)(i64 %42)
%44 = sext i32 %43 to i64
store i64 %44, i64* %6
%45 = load i64, i64* %5
%46 = load i64, i64* %6
%47 = add nsw i64 %45, %46
%48 = call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %47)
%49 = icmp ne i32 %48, 0
br i1 %49, label %50, label %56
50: ; preds = %39
%51 = load i64, i64* %5
%52 = load i64, i64* %6
%53 = sub nsw i64 %51, %52
%54 = call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %53)
%55 = icmp ne i32 %54, 0
br label %56
56: ; preds = %50, %39
%57 = phi i1 [ false, %39 ], [ %55, %50 ]
%58 = zext i1 %57 to i32
store i32 %58, i32* %7
br label %31
59: ; preds = %37
%60 = load i32, i32* %7
%61 = icmp ne i32 %60, 0
br i1 %61, label %62, label %67
62: ; preds = %59
%63 = load i64, i64* %5
%64 = load i64, i64* %6
%65 = sub nsw i64 %63, %64
%66 = trunc i64 %65 to i32
store i32 %66, i32* %2
br label %68
67: ; preds = %59
store i32 0, i32* %2
br label %68
68: ; preds = %67, %62
%69 = load i32, i32* %2
ret i32 %69
}

LLVM IR (-O2):
define i32 @sumsub_pental(i32 %0) {
%2 = add nsw i32 %0, -1
%3 = sext i32 %2 to i64
%4 = tail call i32 (i32, ...) bitcast (i32 (...)* @penta to i32 (i32, ...)*)(i32 %0)
%5 = sext i32 %4 to i64
%6 = tail call i32 (i64, ...) bitcast (i32 (...)* @penta to i32 (i64, ...)*)(i64 %3)
%7 = sext i32 %6 to i64
%8 = add nsw i64 %7, %5
%9 = tail call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %8)
%10 = icmp eq i32 %9, 0
br i1 %10, label %15, label %11
11: ; preds = %1
%12 = sub nsw i64 %5, %7
%13 = tail call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %12)
%14 = icmp eq i32 %13, 0
br label %15
15: ; preds = %11, %1
%16 = phi i1 [ true, %1 ], [ %14, %11 ]
%17 = icmp sgt i32 %0, 1
%18 = and i1 %16, %17
br i1 %18, label %19, label %36
19: ; preds = %15, %31
%20 = phi i64 [ %21, %31 ], [ %3, %15 ]
%21 = add nsw i64 %20, -1
%22 = tail call i32 (i64, ...) bitcast (i32 (...)* @penta to i32 (i64, ...)*)(i64 %21)
%23 = sext i32 %22 to i64
%24 = add nsw i64 %23, %5
%25 = tail call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %24)
%26 = icmp eq i32 %25, 0
br i1 %26, label %31, label %27
27: ; preds = %19
%28 = sub nsw i64 %5, %23
%29 = tail call i32 (i64, ...) bitcast (i32 (...)* @is_pental to i32 (i64, ...)*)(i64 %28)
%30 = icmp ne i32 %29, 0
br label %31
31: ; preds = %27, %19
%32 = phi i1 [ false, %19 ], [ %30, %27 ]
%33 = xor i1 %32, true
%34 = icmp sgt i64 %20, 1
%35 = select i1 %33, i1 %34, i1 false
br i1 %35, label %19, label %36
36: ; preds = %31, %15
%37 = phi i32 [ %6, %15 ], [ %22, %31 ]
%38 = phi i1 [ %16, %15 ], [ %33, %31 ]
%39 = sub i32 %4, %37
%40 = select i1 %38, i32 0, i32 %39
ret i32 %40
}