#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 f_infnan(double, int *, char *);
scalar_t__ f_postformat(double, int *, int);
scalar_t__ f_preformat(double, int *, int);
int ft_gp(double);
int ft_modf(double, double *);
int ft_pb(int, int);
int ft_putchar(char);
double ft_rint(int);
scalar_t__ g_loop(double, int *, char *);
int ft_putf(double n, int fl[8], char *s) {
  double i;
  double f;
  int ret;
  int k;
  if ((ret = f_infnan(n, fl, s)))
    return (ret);
  fl[1] = (fl[1] == -1) ? 6 : fl[1];
  f = ft_rint(ft_modf(n, &i) * ft_pb(fl[1], 10));
  ((k = -1) && f < 0) ? f *= -1 : 0;
  (i < 0) ? i *= -1 : 0;
  ret += f_preformat(n, fl, ft_gp(n) + 1);
  while (++k <= ft_gp(n)) {
    ret += ft_putchar((int)(i / ft_pb((ft_gp(n) - k), 10)) + '0');
    i -= (int)(i / ft_pb((ft_gp(n) - k), 10)) * ft_pb((ft_gp(n) - k), 10);
  }
  ret += (fl[1] || fl[2]) ? ft_putchar('.') : 0;
  ret += g_loop(f, fl, s);
  ret += f_postformat(n, fl, ft_gp(n) + 1);
  return (ret);
}


