Forums Scripts & Popups $min() challenge.

alias min { return $gettok($sorttok($1-,32,n),1,32) }

alias min {
  if (!$1) { return 2* $eval($min,0) $+ : Invalid Parameters }
  elseif (!$2) { return 2* $eval($min,0) $+ : Invalid Parameters } 
  elseif ($1) && ($1 !isnum) && (!$2) { return 2* $eval($min,0) $+ : Invalid Parameters }
  elseif ($2) && ($2 !isnum) && (!$3) { return 2* $eval($min,0) $+ : Invalid Parameters }
  else { 
    var %x, %i = $regsub($sorttok($1-,32,n),/[A-Z]|[a-z]/g,$null,%x)  
    return The Minimum Value Is: $gettok(%x,1,32)
  }
}

alias max {
  var %max = $1, %i = $0
  while (%i) {
    if ($eval($ $+ %i,2) > %max) var %max = $ifmatch
    dec %i
  }
  return %max
}

alias min {
  var %i 1
  if (!$1) { return 2* $eval($min,0) $+ : Invalid Parameters }
  elseif (!$2) { return 2* $eval($min,0) $+ : Invalid Parameters } 
  elseif ($1) && ($1 !isnum) && (!$2) { return 2* $eval($min,0) $+ : Invalid Parameters }
  elseif ($2 !isnum) && (!$3) { return 2* $eval($min,0) $+ : Invalid Parameters }
  else {
    while (%i <= $0) {
      if ($eval($ $+ %i,2) isnum) { set %num %num $eval($ $+ %i,2) } 
      inc %i
    }
    tokenize 32 %num
    var %x, %i = $regsub($sorttok($1-,32,n),/[a-z]|[A-Z]/g,$null,%x)  
    return The Minimum Value Is: $gettok(%x,1,32)
  }
}

alias max {
  window -hl @@
  aline @@ $*
  filter -wwcute 1 10 @@ @@
  var %a = $line(@@,1)
  close -@ @@
  return %a
}

alias min {
  var %m = $1, %i = $0
  while (%i > 1) {
    if ($eval($ $+ %i,2) < %m) %m = $ifmatch
    dec %i
  }
  return %m
}

alias jerk_min {
  return $gettok($sorttok($1-,32,n),1,32) 
}

alias code_min {  
  var %m = $1, %i = $0  
  while (%i > 1) {  
    if ($eval($ $+ %i,2) < %m) %m = $ifmatch
    dec %i  
  }  
  return %m
}

alias bench {
  var %i = 0
  var %jerk_ticks = 0
  var %code_ticks = 0
  while (%i < 10000) {
    var %nums = $genrandnums($rand(1,50))
    var %start = $ticks
    .echo -q $jerk_min(%nums)
    var %end = $ticks
    %jerk_ticks = $calc(%jerk_ticks + (%end - %start))
    var %start = $ticks
    .echo -q $code_min(%nums)
    var %end = $ticks
    %code_ticks = $calc(%code_ticks + (%end - %start))
    inc %i
  }
  .echo -a jerk_min took %jerk_ticks ticks
  .echo -a code_min took %code_ticks ticks
}

;picks $1 random numbers
alias genrandnums {
  var %i = $1
  var %nums
  while (%i) {
    set %nums %nums $+ $rand(-4294967295,4294967295) $+ $chr(44)
    dec %i
  }
  return $left(%nums,-1)
}

;$rand doesn't like negative numbers, so here is one that does
alias negrand {
  if ($1 > -1 && $2 > -1) return $rand($1,$2)
  if ($1 < 0 && $2 < 0) return - $+ $rand($abs($1),$abs($2))
  else {
    var %hi = $calc($abs($1) + $abs($2))
    var %lo = $iif($1 < $2,$1,$2)
    return $calc($rand(0,%hi) + %lo)
  }
}

alias max1 return $gettok($sorttok($1-,32,nr),1,32)
alias max2 {
  var %i = $0, %a = $1
  while %i {
    if ($eval($ $+ %i,2) > %a) %a = $ifmatch
    dec %i
  }
  return %a
}
alias bcmark { 
  var %i = $1, %t = $ticks
  while %i { $2- | dec %i }
  echo -s $2 time: $calc($ticks - %t)
}

    var %start = $ticks
    .echo -q $jerk_min(%nums)
    var %end = $ticks

  var %nums = $genrandnums($rand(1,50))
  ;now %nums should be a comma-separated list of 1 to 50 random numbers
  ...
  .echo -q $jerk_min(%nums)
  ;will retrun the same list, since there is only one token when using 32 for C
  ...
  .echo -q $code_min(%nums)
  ;will also retrun the same list, because %nums is now passed as $1

  $genrandnums won't work either, because it's calling $rand instead of $negrand, so it returns $str($chr(44),$rand(1,$1)).

alias jerk_min {
  tokenize 44 $1-
  return $gettok($sorttok($1-,32,n),1,32) 
}

alias code_min {  
  tokenize 44 $1-
  var %m = $1, %i = $0  
  while (%i > 1) {  
    if ($eval($ $+ %i,2) < %m) %m = $ifmatch
    dec %i  
  }  
  return %m
}

alias bench {
  var %i = 0
  var %jerk_ticks = 0
  var %code_ticks = 0
  hmake nums %1
  while (%i < $1) {
    hadd nums %i $genrandnums($rand(1,50))
    inc %i
  }
  var %i = 0
  var %start = $ticks
  while (%i < $1) {
    .echo -q $jerk_min($hget(nums,%i))
    inc %i
  }
  var %end = $ticks
  %jerk_ticks = $calc(%jerk_ticks + (%end - %start))

  var %start = $ticks
  var %i = 0
  while (%i < $1) {
    .echo -q $code_min($hget(nums,%i))
    inc %i
  }
  var %end = $ticks
  %code_ticks = $calc(%code_ticks + (%end - %start))
  inc %i

  .echo -a jerk_min took %jerk_ticks ticks
  .echo -a code_min took %code_ticks ticks
  hfree nums
}

;picks $1 random numbers
alias genrandnums {
  var %i = $1
  var %nums
  while (%i) {
    set %nums %nums $+ $negrand(-4294967295,4294967295) $+ $chr(44)
    dec %i
  }
  return $left(%nums,-1)
}

;$rand doesn't like negative numbers, so here is one that does
alias negrand {
  if ($1 > -1 && $2 > -1) return $rand($1,$2)
  if ($1 < 0 && $2 < 0) return - $+ $rand($abs($1),$abs($2))
  else {
    var %hi = $calc($abs($1) + $abs($2))
    var %lo = $iif($1 < $2,$1,$2)
    return $calc($rand(0,%hi) + %lo)
  }
}