Anonymous

alias order_t1 {
  var %error 0
  var %a 30
  while (%a) {
    var %o $($str($!r(1,9) $+ $chr(32),$r(1,9)),2)
    if ($order( $+ %o $+ ) != $sorttok( $+ %o $+ ,32)) || ($order( $+ %o $+ ) != $remove($sorttok( $+ %o $+ ,32),$chr(32)) {
      inc %error
      echo 04 -a Error: %o should return $qt( $+ $v2 $+ ) yours returned $qt( $+ $v1 $+ )
    }
    dec %a
  }
  echo 12 -a $!order finished with %error errors.
}
alias order_t2 {
  var %error 0
  var %a 30
  while (%a) {
    var %o $($str($!r(1,100) $+ $chr(32),$r(1,9)),2)
    if ($r(0,1)) {
      if ($order( $+ %o $+ ) != $sorttok( $+ %o $+ ,32)) {
        inc %error
        echo 04 -a Error: %o should return $qt( $+ $v2 $+ ) yours returned $qt( $+ $v1 $+ )
      }
      dec %a
    }
    else {
      if ($order( $+ %o $+ ,r) != $sorttok( $+ %o $+ ,32,nr)) {
        inc %error
        echo 04 -a Error: %o $+ ,r should return $qt( $+ $v2 $+ ) yours returned $qt( $+ $v1 $+ )
      }
      dec %a
    }
  }
  echo 12 -a $!order finished with %error errors.
}
alias order_t3 {
  var %error 0
  var %a 30
  while (%a) {
    var %o $iif($r(0,1),$($str($!r(1,100) $+ $chr(32),$r(1,9)),2),$($str($!r(a,z) $+ $chr(32),$r(1,9)),2)))
    if ($r(0,1)) {
      if ($order( $+ %o $+ ) != $sorttok( $+ %o $+ ,32)) {
        inc %error
        echo 04 -a Error: %o should return $qt( $+ $v2 $+ ) yours returned $qt( $+ $v1 $+ )
      }
      dec %a
    }
    else {
      if ($order( $+ %o $+ ,r) != $sorttok( $+ %o $+ ,32,r)) {
        inc %error
        echo 04 -a Error: %o $+ ,r should return $qt( $+ $v2 $+ ) yours returned $qt( $+ $v1 $+ )
      }
      dec %a
    }
  }
  echo 12 -a $!order finished with %error errors.
}