x86 assembly (clang, -O0):
<ft_putf>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
movsd  -0x10(%rbp),%xmm0
mov    -0x18(%rbp),%rdi
mov    -0x20(%rbp),%rsi
call   10b0 <f_infnan@plt>
mov    %eax,-0x34(%rbp)
cmp    $0x0,%eax
je     11d1 <ft_putf+0x41>
mov    -0x34(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1451 <ft_putf+0x2c1>
mov    -0x18(%rbp),%rax
cmpl   $0xffffffff,0x4(%rax)
jne    11ec <ft_putf+0x5c>
mov    $0x6,%eax
mov    %eax,-0x3c(%rbp)
jmp    11f6 <ft_putf+0x66>
mov    -0x18(%rbp),%rax
mov    0x4(%rax),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,0x4(%rax)
movsd  -0x10(%rbp),%xmm0
lea    -0x28(%rbp),%rdi
call   1030 <ft_modf@plt>
mov    %eax,-0x40(%rbp)
mov    -0x18(%rbp),%rax
mov    0x4(%rax),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
mov    -0x40(%rbp),%edi
imul   %eax,%edi
call   1090 <ft_rint@plt>
movsd  %xmm0,-0x30(%rbp)
movl   $0xffffffff,-0x38(%rbp)
mov    $0x1,%al
test   $0x1,%al
jne    1248 <ft_putf+0xb8>
jmp    126d <ft_putf+0xdd>
xorps  %xmm0,%xmm0
ucomisd -0x30(%rbp),%xmm0
jbe    126d <ft_putf+0xdd>
movsd  0xda2(%rip),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
jmp    1272 <ft_putf+0xe2>
jmp    1272 <ft_putf+0xe2>
xorps  %xmm0,%xmm0
ucomisd -0x28(%rbp),%xmm0
jbe    1297 <ft_putf+0x107>
movsd  0xd78(%rip),%xmm0
mulsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    129c <ft_putf+0x10c>
jmp    129c <ft_putf+0x10c>
movsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x48(%rbp)
movsd  -0x10(%rbp),%xmm0
call   10a0 <ft_gp@plt>
movsd  -0x50(%rbp),%xmm0
mov    -0x48(%rbp),%rdi
mov    %eax,%esi
add    $0x1,%esi
call   1070 <f_preformat@plt>
mov    %rax,%rcx
movslq -0x34(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x34(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x54(%rbp)
mov    %eax,-0x38(%rbp)
movsd  -0x10(%rbp),%xmm0
call   10a0 <ft_gp@plt>
mov    %eax,%ecx
mov    -0x54(%rbp),%eax
cmp    %ecx,%eax
jg     13af <ft_putf+0x21f>
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x10(%rbp),%xmm0
call   10a0 <ft_gp@plt>
mov    %eax,%edi
sub    -0x38(%rbp),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
movsd  -0x68(%rbp),%xmm0
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
add    $0x30,%eax
movsbl %al,%edi
call   1080 <ft_putchar@plt>
add    -0x34(%rbp),%eax
mov    %eax,-0x34(%rbp)
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x10(%rbp),%xmm0
call   10a0 <ft_gp@plt>
mov    %eax,%edi
sub    -0x38(%rbp),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
movsd  -0x60(%rbp),%xmm0
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x58(%rbp)
movsd  -0x10(%rbp),%xmm0
call   10a0 <ft_gp@plt>
mov    %eax,%edi
sub    -0x38(%rbp),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
mov    %eax,%ecx
mov    -0x58(%rbp),%eax
imul   %ecx,%eax
cvtsi2sd %eax,%xmm1
movsd  -0x28(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    12d8 <ft_putf+0x148>
mov    -0x18(%rbp),%rax
cmpl   $0x0,0x4(%rax)
jne    13cb <ft_putf+0x23b>
mov    -0x18(%rbp),%rax
cmpl   $0x0,0x8(%rax)
je     13dd <ft_putf+0x24d>
mov    $0x2e,%edi
call   1080 <ft_putchar@plt>
mov    %eax,-0x6c(%rbp)
jmp    13e7 <ft_putf+0x257>
xor    %eax,%eax
mov    %eax,-0x6c(%rbp)
jmp    13e7 <ft_putf+0x257>
mov    -0x6c(%rbp),%eax
add    -0x34(%rbp),%eax
mov    %eax,-0x34(%rbp)
movsd  -0x30(%rbp),%xmm0
mov    -0x18(%rbp),%rdi
mov    -0x20(%rbp),%rsi
call   1060 <g_loop@plt>
mov    %rax,%rcx
movslq -0x34(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x34(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x80(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x78(%rbp)
movsd  -0x10(%rbp),%xmm0
call   10a0 <ft_gp@plt>
movsd  -0x80(%rbp),%xmm0
mov    -0x78(%rbp),%rdi
mov    %eax,%esi
add    $0x1,%esi
call   1050 <f_postformat@plt>
mov    %rax,%rcx
movslq -0x34(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ft_putf>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rsi,%r14
mov    %rdi,%r15
movsd  %xmm0,0x8(%rsp)
call   10b0 <f_infnan@plt>
test   %eax,%eax
jne    139c <ft_putf+0x20c>
mov    0x4(%r15),%eax
cmp    $0xffffffff,%eax
mov    $0x6,%ecx
cmovne %eax,%ecx
mov    %ecx,0x4(%r15)
lea    0x10(%rsp),%rdi
movsd  0x8(%rsp),%xmm0
call   1030 <ft_modf@plt>
mov    %eax,%ebx
mov    0x4(%r15),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
imul   %eax,%ebx
mov    %ebx,%edi
call   1090 <ft_rint@plt>
movapd 0xe04(%rip),%xmm1
xorpd  %xmm0,%xmm1
xorpd  %xmm2,%xmm2
movapd %xmm0,%xmm3
cmpltsd %xmm2,%xmm3
andpd  %xmm3,%xmm1
andnpd %xmm0,%xmm3
orpd   %xmm1,%xmm3
movapd %xmm3,0x20(%rsp)
movsd  0x10(%rsp),%xmm0
ucomisd %xmm0,%xmm2
jbe    1239 <ft_putf+0xa9>
xorpd  0xdcd(%rip),%xmm0
movlpd %xmm0,0x10(%rsp)
movsd  0x8(%rsp),%xmm0
call   10a0 <ft_gp@plt>
lea    0x1(%rax),%esi
movsd  0x8(%rsp),%xmm0
mov    %r15,%rdi
call   1070 <f_preformat@plt>
mov    %rax,%r12
movsd  0x8(%rsp),%xmm0
call   10a0 <ft_gp@plt>
test   %eax,%eax
js     134c <ft_putf+0x1bc>
mov    $0xffffffff,%ebp
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  0x10(%rsp),%xmm0
movsd  %xmm0,0x18(%rsp)
movsd  0x8(%rsp),%xmm0
call   10a0 <ft_gp@plt>
lea    (%rax,%rbx,1),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  0x18(%rsp),%xmm1
divsd  %xmm0,%xmm1
cvttsd2si %xmm1,%eax
add    $0x30,%al
movsbl %al,%edi
call   1080 <ft_putchar@plt>
add    %eax,%r12d
movsd  0x10(%rsp),%xmm0
movsd  %xmm0,0x18(%rsp)
movsd  0x8(%rsp),%xmm0
call   10a0 <ft_gp@plt>
lea    (%rax,%rbx,1),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  0x18(%rsp),%xmm1
divsd  %xmm0,%xmm1
cvttsd2si %xmm1,%r13d
movsd  0x8(%rsp),%xmm0
call   10a0 <ft_gp@plt>
lea    (%rax,%rbx,1),%edi
mov    $0xa,%esi
call   1040 <ft_pb@plt>
imul   %r13d,%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  0x10(%rsp),%xmm1
subsd  %xmm0,%xmm1
movsd  %xmm1,0x10(%rsp)
movsd  0x8(%rsp),%xmm0
call   10a0 <ft_gp@plt>
add    $0x1,%ebp
add    $0xffffffff,%ebx
cmp    %eax,%ebp
jl     1280 <ft_putf+0xf0>
cmpl   $0x0,0x4(%r15)
jne    135a <ft_putf+0x1ca>
cmpl   $0x0,0x8(%r15)
je     13ab <ft_putf+0x21b>
mov    $0x2e,%edi
call   1080 <ft_putchar@plt>
mov    %eax,%ebp
add    %r12d,%ebp
movaps 0x20(%rsp),%xmm0
mov    %r15,%rdi
mov    %r14,%rsi
call   1060 <g_loop@plt>
mov    %rax,%rbx
add    %ebp,%ebx
movsd  0x8(%rsp),%xmm0
call   10a0 <ft_gp@plt>
lea    0x1(%rax),%esi
movsd  0x8(%rsp),%xmm0
mov    %r15,%rdi
call   1050 <f_postformat@plt>
add    %ebx,%eax
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
xor    %ebp,%ebp
jmp    1366 <ft_putf+0x1d6>

LLVM IR (-O0):
define i32 @ft_putf(double %0, i32* %1, i8* %2) {
%4 = alloca i32
%5 = alloca double
%6 = alloca i32*
%7 = alloca i8*
%8 = alloca double
%9 = alloca double
%10 = alloca i32
%11 = alloca i32
store double %0, double* %5
store i32* %1, i32** %6
store i8* %2, i8** %7
%12 = load double, double* %5
%13 = load i32*, i32** %6
%14 = load i8*, i8** %7
%15 = call i32 @f_infnan(double %12, i32* %13, i8* %14)
store i32 %15, i32* %10
%16 = icmp ne i32 %15, 0
br i1 %16, label %17, label %19
17: ; preds = %3
%18 = load i32, i32* %10
store i32 %18, i32* %4
br label %143
19: ; preds = %3
%20 = load i32*, i32** %6
%21 = getelementptr inbounds i32, i32* %20, i64 1
%22 = load i32, i32* %21
%23 = icmp eq i32 %22, -1
br i1 %23, label %24, label %25
24: ; preds = %19
br label %29
25: ; preds = %19
%26 = load i32*, i32** %6
%27 = getelementptr inbounds i32, i32* %26, i64 1
%28 = load i32, i32* %27
br label %29
29: ; preds = %25, %24
%30 = phi i32 [ 6, %24 ], [ %28, %25 ]
%31 = load i32*, i32** %6
%32 = getelementptr inbounds i32, i32* %31, i64 1
store i32 %30, i32* %32
%33 = load double, double* %5
%34 = call i32 @ft_modf(double %33, double* %8)
%35 = load i32*, i32** %6
%36 = getelementptr inbounds i32, i32* %35, i64 1
%37 = load i32, i32* %36
%38 = call i32 @ft_pb(i32 %37, i32 10)
%39 = mul nsw i32 %34, %38
%40 = call double @ft_rint(i32 %39)
store double %40, double* %9
store i32 -1, i32* %11
br i1 true, label %41, label %47
41: ; preds = %29
%42 = load double, double* %9
%43 = fcmp olt double %42, 0.000000e+00
br i1 %43, label %44, label %47
44: ; preds = %41
%45 = load double, double* %9
%46 = fmul double %45, -1.000000e+00
store double %46, double* %9
br label %48
47: ; preds = %41, %29
br label %48
48: ; preds = %47, %44
%49 = phi double [ %46, %44 ], [ 0.000000e+00, %47 ]
%50 = load double, double* %8
%51 = fcmp olt double %50, 0.000000e+00
br i1 %51, label %52, label %55
52: ; preds = %48
%53 = load double, double* %8
%54 = fmul double %53, -1.000000e+00
store double %54, double* %8
br label %56
55: ; preds = %48
br label %56
56: ; preds = %55, %52
%57 = phi double [ %54, %52 ], [ 0.000000e+00, %55 ]
%58 = load double, double* %5
%59 = load i32*, i32** %6
%60 = load double, double* %5
%61 = call i32 @ft_gp(double %60)
%62 = add nsw i32 %61, 1
%63 = call i64 @f_preformat(double %58, i32* %59, i32 %62)
%64 = load i32, i32* %10
%65 = sext i32 %64 to i64
%66 = add nsw i64 %65, %63
%67 = trunc i64 %66 to i32
store i32 %67, i32* %10
br label %68
68: ; preds = %74, %56
%69 = load i32, i32* %11
%70 = add nsw i32 %69, 1
store i32 %70, i32* %11
%71 = load double, double* %5
%72 = call i32 @ft_gp(double %71)
%73 = icmp sle i32 %70, %72
br i1 %73, label %74, label %107
74: ; preds = %68
%75 = load double, double* %8
%76 = load double, double* %5
%77 = call i32 @ft_gp(double %76)
%78 = load i32, i32* %11
%79 = sub nsw i32 %77, %78
%80 = call i32 @ft_pb(i32 %79, i32 10)
%81 = sitofp i32 %80 to double
%82 = fdiv double %75, %81
%83 = fptosi double %82 to i32
%84 = add nsw i32 %83, 48
%85 = trunc i32 %84 to i8
%86 = call i32 @ft_putchar(i8 signext %85)
%87 = load i32, i32* %10
%88 = add nsw i32 %87, %86
store i32 %88, i32* %10
%89 = load double, double* %8
%90 = load double, double* %5
%91 = call i32 @ft_gp(double %90)
%92 = load i32, i32* %11
%93 = sub nsw i32 %91, %92
%94 = call i32 @ft_pb(i32 %93, i32 10)
%95 = sitofp i32 %94 to double
%96 = fdiv double %89, %95
%97 = fptosi double %96 to i32
%98 = load double, double* %5
%99 = call i32 @ft_gp(double %98)
%100 = load i32, i32* %11
%101 = sub nsw i32 %99, %100
%102 = call i32 @ft_pb(i32 %101, i32 10)
%103 = mul nsw i32 %97, %102
%104 = sitofp i32 %103 to double
%105 = load double, double* %8
%106 = fsub double %105, %104
store double %106, double* %8
br label %68
107: ; preds = %68
%108 = load i32*, i32** %6
%109 = getelementptr inbounds i32, i32* %108, i64 1
%110 = load i32, i32* %109
%111 = icmp ne i32 %110, 0
br i1 %111, label %117, label %112
112: ; preds = %107
%113 = load i32*, i32** %6
%114 = getelementptr inbounds i32, i32* %113, i64 2
%115 = load i32, i32* %114
%116 = icmp ne i32 %115, 0
br i1 %116, label %117, label %119
117: ; preds = %112, %107
%118 = call i32 @ft_putchar(i8 signext 46)
br label %120
119: ; preds = %112
br label %120
120: ; preds = %119, %117
%121 = phi i32 [ %118, %117 ], [ 0, %119 ]
%122 = load i32, i32* %10
%123 = add nsw i32 %122, %121
store i32 %123, i32* %10
%124 = load double, double* %9
%125 = load i32*, i32** %6
%126 = load i8*, i8** %7
%127 = call i64 @g_loop(double %124, i32* %125, i8* %126)
%128 = load i32, i32* %10
%129 = sext i32 %128 to i64
%130 = add nsw i64 %129, %127
%131 = trunc i64 %130 to i32
store i32 %131, i32* %10
%132 = load double, double* %5
%133 = load i32*, i32** %6
%134 = load double, double* %5
%135 = call i32 @ft_gp(double %134)
%136 = add nsw i32 %135, 1
%137 = call i64 @f_postformat(double %132, i32* %133, i32 %136)
%138 = load i32, i32* %10
%139 = sext i32 %138 to i64
%140 = add nsw i64 %139, %137
%141 = trunc i64 %140 to i32
store i32 %141, i32* %10
%142 = load i32, i32* %10
store i32 %142, i32* %4
br label %143
143: ; preds = %120, %17
%144 = load i32, i32* %4
ret i32 %144
}

LLVM IR (-O2):
define i32 @ft_putf(double %0, i32* %1, i8* %2) {
%4 = alloca double
%5 = bitcast double* %4 to i8*
%6 = tail call i32 @f_infnan(double %0, i32* %1, i8* %2)
%7 = icmp eq i32 %6, 0
br i1 %7, label %8, label %84
8: ; preds = %3
%9 = getelementptr inbounds i32, i32* %1, i64 1
%10 = load i32, i32* %9
%11 = icmp eq i32 %10, -1
%12 = select i1 %11, i32 6, i32 %10
store i32 %12, i32* %9
%13 = call i32 @ft_modf(double %0, double* %4)
%14 = load i32, i32* %9
%15 = call i32 @ft_pb(i32 %14, i32 10)
%16 = mul nsw i32 %15, %13
%17 = call double @ft_rint(i32 %16)
%18 = fcmp olt double %17, 0.000000e+00
%19 = fneg double %17
%20 = select i1 %18, double %19, double %17
%21 = load double, double* %4
%22 = fcmp olt double %21, 0.000000e+00
br i1 %22, label %23, label %25
23: ; preds = %8
%24 = fneg double %21
store double %24, double* %4
br label %25
25: ; preds = %8, %23
%26 = call i32 @ft_gp(double %0)
%27 = add nsw i32 %26, 1
%28 = call i64 @f_preformat(double %0, i32* %1, i32 %27)
%29 = trunc i64 %28 to i32
%30 = call i32 @ft_gp(double %0)
%31 = icmp sgt i32 %30, -1
br i1 %31, label %32, label %63
32: ; preds = %25, %32
%33 = phi i32 [ %60, %32 ], [ 0, %25 ]
%34 = phi i32 [ %45, %32 ], [ %29, %25 ]
%35 = load double, double* %4
%36 = call i32 @ft_gp(double %0)
%37 = sub nsw i32 %36, %33
%38 = call i32 @ft_pb(i32 %37, i32 10)
%39 = sitofp i32 %38 to double
%40 = fdiv double %35, %39
%41 = fptosi double %40 to i32
%42 = trunc i32 %41 to i8
%43 = add i8 %42, 48
%44 = call i32 @ft_putchar(i8 signext %43)
%45 = add nsw i32 %44, %34
%46 = load double, double* %4
%47 = call i32 @ft_gp(double %0)
%48 = sub nsw i32 %47, %33
%49 = call i32 @ft_pb(i32 %48, i32 10)
%50 = sitofp i32 %49 to double
%51 = fdiv double %46, %50
%52 = fptosi double %51 to i32
%53 = call i32 @ft_gp(double %0)
%54 = sub nsw i32 %53, %33
%55 = call i32 @ft_pb(i32 %54, i32 10)
%56 = mul nsw i32 %55, %52
%57 = sitofp i32 %56 to double
%58 = load double, double* %4
%59 = fsub double %58, %57
store double %59, double* %4
%60 = add nuw nsw i32 %33, 1
%61 = call i32 @ft_gp(double %0)
%62 = icmp slt i32 %33, %61
br i1 %62, label %32, label %63
63: ; preds = %32, %25
%64 = phi i32 [ %29, %25 ], [ %45, %32 ]
%65 = load i32, i32* %9
%66 = icmp eq i32 %65, 0
br i1 %66, label %67, label %71
67: ; preds = %63
%68 = getelementptr inbounds i32, i32* %1, i64 2
%69 = load i32, i32* %68
%70 = icmp eq i32 %69, 0
br i1 %70, label %73, label %71
71: ; preds = %67, %63
%72 = call i32 @ft_putchar(i8 signext 46)
br label %73
73: ; preds = %67, %71
%74 = phi i32 [ %72, %71 ], [ 0, %67 ]
%75 = add nsw i32 %74, %64
%76 = call i64 @g_loop(double %20, i32* %1, i8* %2)
%77 = trunc i64 %76 to i32
%78 = add i32 %75, %77
%79 = call i32 @ft_gp(double %0)
%80 = add nsw i32 %79, 1
%81 = call i64 @f_postformat(double %0, i32* %1, i32 %80)
%82 = trunc i64 %81 to i32
%83 = add i32 %78, %82
br label %84
84: ; preds = %3, %73
%85 = phi i32 [ %83, %73 ], [ %6, %3 ]
ret i32 %85
}