user: What is the c source code of the assembly code below:

```asm
<schreibe_statistik_sammelbilderproblem>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  mov    %edi,%r13d
  push   %r12
  push   %rbx
  movslq %esi,%rbx
  lea    0xf(,%rbx,4),%rcx
  mov    %rbx,%r12
  sub    $0x48,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  mov    %rsp,%rdx
  mov    %rcx,%rax
  mov    %rcx,-0x68(%rbp)
  and    $0xfffffffffffff000,%rcx
  and    $0xfffffffffffffff0,%rax
  sub    %rcx,%rdx
  cmp    %rdx,%rsp
  je     L149
L30:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdx,%rsp
  jne    L30
L149:
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  jne    L94
L69:
  mov    %rsp,%r15
  xor    %edx,%edx
  mov    %r12d,%esi
  mov    %r15,%rdi
  call   <initialisiere_int_array@plt>
  xor    %eax,%eax
  call   <initialisiere_zufallszahlengenerator@plt>
  mov    %r13d,%edx
  mov    %r15,%rsi
  mov    %r12d,%edi
  call   <simulier_einkaeufe@plt>
  mov    %r13d,%edi
  call   <durchschnittlich_benoetigten_kaeufe@plt>
  lea    0xf(,%rbx,8),%rax
  mov    %rsp,%rcx
  mov    %rax,%rdx
  and    $0xfffffffffffff000,%rax
  movsd  %xmm0,-0x48(%rbp)
  sub    %rax,%rcx
  and    $0xfffffffffffffff0,%rdx
  cmp    %rcx,%rsp
  je     L118
L113:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rcx,%rsp
  jne    L113
L118:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L73
L80:
  mov    %rsp,%rbx
  lea    D111(%rip),%rax
  sub    $0x8,%rsp
  push   %rax
  lea    D74(%rip),%r9
  xor    %eax,%eax
  lea    D154(%rip),%r8
  lea    D159(%rip),%rcx
  lea    D204(%rip),%rdx
  lea    D188(%rip),%rsi
  lea    D54(%rip),%rdi
  call   <printf@plt>
  mov    %rbx,%rsp
  test   %r12d,%r12d
  jle    L20
  lea    0x1(%r12),%eax
  mov    $0x1,%r14d
  lea    D127(%rip),%r13
  mov    %rax,-0x60(%rbp)
  nopl   0x0(%rax,%rax,1)
L18:
  pxor   %xmm4,%xmm4
  mov    %r14d,%esi
  mov    %r15,%rdi
  mov    %r14d,-0x50(%rbp)
  cvtsi2sdl -0x4(%r15,%r14,4),%xmm4
  subsd  -0x48(%rbp),%xmm4
  andpd  D100(%rip),%xmm4
  movsd  %xmm4,-0x58(%rbp)
  call   <durchschnitt_int_array@plt>
  movsd  -0x48(%rbp),%xmm1
  mov    -0x50(%rbp),%esi
  mov    %r13,%rdi
  movsd  -0x58(%rbp),%xmm4
  mov    -0x4(%r15,%r14,4),%edx
  movapd %xmm0,%xmm2
  mov    $0x4,%eax
  movapd %xmm1,%xmm3
  subsd  %xmm0,%xmm3
  andpd  D100(%rip),%xmm3
  movapd %xmm4,%xmm0
  movsd  %xmm3,-0x8(%rbx,%r14,8)
  add    $0x1,%r14
  call   <printf@plt>
  cmp    -0x60(%rbp),%r14
  jne    L18
L20:
  lea    D135(%rip),%rdi
  lea    D182(%rip),%r13
  call   <puts@plt>
  mov    %r12d,%esi
  mov    %r15,%rdi
  call   <median_int_array@plt>
  mov    %r12d,%esi
  mov    %rbx,%rdi
  movsd  %xmm0,-0x58(%rbp)
  call   <median_double_array@plt>
  mov    %r12d,%esi
  mov    %rbx,%rdi
  movsd  %xmm0,-0x50(%rbp)
  call   <liefere_min_double_array@plt>
  mov    %r12d,%esi
  mov    %rbx,%rdi
  mov    %rax,%r14
  call   <liefere_max_double_array@plt>
  movsd  -0x58(%rbp),%xmm2
  lea    D94(%rip),%rsi
  mov    %r13,%rdi
  mov    %rax,-0x48(%rbp)
  mov    $0x1,%eax
  movapd %xmm2,%xmm0
  call   <printf@plt>
  movsd  -0x50(%rbp),%xmm1
  mov    %r13,%rdi
  lea    D24(%rip),%rsi
  mov    $0x1,%eax
  movapd %xmm1,%xmm0
  call   <printf@plt>
  mov    -0x48(%rbp),%rdx
  mov    %r13,%rdi
  lea    D104(%rip),%rsi
  mov    $0x1,%eax
  movsd  (%rdx),%xmm0
  call   <printf@plt>
  movsd  (%r14),%xmm0
  mov    %r13,%rdi
  lea    D11(%rip),%rsi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    -0x68(%rbp),%rcx
  mov    %rsp,%rdx
  mov    %rcx,%rax
  and    $0xfffffffffffff000,%rcx
  sub    %rcx,%rdx
  and    $0xfffffffffffffff0,%rax
  cmp    %rdx,%rsp
  je     L103
L123:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdx,%rsp
  jne    L123
L103:
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L11
  orq    $0x0,-0x8(%rsp,%rax,1)
L11:
  mov    %rsp,%r14
  xor    %edx,%edx
  lea    D16(%rip),%r15
  mov    %r12d,%esi
  mov    %r14,%rdi
  call   <initialisiere_int_array@plt>
  movl   $0x3,-0x50(%rbp)
  movsd  D198(%rip),%xmm0
  cs nopw 0x0(%rax,%rax,1)
L34:
  mov    %r14,%rdx
  mov    %r12d,%esi
  mov    %rbx,%rdi
  movsd  %xmm0,-0x48(%rbp)
  call   <indizes_kleiner_als_double_array@plt>
  movsd  -0x48(%rbp),%xmm0
  mov    %r15,%rsi
  lea    D201(%rip),%rdi
  mov    %eax,%r13d
  mov    $0x1,%eax
  call   <printf@plt>
  mov    $0x5b,%edi
  call   <putchar@plt>
  xor    %r8d,%r8d
  xor    %edx,%edx
  mov    %r13d,%esi
  lea    D2(%rip),%rcx
  mov    %r14,%rdi
  call   <schreibe_int_array@plt>
  mov    $0x5d,%edi
  call   <putchar@plt>
  subl   $0x1,-0x50(%rbp)
  movsd  -0x48(%rbp),%xmm0
  subsd  D21(%rip),%xmm0
  jne    L34
  mov    $0xa,%edi
  call   <putchar@plt>
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L70
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
  nopl   (%rax)
L94:
  orq    $0x0,-0x8(%rsp,%rax,1)
  jmp    L69
L73:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L80
L70:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: tag: D111
type_guessed: string
name: disassemble_data
arguments: tag: D74
type_guessed: string
name: disassemble_data
arguments: tag: D154
type_guessed: string
name: disassemble_data
arguments: tag: D159
type_guessed: string
name: disassemble_data
arguments: tag: D204
type_guessed: string
name: disassemble_data
arguments: tag: D188
type_guessed: string
name: disassemble_data
arguments: tag: D54
type_guessed: string
name: disassemble_data
arguments: tag: D127
type_guessed: string
name: disassemble_data
arguments: tag: D100
type_guessed: qword[2]
name: disassemble_data
arguments: tag: D135
type_guessed: string
name: disassemble_data
arguments: tag: D182
type_guessed: string
name: disassemble_data
arguments: tag: D94
type_guessed: string
name: disassemble_data
arguments: tag: D24
type_guessed: string
name: disassemble_data
arguments: tag: D104
type_guessed: string
name: disassemble_data
arguments: tag: D11
type_guessed: string
name: disassemble_data
arguments: tag: D16
type_guessed: string
name: disassemble_data
arguments: tag: D198
type_guessed: f64
name: disassemble_data
arguments: tag: D201
type_guessed: string
name: disassemble_data
arguments: tag: D2
type_guessed: string
name: disassemble_data
arguments: tag: D21
type_guessed: f64

tool: D111: AM

tool: D74: M

tool: D154: E

tool: D159: AE

tool: D204: KK

tool: D188: KNR

tool: D54: 
%5s %5s %15s %15s %15s %15s


tool: D127: 
%7d %5d %15lf %15lf %15lf %15lf

tool: {"D100": [0x7fffffffffffffff,0x0000000000000000]}

tool: D135: 


tool: D182: %-25s %10lf


tool: D94: Median der Anzahl Kaeufe: 

tool: D24: Median der Werte AM: 

tool: D104: groesster der Werte AM: 

tool: D11: kleinster der Werte AM: 

tool: D16: Indizes der Werte AM < 

tool: D198: 1

tool: D201: 
%-s %4.1lf :	

tool: D2: , 

tool: D21: 0.2

assistant: ```c
void schreibe_statistik_sammelbilderproblem(int sammelbilder, int kunden) {
  int anzahl_kaeufe_pro_kunde[kunden];
  initialisiere_int_array(anzahl_kaeufe_pro_kunde, kunden, 0);
  initialisiere_zufallszahlengenerator();
  simulier_einkaeufe(kunden, anzahl_kaeufe_pro_kunde, sammelbilder);
  double durchschnitt_versuche = durchschnitt_versuche = durchschnittlich_benoetigten_kaeufe(sammelbilder);
  double abweichung_versuche = 0.0;
  double durchschnitt_kaeufe = 0.0;
  double abweichung_kaeufe[kunden];
  printf("\n%5s %5s %15s %15s %15s %15s\n", "KNR", "KK", "AE", "E", "M", "AM");
  for (int i = 0; i < kunden; i++) {
    abweichung_versuche = fabs((double)anzahl_kaeufe_pro_kunde[i] - durchschnitt_versuche);
    durchschnitt_kaeufe = durchschnitt_int_array(anzahl_kaeufe_pro_kunde, i + 1);
    abweichung_kaeufe[i] = fabs(durchschnitt_versuche - durchschnitt_kaeufe);
    printf("\n%7d %5d %15lf %15lf %15lf %15lf", i + 1, anzahl_kaeufe_pro_kunde[i], abweichung_versuche, durchschnitt_versuche, durchschnitt_kaeufe, abweichung_kaeufe[i]);
  }
  printf("\n\n");
  double median_kaeufe = median_int_array(anzahl_kaeufe_pro_kunde, kunden);
  double median_am = median_double_array(abweichung_kaeufe, kunden);
  double *min = liefere_min_double_array(abweichung_kaeufe, kunden);
  double *max = liefere_max_double_array(abweichung_kaeufe, kunden);
  printf("%-25s %10lf\n", "Median der Anzahl Kaeufe: ", median_kaeufe);
  printf("%-25s %10lf\n", "Median der Werte AM: ", median_am);
  printf("%-25s %10lf\n", "groesster der Werte AM: ", *max);
  printf("%-25s %10lf\n", "kleinster der Werte AM: ", *min);
  int indizes_array[kunden];
  int anzahl_indizes = 0;
  initialisiere_int_array(indizes_array, kunden, 0);
  for (double i = 1.0; i > 0.6; i = i - 0.2) {
    anzahl_indizes = indizes_kleiner_als_double_array(abweichung_kaeufe, kunden, indizes_array, i);
    printf("\n%-s %4.1lf :\t", "Indizes der Werte AM < ", i);
    putchar('[');
    schreibe_int_array(indizes_array, anzahl_indizes, 0, ", ", 0);
    putchar(']');
  }
  putchar('\n');
}
```