int palindromer(char *str, int first, int length) {
  if (length < 2)
    return 1;
  if (str[first] == str[first + (length - 1)])
    return palindromer(str, first + 1, length - 2);
  return 0;
}


x86 assembly (clang, -O0):
<palindromer>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
cmpl   $0x2,-0x18(%rbp)
jge    1138 <palindromer+0x28>
movl   $0x1,-0x4(%rbp)
jmp    1186 <palindromer+0x76>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
mov    -0x10(%rbp),%rcx
mov    -0x14(%rbp),%edx
mov    -0x18(%rbp),%esi
sub    $0x1,%esi
add    %esi,%edx
movslq %edx,%rdx
movsbl (%rcx,%rdx,1),%ecx
cmp    %ecx,%eax
jne    117f <palindromer+0x6f>
mov    -0x10(%rbp),%rdi
mov    -0x14(%rbp),%esi
add    $0x1,%esi
mov    -0x18(%rbp),%edx
sub    $0x2,%edx
call   1030 <palindromer@plt>
mov    %eax,-0x4(%rbp)
jmp    1186 <palindromer+0x76>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<palindromer>:
mov    $0x1,%eax
cmp    $0x2,%edx
jl     1155 <palindromer+0x55>
mov    %edx,%r8d
movslq %esi,%rcx
lea    (%rcx,%rdx,1),%esi
add    $0xffffffff,%esi
shl    $0x20,%rsi
add    %rdi,%rcx
movabs $0xffffffff00000000,%r10
ff ff ff
nopw   0x0(%rax,%rax,1)
movzbl (%rcx),%r9d
mov    %rsi,%rdx
sar    $0x20,%rdx
cmp    (%rdi,%rdx,1),%r9b
jne    1156 <palindromer+0x56>
lea    -0x2(%r8),%rdx
add    %r10,%rsi
add    $0x1,%rcx
cmp    $0x3,%r8
mov    %rdx,%r8
jg     1130 <palindromer+0x30>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @palindromer(i8* %0, i32 %1, i32 %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i32
store i8* %0, i8** %5
store i32 %1, i32* %6
store i32 %2, i32* %7
%8 = load i32, i32* %7
%9 = icmp slt i32 %8, 2
br i1 %9, label %10, label %11
10: ; preds = %3
store i32 1, i32* %4
br label %36
11: ; preds = %3
%12 = load i8*, i8** %5
%13 = load i32, i32* %6
%14 = sext i32 %13 to i64
%15 = getelementptr inbounds i8, i8* %12, i64 %14
%16 = load i8, i8* %15
%17 = sext i8 %16 to i32
%18 = load i8*, i8** %5
%19 = load i32, i32* %6
%20 = load i32, i32* %7
%21 = sub nsw i32 %20, 1
%22 = add nsw i32 %19, %21
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* %18, i64 %23
%25 = load i8, i8* %24
%26 = sext i8 %25 to i32
%27 = icmp eq i32 %17, %26
br i1 %27, label %28, label %35
28: ; preds = %11
%29 = load i8*, i8** %5
%30 = load i32, i32* %6
%31 = add nsw i32 %30, 1
%32 = load i32, i32* %7
%33 = sub nsw i32 %32, 2
%34 = call i32 @palindromer(i8* %29, i32 %31, i32 %33)
store i32 %34, i32* %4
br label %36
35: ; preds = %11
store i32 0, i32* %4
br label %36
36: ; preds = %35, %28, %10
%37 = load i32, i32* %4
ret i32 %37
}

LLVM IR (-O2):
define i32 @palindromer(i8* nocapture %0, i32 %1, i32 %2) {
%4 = icmp slt i32 %2, 2
br i1 %4, label %24, label %5
5: ; preds = %3
%6 = zext i32 %2 to i64
%7 = sext i32 %1 to i64
br label %8
8: ; preds = %5, %20
%9 = phi i64 [ %7, %5 ], [ %21, %20 ]
%10 = phi i64 [ %6, %5 ], [ %22, %20 ]
%11 = getelementptr inbounds i8, i8* %0, i64 %9
%12 = load i8, i8* %11
%13 = add i64 %9, 4294967295
%14 = add i64 %13, %10
%15 = shl i64 %14, 32
%16 = ashr exact i64 %15, 32
%17 = getelementptr inbounds i8, i8* %0, i64 %16
%18 = load i8, i8* %17
%19 = icmp eq i8 %12, %18
br i1 %19, label %20, label %24
20: ; preds = %8
%21 = add nsw i64 %9, 1
%22 = add nsw i64 %10, -2
%23 = icmp slt i64 %10, 4
br i1 %23, label %24, label %8
24: ; preds = %20, %8, %3
%25 = phi i32 [ 1, %3 ], [ 0, %8 ], [ 1, %20 ]
ret i32 %25
}