#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 */
int /*<<< orphan*/ printf(char *, ...);
int /*<<< orphan*/ scanf(char *, int *);
int main() {
  int a, fac = 1;
  printf("\tFactorial\n\n");
  printf("Introduzca el número para calcular su factorial: ");
  scanf("%d", &a);
  while (a >= 1) {
    fac *= a;
    a--;
  }
  printf("El factorial es: %d\n", fac);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x1,-0xc(%rbp)
lea    0xec3(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
lea    0xec2(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
lea    0xee7(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
cmpl   $0x1,-0x8(%rbp)
jl     1184 <main+0x64>
mov    -0x8(%rbp),%eax
imul   -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x8(%rbp)
jmp    1162 <main+0x42>
mov    -0xc(%rbp),%esi
lea    0xeb5(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rax
lea    0xfb3(%rip),%rdi
call   1030 <puts@plt>
lea    0xf5c(%rip),%rdi
xor    %eax,%eax
call   1040 <printf@plt>
lea    0xf81(%rip),%rdi
lea    0x4(%rsp),%rsi
call   1050 <scanf@plt>
mov    0x4(%rsp),%eax
mov    $0x1,%esi
test   %eax,%eax
jle    13a5 <main+0x275>
cmp    $0x8,%eax
jb     1390 <main+0x260>
mov    %eax,%ecx
and    $0xfffffff8,%ecx
movd   %eax,%xmm0
pshufd $0x0,%xmm0,%xmm6
paddd  0xe74(%rip),%xmm6
lea    -0x8(%rcx),%edi
mov    %edi,%esi
shr    $0x3,%esi
add    $0x1,%esi
mov    %esi,%edx
and    $0x3,%edx
cmp    $0x18,%edi
jae    11b2 <main+0x82>
movdqa 0xe67(%rip),%xmm1
movdqa %xmm1,%xmm2
jmp    12e1 <main+0x1b1>
and    $0xfffffffc,%esi
movdqa 0xe53(%rip),%xmm1
movdqa 0xe6a(%rip),%xmm9
movdqa 0xe71(%rip),%xmm10
movdqa 0xe78(%rip),%xmm11
movdqa 0xe7f(%rip),%xmm12
movdqa 0xe86(%rip),%xmm13
movdqa 0xe8d(%rip),%xmm14
movdqa 0xe94(%rip),%xmm15
movdqa %xmm1,%xmm2
movdqa %xmm6,%xmm0
paddd  0xe14(%rip),%xmm0
pshufd $0xf5,%xmm6,%xmm7
pshufd $0xf5,%xmm1,%xmm3
pmuludq %xmm7,%xmm3
pmuludq %xmm6,%xmm1
pshufd $0xf5,%xmm2,%xmm7
pshufd $0xf5,%xmm0,%xmm4
pmuludq %xmm7,%xmm4
pmuludq %xmm2,%xmm0
movdqa %xmm6,%xmm2
paddd  %xmm9,%xmm2
movdqa %xmm6,%xmm7
paddd  %xmm10,%xmm7
pmuludq %xmm2,%xmm1
pshufd $0xf5,%xmm2,%xmm2
pmuludq %xmm3,%xmm2
pmuludq %xmm7,%xmm0
pshufd $0xf5,%xmm7,%xmm3
pmuludq %xmm4,%xmm3
movdqa %xmm6,%xmm4
paddd  %xmm11,%xmm4
movdqa %xmm6,%xmm7
paddd  %xmm12,%xmm7
pshufd $0xf5,%xmm4,%xmm5
pmuludq %xmm2,%xmm5
pmuludq %xmm1,%xmm4
pshufd $0xf5,%xmm7,%xmm8
pmuludq %xmm3,%xmm8
pmuludq %xmm0,%xmm7
movdqa %xmm6,%xmm0
paddd  %xmm13,%xmm0
movdqa %xmm6,%xmm3
paddd  %xmm14,%xmm3
pmuludq %xmm0,%xmm4
pshufd $0xe8,%xmm4,%xmm1
pshufd $0xf5,%xmm0,%xmm0
pmuludq %xmm5,%xmm0
pshufd $0xe8,%xmm0,%xmm0
punpckldq %xmm0,%xmm1
pmuludq %xmm3,%xmm7
pshufd $0xe8,%xmm7,%xmm2
pshufd $0xf5,%xmm3,%xmm0
pmuludq %xmm8,%xmm0
pshufd $0xe8,%xmm0,%xmm0
punpckldq %xmm0,%xmm2
paddd  %xmm15,%xmm6
add    $0xfffffffc,%esi
jne    1200 <main+0xd0>
test   %edx,%edx
je     1351 <main+0x221>
movdqa 0xd33(%rip),%xmm3
movdqa 0xd3b(%rip),%xmm4
cs nopw 0x0(%rax,%rax,1)
nop
movdqa %xmm6,%xmm0
paddd  %xmm3,%xmm0
pshufd $0xf5,%xmm1,%xmm5
pmuludq %xmm6,%xmm1
pshufd $0xe8,%xmm1,%xmm1
pshufd $0xf5,%xmm6,%xmm7
pmuludq %xmm5,%xmm7
pshufd $0xe8,%xmm7,%xmm5
punpckldq %xmm5,%xmm1
pshufd $0xf5,%xmm2,%xmm5
pmuludq %xmm0,%xmm2
pshufd $0xe8,%xmm2,%xmm2
pshufd $0xf5,%xmm0,%xmm0
pmuludq %xmm5,%xmm0
pshufd $0xe8,%xmm0,%xmm0
punpckldq %xmm0,%xmm2
paddd  %xmm4,%xmm6
add    $0xffffffff,%edx
jne    1300 <main+0x1d0>
pshufd $0xf5,%xmm1,%xmm0
pshufd $0xf5,%xmm2,%xmm3
pmuludq %xmm0,%xmm3
pmuludq %xmm1,%xmm2
pshufd $0xee,%xmm2,%xmm0
pmuludq %xmm2,%xmm0
pshufd $0xaa,%xmm3,%xmm1
pmuludq %xmm3,%xmm1
pmuludq %xmm0,%xmm1
movd   %xmm1,%esi
cmp    %ecx,%eax
je     139d <main+0x26d>
and    $0x7,%eax
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
imul   %eax,%esi
lea    -0x1(%rax),%ecx
cmp    $0x1,%eax
mov    %ecx,%eax
ja     1390 <main+0x260>
movl   $0x0,0x4(%rsp)
lea    0xd2a(%rip),%rdi
xor    %eax,%eax
call   1040 <printf@plt>
xor    %eax,%eax
pop    %rcx
ret

LLVM IR (-O0):
@.str = [13 x i8] c"\09Factorial\0A\0A\00"
@.str.1 = [51 x i8] c"Introduzca el n\C3\BAmero para calcular su factorial: \00"
@.str.2 = [3 x i8] c"%d\00"
@.str.3 = [21 x i8] c"El factorial es: %d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
store i32 0, i32* %1
store i32 1, i32* %3
%4 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0))
%5 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([51 x i8], [51 x i8]* @.str.1, i64 0, i64 0))
%6 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.2, i64 0, i64 0), i32* %2)
br label %7
7: ; preds = %10, %0
%8 = load i32, i32* %2
%9 = icmp sge i32 %8, 1
br i1 %9, label %10, label %16
10: ; preds = %7
%11 = load i32, i32* %2
%12 = load i32, i32* %3
%13 = mul nsw i32 %12, %11
store i32 %13, i32* %3
%14 = load i32, i32* %2
%15 = add nsw i32 %14, -1
store i32 %15, i32* %2
br label %7
16: ; preds = %7
%17 = load i32, i32* %3
%18 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str.3, i64 0, i64 0), i32 %17)
ret i32 0
}

LLVM IR (-O2):
@.str.1 = [51 x i8] c"Introduzca el n\C3\BAmero para calcular su factorial: \00"
@.str.2 = [3 x i8] c"%d\00"
@.str.3 = [21 x i8] c"El factorial es: %d\0A\00"
@str = [12 x i8] c"\09Factorial\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = bitcast i32* %1 to i8*
%3 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str, i64 0, i64 0))
%4 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([51 x i8], [51 x i8]* @.str.1, i64 0, i64 0))
%5 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.2, i64 0, i64 0), i32* %1)
%6 = load i32, i32* %1
%7 = icmp sgt i32 %6, 0
br i1 %7, label %8, label %81
8: ; preds = %0
%9 = icmp ult i32 %6, 8
br i1 %9, label %70, label %10
10: ; preds = %8
%11 = and i32 %6, -8
%12 = and i32 %6, 7
%13 = insertelement <4 x i32> poison, i32 %6, i64 0
%14 = shufflevector <4 x i32> %13, <4 x i32> poison, <4 x i32> zeroinitializer
%15 = add <4 x i32> %14, <i32 0, i32 -1, i32 -2, i32 -3>
%16 = add i32 %11, -8
%17 = lshr exact i32 %16, 3
%18 = add nuw nsw i32 %17, 1
%19 = and i32 %18, 3
%20 = icmp ult i32 %16, 24
br i1 %20, label %46, label %21
21: ; preds = %10
%22 = and i32 %18, 1073741820
br label %23
23: ; preds = %23, %21
%24 = phi <4 x i32> [ <i32 1, i32 1, i32 1, i32 1>, %21 ], [ %41, %23 ]
%25 = phi <4 x i32> [ <i32 1, i32 1, i32 1, i32 1>, %21 ], [ %42, %23 ]
%26 = phi <4 x i32> [ %15, %21 ], [ %43, %23 ]
%27 = phi i32 [ 0, %21 ], [ %44, %23 ]
%28 = add <4 x i32> %26, <i32 -4, i32 -4, i32 -4, i32 -4>
%29 = mul <4 x i32> %24, %26
%30 = mul <4 x i32> %25, %28
%31 = add <4 x i32> %26, <i32 -8, i32 -8, i32 -8, i32 -8>
%32 = add <4 x i32> %26, <i32 -12, i32 -12, i32 -12, i32 -12>
%33 = mul <4 x i32> %29, %31
%34 = mul <4 x i32> %30, %32
%35 = add <4 x i32> %26, <i32 -16, i32 -16, i32 -16, i32 -16>
%36 = add <4 x i32> %26, <i32 -20, i32 -20, i32 -20, i32 -20>
%37 = mul <4 x i32> %33, %35
%38 = mul <4 x i32> %34, %36
%39 = add <4 x i32> %26, <i32 -24, i32 -24, i32 -24, i32 -24>
%40 = add <4 x i32> %26, <i32 -28, i32 -28, i32 -28, i32 -28>
%41 = mul <4 x i32> %37, %39
%42 = mul <4 x i32> %38, %40
%43 = add <4 x i32> %26, <i32 -32, i32 -32, i32 -32, i32 -32>
%44 = add i32 %27, 4
%45 = icmp eq i32 %44, %22
br i1 %45, label %46, label %23
46: ; preds = %23, %10
%47 = phi <4 x i32> [ undef, %10 ], [ %41, %23 ]
%48 = phi <4 x i32> [ undef, %10 ], [ %42, %23 ]
%49 = phi <4 x i32> [ <i32 1, i32 1, i32 1, i32 1>, %10 ], [ %41, %23 ]
%50 = phi <4 x i32> [ <i32 1, i32 1, i32 1, i32 1>, %10 ], [ %42, %23 ]
%51 = phi <4 x i32> [ %15, %10 ], [ %43, %23 ]
%52 = icmp eq i32 %19, 0
br i1 %52, label %64, label %53
53: ; preds = %46, %53
%54 = phi <4 x i32> [ %59, %53 ], [ %49, %46 ]
%55 = phi <4 x i32> [ %60, %53 ], [ %50, %46 ]
%56 = phi <4 x i32> [ %61, %53 ], [ %51, %46 ]
%57 = phi i32 [ %62, %53 ], [ 0, %46 ]
%58 = add <4 x i32> %56, <i32 -4, i32 -4, i32 -4, i32 -4>
%59 = mul <4 x i32> %54, %56
%60 = mul <4 x i32> %55, %58
%61 = add <4 x i32> %56, <i32 -8, i32 -8, i32 -8, i32 -8>
%62 = add i32 %57, 1
%63 = icmp eq i32 %62, %19
br i1 %63, label %64, label %53
64: ; preds = %53, %46
%65 = phi <4 x i32> [ %47, %46 ], [ %59, %53 ]
%66 = phi <4 x i32> [ %48, %46 ], [ %60, %53 ]
%67 = mul <4 x i32> %66, %65
%68 = call i32 @llvm.vector.reduce.mul.v4i32(<4 x i32> %67)
%69 = icmp eq i32 %6, %11
br i1 %69, label %79, label %70
70: ; preds = %8, %64
%71 = phi i32 [ 1, %8 ], [ %68, %64 ]
%72 = phi i32 [ %6, %8 ], [ %12, %64 ]
br label %73
73: ; preds = %70, %73
%74 = phi i32 [ %76, %73 ], [ %71, %70 ]
%75 = phi i32 [ %77, %73 ], [ %72, %70 ]
%76 = mul nsw i32 %74, %75
%77 = add nsw i32 %75, -1
%78 = icmp ugt i32 %75, 1
br i1 %78, label %73, label %79
79: ; preds = %73, %64
%80 = phi i32 [ %68, %64 ], [ %76, %73 ]
store i32 0, i32* %1
br label %81
81: ; preds = %79, %0
%82 = phi i32 [ %80, %79 ], [ 1, %0 ]
%83 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([21 x i8], [21 x i8]* @.str.3, i64 0, i64 0), i32 %82)
ret i32 0
}