user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<fast_s_large_n>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x138,%rsp
  mov    (%rdx),%edx
  mov    (%rcx),%ebp
  mov    0x198(%rsp),%rax
  mov    0x190(%rsp),%rbx
  mov    %rdi,0x108(%rsp)
  mov    %rsi,0xa0(%rsp)
  mov    0x188(%rsp),%rdi
  mov    0x180(%rsp),%rsi
  mov    %rax,0xf8(%rsp)
  mov    0x1a0(%rsp),%rax
  mov    %rcx,0x58(%rsp)
  mov    %r8,0xf0(%rsp)
  mov    %r9,0x88(%rsp)
  mov    %rsi,0xa8(%rsp)
  mov    %rdi,0xb0(%rsp)
  mov    %rbx,0xb8(%rsp)
  mov    %rax,0xe0(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x128(%rsp)
  xor    %eax,%eax
  mov    (%r9),%eax
  mov    %edx,0x64(%rsp)
  mov    %eax,0x60(%rsp)
  mov    0x170(%rsp),%rax
  mov    (%rax),%eax
  mov    %eax,0x70(%rsp)
  mov    0x178(%rsp),%rax
  movsd  (%rbx),%xmm7
  movslq %edx,%rbx
  movsd  (%rdi),%xmm2
  mov    (%rax),%eax
  shl    $0x3,%rbx
  movsd  %xmm2,0x90(%rsp)
  mov    %rbx,%rdi
  mov    %eax,0x8(%rsp)
  mov    %eax,0x114(%rsp)
  mov    (%rsi),%eax
  movsd  %xmm7,0x98(%rsp)
  mov    %eax,0x2c(%rsp)
  call   <malloc@plt>
  mov    %rbx,%rdi
  mov    %rax,%r14
  call   <malloc@plt>
  mov    %rbx,%rdi
  mov    %rax,0x38(%rsp)
  call   <malloc@plt>
  mov    %rbx,%rdi
  mov    %rax,0x40(%rsp)
  call   <malloc@plt>
  mov    %rax,0x48(%rsp)
  movslq %ebp,%rax
  lea    0x0(,%rax,8),%r13
  mov    %rax,0xe8(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %r13,%rdi
  mov    %rax,0x10(%rsp)
  call   <malloc@plt>
  mov    %rax,0x18(%rsp)
  test   %ebp,%ebp
  jle    L579
  xor    %r15d,%r15d
  mov    %rbx,0x20(%rsp)
  mov    0x10(%rsp),%rbx
  lea    0x8(%r13),%r12
  mov    %ebp,0x30(%rsp)
  mov    %r15,%rbp
  mov    0x18(%rsp),%r15
  mov    %r14,0x50(%rsp)
  mov    0xe8(%rsp),%r14
  nopl   0x0(%rax,%rax,1)
L38:
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %r12,%rdi
  mov    %rax,(%rbx,%rbp,8)
  call   <malloc@plt>
  mov    %rax,(%r15,%rbp,8)
  add    $0x1,%rbp
  cmp    %r14,%rbp
  jne    L38
  mov    0x20(%rsp),%rbx
  mov    0x30(%rsp),%ebp
  mov    0x50(%rsp),%r14
L579:
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,%r12
  movslq 0x2c(%rsp),%rax
  mov    %rax,%r15
  shl    $0x3,%rax
  mov    %rax,%rdi
  mov    %rax,0xc0(%rsp)
  call   <malloc@plt>
  mov    %rax,0x68(%rsp)
  test   %r15d,%r15d
  jle    L317
  mov    %rax,%rcx
  mov    0x2c(%rsp),%eax
  mov    %rbx,0x20(%rsp)
  mov    %rcx,%rbx
  lea    (%rcx,%rax,8),%rax
  mov    %rax,%r15
  xchg   %ax,%ax
L273:
  mov    %r13,%rdi
  add    $0x8,%rbx
  call   <malloc@plt>
  mov    %rax,-0x8(%rbx)
  cmp    %r15,%rbx
  jne    L273
  mov    0x20(%rsp),%rbx
L317:
  mov    0xc0(%rsp),%rdi
  call   <malloc@plt>
  mov    %rax,0x78(%rsp)
  mov    0x70(%rsp),%eax
  imul   0x2c(%rsp),%eax
  movslq %eax,%r15
  mov    %eax,0x74(%rsp)
  shl    $0x3,%r15
  mov    %r15,%rdi
  call   <malloc@plt>
  mov    %r15,%rdi
  mov    %rax,0x80(%rsp)
  call   <malloc@plt>
  mov    0x74(%rsp),%ecx
  mov    %rax,0xc8(%rsp)
  test   %ecx,%ecx
  jle    L715
  mov    0x80(%rsp),%rcx
  mov    0x74(%rsp),%eax
  mov    %rbx,0x20(%rsp)
  lea    (%rcx,%rax,8),%rax
  mov    %rcx,%rbx
  mov    %rax,%r15
  nopl   0x0(%rax,%rax,1)
L569:
  mov    %r13,%rdi
  add    $0x8,%rbx
  call   <malloc@plt>
  mov    %rax,-0x8(%rbx)
  cmp    %r15,%rbx
  jne    L569
  mov    0x20(%rsp),%rbx
L715:
  mov    %rbx,%rdi
  call   <malloc@plt>
  mov    0x64(%rsp),%edx
  mov    %rax,0x20(%rsp)
  test   %edx,%edx
  jle    L299
  mov    %rax,%rcx
  mov    0x64(%rsp),%eax
  mov    %rbx,0x30(%rsp)
  mov    %rcx,%rbx
  lea    (%rcx,%rax,8),%rax
  mov    %rax,%r15
  nopl   0x0(%rax)
L347:
  mov    %r13,%rdi
  add    $0x8,%rbx
  call   <malloc@plt>
  mov    %rax,-0x8(%rbx)
  cmp    %r15,%rbx
  jne    L347
  mov    0x8(%rsp),%eax
  imul   0x70(%rsp),%eax
  mov    0x30(%rsp),%rbx
  movslq %eax,%r15
  mov    %eax,0x50(%rsp)
  lea    0x0(,%r15,4),%rdi
  shl    $0x3,%r15
  call   <malloc@plt>
  mov    %r15,%rdi
  mov    %rax,0xd0(%rsp)
  call   <malloc@plt>
  mov    %r15,%rdi
  mov    %rax,0x8(%rsp)
  call   <malloc@plt>
  mov    0x64(%rsp),%ecx
  mov    %rax,0x30(%rsp)
  mov    0x50(%rsp),%eax
  sub    $0x1,%ecx
  mov    %ecx,0xd8(%rsp)
  test   %eax,%eax
  jle    L219
L632:
  mov    0x8(%rsp),%rcx
  mov    0x50(%rsp),%eax
  mov    %rbx,0x100(%rsp)
  lea    (%rcx,%rax,8),%rax
  mov    %rcx,%rbx
  mov    %rax,%r15
  nopw   0x0(%rax,%rax,1)
L650:
  mov    %r13,%rdi
  add    $0x8,%rbx
  call   <malloc@plt>
  mov    %rax,-0x8(%rbx)
  cmp    %r15,%rbx
  jne    L650
  mov    0x64(%rsp),%esi
  mov    0x100(%rsp),%rbx
  test   %esi,%esi
  jle    L558
  test   %ebp,%ebp
  jle    L558
L177:
  mov    %ebp,%r8d
  mov    0x64(%rsp),%r9d
  mov    0x20(%rsp),%r10
  xor    %esi,%esi
  mov    0x108(%rsp),%rdi
  shl    $0x3,%r8
  nopl   0x0(%rax)
L719:
  mov    (%r10,%rsi,8),%rax
  mov    %rdi,%rdx
  lea    (%r8,%rax,1),%rcx
  nopl   0x0(%rax,%rax,1)
L352:
  movsd  (%rdx),%xmm0
  add    $0x8,%rax
  add    %rbx,%rdx
  movsd  %xmm0,-0x8(%rax)
  cmp    %rcx,%rax
  jne    L352
  add    $0x1,%rsi
  add    $0x8,%rdi
  cmp    %esi,%r9d
  jg     L719
  mov    $0x25,%edi
  xor    %eax,%eax
  call   <srand@plt>
  mov    0x50(%rsp),%ebx
  mov    0xd0(%rsp),%rdx
  mov    0xd8(%rsp),%esi
  mov    %ebx,%edi
  call   <sample_n_outof_N@plt>
  test   %ebx,%ebx
  jle    L718
L649:
  mov    %ebp,%eax
  mov    %ebp,%r13d
  mov    %r14,0xd8(%rsp)
  xor    %edi,%edi
  shr    %eax
  and    $0xfffffffe,%r13d
  lea    -0x1(%rbp),%r11d
  mov    0x30(%rsp),%r14
  lea    -0x1(%rax),%r8d
  movslq %r13d,%rcx
  mov    %r11,%rbx
  mov    %r12,0x100(%rsp)
  add    $0x1,%r8
  mov    0xd0(%rsp),%r12
  mov    0xa0(%rsp),%r15
  shl    $0x3,%rcx
  shl    $0x4,%r8
  nopl   0x0(%rax)
L170:
  movslq (%r12,%rdi,4),%r10
  test   %ebp,%ebp
  jle    L51
  mov    0x20(%rsp),%rax
  mov    0x8(%rsp),%rsi
  mov    (%rax,%r10,8),%rax
  mov    (%rsi,%rdi,8),%rdx
  lea    0x8(%rax),%rsi
  cmp    %rsi,%rdx
  mov    $0x0,%esi
  je     L376
  cmp    $0x2,%ebx
  jbe    L376
  nopl   (%rax)
L23:
  movupd (%rax,%rsi,1),%xmm4
  movups %xmm4,(%rdx,%rsi,1)
  add    $0x10,%rsi
  cmp    %r8,%rsi
  jne    L23
  cmp    %ebp,%r13d
  je     L51
  movsd  (%rax,%rcx,1),%xmm0
  movsd  %xmm0,(%rdx,%rcx,1)
L51:
  movsd  (%r15,%r10,8),%xmm0
  movsd  %xmm0,(%r14,%rdi,8)
  add    $0x1,%rdi
  cmp    %edi,0x50(%rsp)
  jg     L170
  mov    0xd8(%rsp),%r14
  mov    0x100(%rsp),%r12
L718:
  mov    0x70(%rsp),%r15d
  test   %r15d,%r15d
  jle    L133
  mov    0x80(%rsp),%rbx
  mov    0xc8(%rsp),%r15
  xor    %r13d,%r13d
  mov    %ebp,0x50(%rsp)
  mov    %r13d,%ecx
  mov    0xc0(%rsp),%rbp
  lea    0x114(%rsp),%rax
  mov    %r14,0xc0(%rsp)
  mov    0xf0(%rsp),%r14
  mov    %r12,0xd8(%rsp)
  mov    %rbx,%r13
  mov    %ecx,%ebx
  mov    %r15,%r12
  mov    %rax,%r15
  nopw   0x0(%rax,%rax,1)
L426:
  mov    0x30(%rsp),%rax
  sub    $0x8,%rsp
  mov    %r14,%r8
  mov    %r15,%rdx
  mov    0x11c(%rsp),%edi
  imul   %ebx,%edi
  add    $0x1,%ebx
  movslq %edi,%rdi
  shl    $0x3,%rdi
  lea    (%rax,%rdi,1),%rsi
  add    0x10(%rsp),%rdi
  push   %r12
  add    %rbp,%r12
  push   %r13
  add    %rbp,%r13
  push   0xd0(%rsp)
  push   0xd0(%rsp)
  push   0xd0(%rsp)
  mov    0xb8(%rsp),%r9
  mov    0x88(%rsp),%rcx
  call   <fast_s_with_memory@plt>
  add    $0x30,%rsp
  cmp    %ebx,0x70(%rsp)
  jne    L426
  mov    0x50(%rsp),%ebp
  mov    0xc0(%rsp),%r14
  mov    0xd8(%rsp),%r12
L133:
  mov    0x2c(%rsp),%r13d
  test   %r13d,%r13d
  jle    L285
  mov    0x2c(%rsp),%ecx
  cmp    $0x1,%ecx
  je     L547
  shr    %ecx
  mov    0x78(%rsp),%rsi
  movapd D27(%rip),%xmm0
  mov    %ecx,%edx
  shl    $0x4,%rdx
  mov    %rsi,%rax
  add    %rsi,%rdx
  nopl   0x0(%rax)
L480:
  movups %xmm0,(%rax)
  add    $0x10,%rax
  cmp    %rax,%rdx
  jne    L480
  mov    0x2c(%rsp),%ecx
  movsd  D27(%rip),%xmm7
  movsd  %xmm7,0xb0(%rsp)
  mov    %ecx,%eax
  and    $0xfffffffe,%eax
  and    $0x1,%ecx
  je     L29
L585:
  movsd  D27(%rip),%xmm6
  mov    0x78(%rsp),%rcx
  cltq
  movsd  %xmm6,0xb0(%rsp)
  movsd  %xmm6,(%rcx,%rax,8)
L29:
  mov    0x68(%rsp),%rdi
  mov    0x2c(%rsp),%esi
  mov    %ebp,%edx
  call   <reset_mat@plt>
  mov    0x74(%rsp),%edi
  mov    0x70(%rsp),%ebx
  imul   0x114(%rsp),%ebx
  test   %edi,%edi
  jle    L686
L386:
  mov    %ebp,%eax
  xor    %r13d,%r13d
  mov    0xc8(%rsp),%r15
  movsd  0xb0(%rsp),%xmm2
  movl   $0x0,0xd8(%rsp)
  shr    %eax
  movsd  0x90(%rsp),%xmm3
  movsd  0x98(%rsp),%xmm1
  sub    $0x1,%eax
  movsd  %xmm2,0x88(%rsp)
  add    $0x1,%rax
  shl    $0x4,%rax
  mov    %rax,0x100(%rsp)
  mov    %ebp,%eax
  and    $0xfffffffe,%eax
  mov    %eax,0x108(%rsp)
  cltq
  shl    $0x3,%rax
  mov    %rax,0xc0(%rsp)
  add    %r12,%rax
  mov    %rax,0xb8(%rsp)
  lea    0x118(%rsp),%rax
  mov    %rax,0xa8(%rsp)
  lea    -0x1(%rbp),%eax
  mov    %eax,0xf0(%rsp)
  mov    %r12,%rax
  mov    %r15,%r12
  mov    %rax,%r15
  jmp    L355
  nopl   0x0(%rax,%rax,1)
L191:
  add    $0x1,%r13
  add    $0x8,%r12
  cmp    %r13d,0x74(%rsp)
  jle    L204
L355:
  push   0xa8(%rsp)
  movapd %xmm3,%xmm0
  mov    %r14,%r9
  mov    %ebx,%ecx
  push   %r15
  mov    %ebp,%r8d
  push   %r12
  push   $0x0
  mov    0x80(%rsp),%eax
  push   %rax
  mov    0xa8(%rsp),%rax
  push   (%rax,%r13,8)
  push   0x48(%rsp)
  push   0x48(%rsp)
  push   0x88(%rsp)
  push   0x88(%rsp)
  mov    0x88(%rsp),%rdx
  mov    0x80(%rsp),%rsi
  mov    0x58(%rsp),%rdi
  movsd  %xmm3,0xa8(%rsp)
  movsd  %xmm1,0xa0(%rsp)
  call   <refine_fast_s@plt>
  add    $0x50,%rsp
  mov    %ebp,%edx
  mov    %ebx,%esi
  movsd  0x50(%rsp),%xmm1
  mov    %r14,%rdi
  movsd  0x88(%rsp),%xmm0
  call   <loss_rho@plt>
  movsd  0x58(%rsp),%xmm3
  movsd  0x50(%rsp),%xmm1
  comisd %xmm0,%xmm3
  jbe    L191
  movsd  0x118(%rsp),%xmm2
  mov    %ebp,%edx
  mov    %ebx,%esi
  mov    %r14,%rdi
  movapd %xmm3,%xmm0
  movsd  %xmm1,0x58(%rsp)
  movsd  %xmm3,0x50(%rsp)
  call   <find_scale@plt>
  movslq 0xd8(%rsp),%rax
  mov    0x78(%rsp),%rcx
  test   %ebp,%ebp
  movsd  0x50(%rsp),%xmm3
  movsd  0x58(%rsp),%xmm1
  movsd  %xmm0,0x118(%rsp)
  movsd  %xmm0,(%rcx,%rax,8)
  jle    L279
  mov    0x68(%rsp),%rcx
  mov    (%rcx,%rax,8),%rdx
  lea    0x8(%r15),%rax
  cmp    %rax,%rdx
  je     L278
  cmpl   $0x2,0xf0(%rsp)
  jbe    L278
  mov    0x100(%rsp),%rcx
  xor    %eax,%eax
  nopl   (%rax)
L644:
  movupd (%r15,%rax,1),%xmm2
  movups %xmm2,(%rdx,%rax,1)
  add    $0x10,%rax
  cmp    %rax,%rcx
  jne    L644
  cmp    %ebp,0x108(%rsp)
  je     L279
  mov    0xb8(%rsp),%rax
  movsd  (%rax),%xmm0
  mov    0xc0(%rsp),%rax
  movsd  %xmm0,(%rdx,%rax,1)
L279:
  mov    0x2c(%rsp),%esi
  mov    0x78(%rsp),%rdi
  movsd  %xmm1,0x58(%rsp)
  add    $0x1,%r13
  movsd  %xmm3,0x50(%rsp)
  add    $0x8,%r12
  call   <find_max@plt>
  mov    0x78(%rsp),%rcx
  movsd  0x50(%rsp),%xmm3
  mov    %eax,0xd8(%rsp)
  cltq
  movsd  0x58(%rsp),%xmm1
  movsd  (%rcx,%rax,8),%xmm2
  movsd  %xmm2,0x88(%rsp)
  cmp    %r13d,0x74(%rsp)
  jg     L355
  nopw   0x0(%rax,%rax,1)
L204:
  mov    0x2c(%rsp),%ebx
  mov    %r15,%r12
  test   %ebx,%ebx
  jle    L114
L686:
  mov    %ebp,%eax
  mov    0x78(%rsp),%r13
  xor    %r15d,%r15d
  movsd  0xb0(%rsp),%xmm2
  shr    %eax
  lea    -0x1(%rax),%ebx
  mov    %ebp,%eax
  movsd  %xmm2,0x50(%rsp)
  and    $0xfffffffe,%eax
  add    $0x1,%rbx
  shl    $0x4,%rbx
  mov    %eax,0x88(%rsp)
  lea    0x120(%rsp),%rax
  mov    %rbx,0xa8(%rsp)
  mov    %ebp,%ebx
  mov    %r14,%rbp
  mov    0xf8(%rsp),%r14
  mov    %rax,0x58(%rsp)
  jmp    L701
  nopl   (%rax)
L471:
  add    $0x1,%r15
  add    $0x8,%r13
  cmp    %r15d,0x2c(%rsp)
  jle    L45
L701:
  push   0x58(%rsp)
  mov    %rbp,%r9
  mov    %ebx,%r8d
  push   %r12
  push   %r13
  push   $0x1
  mov    0x80(%rsp),%eax
  push   %rax
  mov    0x90(%rsp),%rax
  push   (%rax,%r15,8)
  push   0x48(%rsp)
  push   0x48(%rsp)
  push   0x88(%rsp)
  push   0x88(%rsp)
  movsd  0xe8(%rsp),%xmm1
  movsd  0xe0(%rsp),%xmm0
  mov    0xb4(%rsp),%ecx
  mov    0x88(%rsp),%rdx
  mov    0xf0(%rsp),%rsi
  mov    0x70(%rsp),%rdi
  call   <refine_fast_s@plt>
  movsd  0x170(%rsp),%xmm1
  add    $0x50,%rsp
  movsd  0x50(%rsp),%xmm7
  comisd %xmm1,%xmm7
  jbe    L471
  mov    0xe0(%rsp),%rax
  movsd  %xmm1,(%rax)
  test   %ebx,%ebx
  jle    L439
  xor    %edx,%edx
  cmp    $0x1,%ebx
  je     L601
  mov    0xa8(%rsp),%rax
  nopl   0x0(%rax)
L493:
  movupd (%r12,%rdx,1),%xmm5
  movups %xmm5,(%r14,%rdx,1)
  add    $0x10,%rdx
  cmp    %rdx,%rax
  jne    L493
  mov    0x88(%rsp),%eax
  cmp    %eax,%ebx
  je     L439
  movslq %eax,%rdx
L601:
  movsd  (%r12,%rdx,8),%xmm0
  movsd  %xmm0,(%r14,%rdx,8)
L439:
  movsd  %xmm1,0x50(%rsp)
  add    $0x1,%r15
  add    $0x8,%r13
  cmp    %r15d,0x2c(%rsp)
  jg     L701
L45:
  mov    0x64(%rsp),%r11d
  mov    %rbp,%r14
  mov    %ebx,%ebp
  test   %r11d,%r11d
  jle    L308
L81:
  mov    0x20(%rsp),%rcx
  mov    0x64(%rsp),%eax
  mov    %rcx,%r13
  lea    (%rcx,%rax,8),%rbx
  xchg   %ax,%ax
L320:
  mov    0x0(%r13),%rdi
  add    $0x8,%r13
  call   <free@plt>
  cmp    %rbx,%r13
  jne    L320
L308:
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  mov    0xc8(%rsp),%rdi
  call   <free@plt>
  mov    0x74(%rsp),%r10d
  test   %r10d,%r10d
  jle    L14
L298:
  mov    0x80(%rsp),%rcx
  mov    0x74(%rsp),%eax
  mov    %rcx,%r13
  lea    (%rcx,%rax,8),%rbx
  cs nopw 0x0(%rax,%rax,1)
L543:
  mov    0x0(%r13),%rdi
  add    $0x8,%r13
  call   <free@plt>
  cmp    %rbx,%r13
  jne    L543
L14:
  mov    0x80(%rsp),%rdi
  call   <free@plt>
  mov    0xd0(%rsp),%rdi
  call   <free@plt>
  mov    0x30(%rsp),%rdi
  call   <free@plt>
  mov    0x70(%rsp),%eax
  imul   0x114(%rsp),%eax
  test   %eax,%eax
  jle    L360
  mov    0x8(%rsp),%rcx
  mov    %rcx,%r13
  lea    (%rcx,%rax,8),%rbx
  nopw   0x0(%rax,%rax,1)
L485:
  mov    0x0(%r13),%rdi
  add    $0x8,%r13
  call   <free@plt>
  cmp    %rbx,%r13
  jne    L485
L360:
  mov    0x8(%rsp),%rdi
  xor    %ebx,%ebx
  call   <free@plt>
  mov    0x40(%rsp),%rdi
  call   <free@plt>
  mov    0x48(%rsp),%rdi
  call   <free@plt>
  test   %ebp,%ebp
  jle    L571
  mov    0x10(%rsp),%rbp
  mov    0x18(%rsp),%r13
  mov    0xe8(%rsp),%r15
L69:
  mov    0x0(%rbp,%rbx,8),%rdi
  call   <free@plt>
  mov    0x0(%r13,%rbx,8),%rdi
  add    $0x1,%rbx
  call   <free@plt>
  cmp    %rbx,%r15
  jne    L69
L571:
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  mov    0x18(%rsp),%rdi
  call   <free@plt>
  mov    0x38(%rsp),%rdi
  call   <free@plt>
  mov    0x2c(%rsp),%r9d
  test   %r9d,%r9d
  jle    L249
  mov    0x68(%rsp),%rcx
  mov    0x2c(%rsp),%eax
  mov    %rcx,%rbx
  lea    (%rcx,%rax,8),%rbp
  nopl   (%rax)
L146:
  mov    (%rbx),%rdi
  add    $0x8,%rbx
  call   <free@plt>
  cmp    %rbx,%rbp
  jne    L146
L249:
  mov    0x68(%rsp),%rdi
  call   <free@plt>
  mov    0x78(%rsp),%rdi
  call   <free@plt>
  mov    %r14,%rdi
  call   <free@plt>
  mov    0x128(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L592
  add    $0x138,%rsp
  mov    %r12,%rdi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10f0 <free@plt>
  nopl   (%rax)
L376:
  movsd  (%rax,%rsi,8),%xmm0
  mov    %rsi,%r9
  movsd  %xmm0,(%rdx,%rsi,8)
  add    $0x1,%rsi
  cmp    %r9,%r11
  jne    L376
  jmp    L51
L278:
  mov    0xf0(%rsp),%esi
  xor    %eax,%eax
  nopl   0x0(%rax)
L321:
  movsd  (%r15,%rax,8),%xmm0
  mov    %rax,%rcx
  movsd  %xmm0,(%rdx,%rax,8)
  add    $0x1,%rax
  cmp    %rcx,%rsi
  jne    L321
  jmp    L279
L114:
  mov    0x64(%rsp),%eax
  test   %eax,%eax
  jg     L81
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  mov    0xc8(%rsp),%rdi
  call   <free@plt>
  jmp    L298
  nopl   0x0(%rax)
L558:
  mov    $0x25,%edi
  xor    %eax,%eax
  call   <srand@plt>
  mov    0xd8(%rsp),%esi
  mov    0x50(%rsp),%edi
  mov    0xd0(%rsp),%rdx
  call   <sample_n_outof_N@plt>
  jmp    L649
L285:
  mov    0x2c(%rsp),%esi
  mov    0x68(%rsp),%rdi
  mov    %ebp,%edx
  call   <reset_mat@plt>
  mov    0x74(%rsp),%r8d
  mov    0x70(%rsp),%ebx
  movsd  D27(%rip),%xmm7
  imul   0x114(%rsp),%ebx
  movsd  %xmm7,0xb0(%rsp)
  test   %r8d,%r8d
  jg     L386
  mov    0x64(%rsp),%ecx
  test   %ecx,%ecx
  jg     L81
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  mov    0xc8(%rsp),%rdi
  call   <free@plt>
  jmp    L14
  nopl   0x0(%rax)
L299:
  mov    0x8(%rsp),%eax
  imul   0x70(%rsp),%eax
  movslq %eax,%r15
  mov    %eax,0x50(%rsp)
  lea    0x0(,%r15,4),%rdi
  shl    $0x3,%r15
  call   <malloc@plt>
  mov    %r15,%rdi
  mov    %rax,0xd0(%rsp)
  call   <malloc@plt>
  mov    %r15,%rdi
  mov    %rax,0x8(%rsp)
  call   <malloc@plt>
  mov    0x64(%rsp),%ecx
  mov    0x50(%rsp),%edx
  mov    %rax,0x30(%rsp)
  sub    $0x1,%ecx
  mov    %ecx,0xd8(%rsp)
  test   %edx,%edx
  jg     L632
L231:
  mov    $0x25,%edi
  xor    %eax,%eax
  call   <srand@plt>
  mov    0xd8(%rsp),%esi
  mov    0x50(%rsp),%edi
  mov    0xd0(%rsp),%rdx
  call   <sample_n_outof_N@plt>
  jmp    L718
L219:
  test   %ebp,%ebp
  jg     L177
  jmp    L231
L547:
  xor    %eax,%eax
  jmp    L585
L592:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D27
type_infered: byte[16]

tool: {"D27": [0x40,0x8c,0xb5,0x78,0x1d,0xaf,0x15,0x44,0x40,0x8c,0xb5,0x78,0x1d,0xaf,0x15,0x44]}

assistant: ```c
void fast_s_large_n(double *X, double *y, int *nn, int *pp, int *NN, int *K, int *ggroups, int *nn_group, int *bbest_r, double *bb, double *rrhoc, double *bbeta, double *sscale) {
  void reset_mat(double **a, int n, int m);
  double loss_rho(double *r, double scale, int n, int p, double rhoc);
  double find_scale(double *r, double b, double rhoc, double initial_scale, int n, int p);
  void fast_s_with_memory(double **x, double *y, int *nn, int *pp, int *NN, int *K, int *bbest_r, double *bb, double *rrhoc, double **best_betas, double *best_scales);
  void sample_n_outof_N(int n, int N, int *x);
  void refine_fast_s(double **x, double *y, double *weights, int n, int p, double *res, double *tmp, double *tmp2, double **tmp_mat, double **tmp_mat2, double *beta_cand, int kk, int conv, double b, double rhoc, double *is, double *beta_ref, double *scale);
  int find_max(double *a, int n);
  register int i, j, k, k2;
  int n = *nn, p = *pp, kk = *K, *indices;
  int groups = *ggroups, n_group = *nn_group, best_r = *bbest_r;
  double **best_betas, *best_scales;
  double **final_best_betas, *final_best_scales;
  double **x, **xsamp, *ysamp, *res, sc, *beta_ref;
  double *tmp, *tmp2, **tmp_mat, **tmp_mat2, *weights;
  double best_sc, worst_sc, b = *bb, rhoc = *rrhoc, aux;
  int pos_worst_scale, conv;
  res = (double *)malloc(n * sizeof(double));
  weights = (double *)malloc(n * sizeof(double));
  tmp = (double *)malloc(n * sizeof(double));
  tmp2 = (double *)malloc(n * sizeof(double));
  tmp_mat = (double **)malloc(p * sizeof(double *));
  tmp_mat2 = (double **)malloc(p * sizeof(double *));
  for (i = 0; i < p; i++) {
    tmp_mat[i] = (double *)malloc(p * sizeof(double));
    tmp_mat2[i] = (double *)malloc((p + 1) * sizeof(double));
  };
  beta_ref = (double *)malloc(p * sizeof(double));
  final_best_betas = (double **)malloc(best_r * sizeof(double *));
  for (i = 0; i < best_r; i++)
    final_best_betas[i] = (double *)malloc(p * sizeof(double));
  final_best_scales = (double *)malloc(best_r * sizeof(double));
  k = best_r * groups;
  best_betas = (double **)malloc(k * sizeof(double *));
  best_scales = (double *)malloc(k * sizeof(double));
  for (i = 0; i < k; i++)
    best_betas[i] = (double *)malloc(p * sizeof(double));
  x = (double **)malloc(n * sizeof(double *));
  for (i = 0; i < n; i++)
    x[i] = (double *)malloc(p * sizeof(double));
  k = n_group * groups;
  indices = (int *)malloc(k * sizeof(int));
  xsamp = (double **)malloc(k * sizeof(double *));
  ysamp = (double *)malloc(k * sizeof(double));
  for (i = 0; i < k; i++)
    xsamp[i] = (double *)malloc(p * sizeof(double));
  for (i = 0; i < n; i++)
    for (j = 0; j < p; j++)
      x[i][j] = X[j * n + i];
  srand((long)37);
  sample_n_outof_N(k, n - 1, indices);
  for (i = 0; i < k; i++) {
    for (j = 0; j < p; j++)
      xsamp[i][j] = x[indices[i]][j];
    ysamp[i] = y[indices[i]];
  };
  for (i = 0; i < groups; i++) {
    fast_s_with_memory(xsamp + i * n_group, ysamp + i * n_group, &n_group, pp, NN, K, bbest_r, bb, rrhoc, best_betas + i * best_r, best_scales + i * best_r);
  };
  best_sc = 1e+20;
  pos_worst_scale = conv = 0;
  for (i = 0; i < best_r; i++)
    final_best_scales[i] = 1e+20;
  worst_sc = 1e+20;
  reset_mat(final_best_betas, best_r, p);
  k = n_group * groups;
  for (i = 0; i < (best_r * groups); i++) {
    refine_fast_s(xsamp, ysamp, weights, k, p, res, tmp, tmp2, tmp_mat, tmp_mat2, best_betas[i], kk, conv, b, rhoc, best_scales + i, beta_ref, &sc);
    if (loss_rho(res, worst_sc, k, p, rhoc) < b) {
      sc = find_scale(res, b, rhoc, sc, k, p);
      k2 = pos_worst_scale;
      final_best_scales[k2] = sc;
      for (j = 0; j < p; j++)
        final_best_betas[k2][j] = beta_ref[j];
      pos_worst_scale = find_max(final_best_scales, best_r);
      worst_sc = final_best_scales[pos_worst_scale];
    };
  };
  best_sc = 1e+20;
  conv = 1;
  for (i = 0; i < best_r; i++) {
    refine_fast_s(x, y, weights, n, p, res, tmp, tmp2, tmp_mat, tmp_mat2, final_best_betas[i], kk, conv, b, rhoc, final_best_scales + i, beta_ref, &aux);
    if (aux < best_sc) {
      *sscale = best_sc = aux;
      for (j = 0; j < p; j++)
        bbeta[j] = beta_ref[j];
    };
  };
  for (i = 0; i < n; i++)
    free(x[i]);
  free(x);
  free(best_scales);
  k = best_r * groups;
  for (i = 0; i < k; i++)
    free(best_betas[i]);
  free(best_betas);
  free(indices);
  free(ysamp);
  k = n_group * groups;
  for (i = 0; i < k; i++)
    free(xsamp[i]);
  free(xsamp);
  free(tmp);
  free(tmp2);
  for (i = 0; i < p; i++) {
    free(tmp_mat[i]);
    free(tmp_mat2[i]);
  };
  free(tmp_mat);
  free(tmp_mat2);
  free(weights);
  for (i = 0; i < best_r; i++)
    free(final_best_betas[i]);
  free(final_best_betas);
  free(final_best_scales);
  free(res);
  free(beta_ref);
}
```