Forums Scripts & Popups How to order $rand evals?

alias ex { 
  var %t = 10, %l
  while ($numtok(%l,32) < %t) { var -s %l = $addtok(%l,$rand(1,100),32) }
  var -s %l = $sorttok(%l,32,n)
}

; Working off DaveC's Code
alias ex {
  var %t = 10
  var %curr_rand = $rand(1,10)
  var %l = %curr_rand
  while ($numtok(%l,32) < %t) {
    %curr_rand = $calc(%curr_rand +   $rand(1,10))
    var -s %l = $addtok(%l,%curr_rand,32) 
  }
}

; Not tested
  

alias rodd {
  var %list.of.tokens, %number.of.tokens.you.want = 3
  while ($numtok(%list.of.tokens,32) < %number.of.tokens.you.want) { var %list.of.tokens = $addtok(%list.of.tokens,$rand(0,9),32) }
  var %list.of.tokens = $sorttok(%list.of.tokens,32,n)
  echo -a %list.of.tokens
}

alias toks {
  var %x = 1
  while (%x <= 980) {
    rodd
    inc %x
  }
}

alias make.array {
  ;$1=num of rows, $2=num of cols, $3=rand lower limit, $4=rand upper limit
  if ($+($1,$2,$3,$4) !isnum) { echo -a /make.array: Invalid parameters | return 0 }
  if ($nCr($calc($4 - $3),$2) < $1) { echo -a /make.array: Invalid data range | return 0 }
  if ($window(@sarray)) window -c @sarray
  window -ns @sarray

  while ($line(@sarray,0) < $1) {
    var %srow = $make.line($2,$3,$4)
    if (%srow < 0) return 0
    aline -n @sarray %srow
  }
  return 1
}

alias make.line {
  ;$1=num of cols, $2=rand lower limit, $3=rand upper limit
  if ($calc($3 - $2) < $1) { echo -a /make.line: Invalid data range | return -1 }
  while ($numtok(%sline,32) < $1) var %sline = $sorttok($addtok(%sline,$rand($2,$3),32),32,n)
  return %sline
}

alias factorial {
  ;$1=n
  var %n = 1, %c = 0
  while (%c < $1) { inc %c | %n = $calc(%n * %c) }
  return %n
}

alias nCr {
  ;$1=n, $2=r
  return $calc($factorial($1) / ($factorial($2) * $factorial($calc($1 - $2))))
}