// File: /workspace/github_c_makefile_star2_O3/CBaquero[P]random/Random.cc
// Function: RandomLExp_RedisCommand(RedisModuleCtx*, RedisModuleString**, int)
int RandomLExp_RedisCommand(RedisModuleCtx *ctx, RedisModuleString **argv, int argc) {
  double lambda;
  if (argc < 3 || argc > 4) return RedisModule_WrongArity(ctx);
  if (argc == 4)
  {
    if (RedisModule_StringToDouble(argv[3],&lambda) != REDISMODULE_OK)
      return RedisModule_ReplyWithError(ctx,"ERR invalid lambda");
  }
  else // If no parameter, use default lambda of 1
    lambda=1.0;

  /* Open key */
  RedisModuleKey *key = (RedisModuleKey *) RedisModule_OpenKey(ctx, argv[1], REDISMODULE_READ | REDISMODULE_WRITE);
 /* Key must be empty or list */
  if ((RedisModule_KeyType(key) != REDISMODULE_KEYTYPE_LIST &&
       RedisModule_KeyType(key) != REDISMODULE_KEYTYPE_EMPTY)) 
  {
     RedisModule_CloseKey(key);
     return RedisModule_ReplyWithError(ctx,REDISMODULE_ERRORMSG_WRONGTYPE);
  }

  /* Get count */
  long long count;
  if ((RedisModule_StringToLongLong(argv[2],&count) != REDISMODULE_OK) ||
        (count < 0)) 
  {
     RedisModule_CloseKey(key);
     return RedisModule_ReplyWithError(ctx,"ERR invalid count");
  }

  /* Push count randoms */
  std::exponential_distribution<double> rexp(lambda);
  while (count-- > 0)
  {
    RedisModuleString *ele;
    /* Make string with the same 19 digita precision of ReplyWithDouble */
    ele=RedisModule_CreateStringPrintf(ctx,"%.19f",rexp(gen));
    RedisModule_ListPush(key,REDISMODULE_LIST_HEAD,ele);
    RedisModule_FreeString(ctx,ele);
  }
 
  size_t len = RedisModule_ValueLength(key);
  RedisModule_CloseKey(key);
  RedisModule_ReplyWithLongLong(ctx, len);
  return REDISMODULE_OK;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdi, %rbx
leal -0x5(%rdx), %eax
cmpl $-0x3, %eax
ja 0x4a71
movq 0x54e2(%rip), %rax      # 0x9f40
movq %rbx, %rdi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmpq *(%rax)
movq %rsi, %r15
cmpl $0x4, %edx
jne 0x4aa1
movq 0x5460(%rip), %rax      # 0x9ee0
movq 0x18(%r15), %rdi
leaq -0x38(%rbp), %rsi
callq *(%rax)
testl %eax, %eax
je 0x4aaf
movq 0x52db(%rip), %rax      # 0x9d70
leaq 0x268e(%rip), %rsi      # 0x712a
jmp 0x4b44
movabsq $0x3ff0000000000000, %rax # imm = 0x3FF0000000000000
movq %rax, -0x38(%rbp)
movq 0x5352(%rip), %rax      # 0x9e08
movq 0x8(%r15), %rsi
movq %rbx, %rdi
movl $0x3, %edx
callq *(%rax)
movq %rax, %r14
movq 0x5362(%rip), %r12      # 0x9e30
movq %rax, %rdi
callq *(%r12)
cmpl $0x2, %eax
je 0x4b01
movq %r14, %rdi
callq *(%r12)
testl %eax, %eax
je 0x4b01
movq 0x54fc(%rip), %rax      # 0x9fe8
movq %r14, %rdi
callq *(%rax)
movq 0x5278(%rip), %rax      # 0x9d70
leaq 0x25d1(%rip), %rsi      # 0x70d0
jmp 0x4b44
movq 0x5418(%rip), %rax      # 0x9f20
movq 0x10(%r15), %rdi
leaq -0x30(%rbp), %r15
movq %r15, %rsi
callq *(%rax)
testl %eax, %eax
setne %cl
movq (%r15), %rax
testq %rax, %rax
sets %dl
orb %cl, %dl
cmpb $0x1, %dl
jne 0x4b4e
movq 0x54b7(%rip), %rax      # 0x9fe8
movq %r14, %rdi
callq *(%rax)
movq 0x5233(%rip), %rax      # 0x9d70
leaq 0x25ce(%rip), %rsi      # 0x7112
movq %rbx, %rdi
callq *(%rax)
jmp 0x4c0c
movsd -0x38(%rbp), %xmm0
movsd %xmm0, -0x40(%rbp)
subq $0x1, %rax
movq %rax, -0x30(%rbp)
jb 0x4be0
movq 0x53c7(%rip), %r15      # 0x9f30
movq 0x5100(%rip), %r12      # 0x9c70
movq 0x52a9(%rip), %rax      # 0x9e20
movq (%rax), %r13
movq 0x5417(%rip), %rdi      # 0x9f98
callq 0x4180
movsd 0x2472(%rip), %xmm1     # 0x7000
subsd %xmm0, %xmm1
movapd %xmm1, %xmm0
callq 0x40e0
xorpd 0x248d(%rip), %xmm0     # 0x7030
divsd -0x40(%rbp), %xmm0
movq %rbx, %rdi
leaq 0x2572(%rip), %rsi      # 0x7124
movb $0x1, %al
callq *%r13
movq %rax, %r13
movq %r14, %rdi
xorl %esi, %esi
movq %rax, %rdx
callq *(%r15)
movq %rbx, %rdi
movq %r13, %rsi
callq *(%r12)
movq -0x30(%rbp), %rax
leaq -0x1(%rax), %rcx
movq %rcx, -0x30(%rbp)
testq %rax, %rax
jg 0x4b70
movq 0x5031(%rip), %rax      # 0x9c18
movq %r14, %rdi
callq *(%rax)
movq %rax, %r15
movq 0x53f2(%rip), %rax      # 0x9fe8
movq %r14, %rdi
callq *(%rax)
movq 0x536e(%rip), %rax      # 0x9f70
movq %rbx, %rdi
movq %r15, %rsi
callq *(%rax)
xorl %eax, %eax
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq