int extrairDiamantes(char *str, int half, int found) {
  if (*str == '\0') {
    return found;
  } else if (*str == '<') {
    return extrairDiamantes(str + 1, half + 1, found);
  } else if (*str == '>') {
    if (half > 0) {
      return extrairDiamantes(str + 1, half - 1, found + 1);
    } else {
      return extrairDiamantes(str + 1, half, found);
    }
  } else {
    return extrairDiamantes(str + 1, half, found);
  }
}


x86 assembly (clang, -O0):
<extrairDiamantes>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    113d <extrairDiamantes+0x2d>
mov    -0x18(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    11d7 <extrairDiamantes+0xc7>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x3c,%eax
jne    116b <extrairDiamantes+0x5b>
mov    -0x10(%rbp),%rdi
add    $0x1,%rdi
mov    -0x14(%rbp),%esi
add    $0x1,%esi
mov    -0x18(%rbp),%edx
call   1030 <extrairDiamantes@plt>
mov    %eax,-0x4(%rbp)
jmp    11d7 <extrairDiamantes+0xc7>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x3e,%eax
jne    11c1 <extrairDiamantes+0xb1>
cmpl   $0x0,-0x14(%rbp)
jle    11a6 <extrairDiamantes+0x96>
mov    -0x10(%rbp),%rdi
add    $0x1,%rdi
mov    -0x14(%rbp),%esi
sub    $0x1,%esi
mov    -0x18(%rbp),%edx
add    $0x1,%edx
call   1030 <extrairDiamantes@plt>
mov    %eax,-0x4(%rbp)
jmp    11d7 <extrairDiamantes+0xc7>
mov    -0x10(%rbp),%rdi
add    $0x1,%rdi
mov    -0x14(%rbp),%esi
mov    -0x18(%rbp),%edx
call   1030 <extrairDiamantes@plt>
mov    %eax,-0x4(%rbp)
jmp    11d7 <extrairDiamantes+0xc7>
mov    -0x10(%rbp),%rdi
add    $0x1,%rdi
mov    -0x14(%rbp),%esi
mov    -0x18(%rbp),%edx
call   1030 <extrairDiamantes@plt>
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<extrairDiamantes>:
mov    %edx,%eax
jmp    1114 <extrairDiamantes+0x14>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
test   %esi,%esi
jg     112f <extrairDiamantes+0x2f>
add    $0x1,%rdi
movzbl -0x1(%rdi),%ecx
cmp    $0x3e,%cl
je     1110 <extrairDiamantes+0x10>
test   %cl,%cl
je     1137 <extrairDiamantes+0x37>
cmp    $0x3c,%cl
jne    1114 <extrairDiamantes+0x14>
add    $0x1,%esi
jmp    1114 <extrairDiamantes+0x14>
add    $0xffffffff,%esi
add    $0x1,%eax
jmp    1114 <extrairDiamantes+0x14>
ret

LLVM IR (-O0):
define i32 @extrairDiamantes(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 i8*, i8** %5
%9 = load i8, i8* %8
%10 = sext i8 %9 to i32
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %14
12: ; preds = %3
%13 = load i32, i32* %7
store i32 %13, i32* %4
br label %54
14: ; preds = %3
%15 = load i8*, i8** %5
%16 = load i8, i8* %15
%17 = sext i8 %16 to i32
%18 = icmp eq i32 %17, 60
br i1 %18, label %19, label %26
19: ; preds = %14
%20 = load i8*, i8** %5
%21 = getelementptr inbounds i8, i8* %20, i64 1
%22 = load i32, i32* %6
%23 = add nsw i32 %22, 1
%24 = load i32, i32* %7
%25 = call i32 @extrairDiamantes(i8* %21, i32 %23, i32 %24)
store i32 %25, i32* %4
br label %54
26: ; preds = %14
%27 = load i8*, i8** %5
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 62
br i1 %30, label %31, label %48
31: ; preds = %26
%32 = load i32, i32* %6
%33 = icmp sgt i32 %32, 0
br i1 %33, label %34, label %42
34: ; preds = %31
%35 = load i8*, i8** %5
%36 = getelementptr inbounds i8, i8* %35, i64 1
%37 = load i32, i32* %6
%38 = sub nsw i32 %37, 1
%39 = load i32, i32* %7
%40 = add nsw i32 %39, 1
%41 = call i32 @extrairDiamantes(i8* %36, i32 %38, i32 %40)
store i32 %41, i32* %4
br label %54
42: ; preds = %31
%43 = load i8*, i8** %5
%44 = getelementptr inbounds i8, i8* %43, i64 1
%45 = load i32, i32* %6
%46 = load i32, i32* %7
%47 = call i32 @extrairDiamantes(i8* %44, i32 %45, i32 %46)
store i32 %47, i32* %4
br label %54
48: ; preds = %26
%49 = load i8*, i8** %5
%50 = getelementptr inbounds i8, i8* %49, i64 1
%51 = load i32, i32* %6
%52 = load i32, i32* %7
%53 = call i32 @extrairDiamantes(i8* %50, i32 %51, i32 %52)
store i32 %53, i32* %4
br label %54
54: ; preds = %48, %42, %34, %19, %12
%55 = load i32, i32* %4
ret i32 %55
}

LLVM IR (-O2):
define i32 @extrairDiamantes(i8* %0, i32 %1, i32 %2) {
br label %4
4: ; preds = %3, %19
%5 = phi i8* [ %0, %3 ], [ %20, %19 ]
%6 = phi i32 [ %1, %3 ], [ %21, %19 ]
%7 = phi i32 [ %2, %3 ], [ %22, %19 ]
br label %8
8: ; preds = %4, %15
%9 = phi i8* [ %16, %15 ], [ %5, %4 ]
%10 = phi i32 [ %17, %15 ], [ %6, %4 ]
%11 = icmp sgt i32 %10, 0
br label %12
12: ; preds = %23, %8
%13 = phi i8* [ %9, %8 ], [ %24, %23 ]
%14 = load i8, i8* %13
switch i8 %14, label %23 [
i8 0, label %25
i8 60, label %15
i8 62, label %18
]
15: ; preds = %12
%16 = getelementptr inbounds i8, i8* %13, i64 1
%17 = add nsw i32 %10, 1
br label %8
18: ; preds = %12
br i1 %11, label %19, label %23
19: ; preds = %18
%20 = getelementptr inbounds i8, i8* %13, i64 1
%21 = add nsw i32 %10, -1
%22 = add nsw i32 %7, 1
br label %4
23: ; preds = %12, %18
%24 = getelementptr inbounds i8, i8* %13, i64 1
br label %12
25: ; preds = %12
ret i32 %7
}