home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / rexx / 835 < prev    next >
Encoding:
Text File  |  1992-08-30  |  946 b   |  22 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!gatech!paladin.american.edu!auvm!UCSFVM.BITNET!GOMBERG
  3. Message-ID: <REXXLIST%92082917272526@UGA.CC.UGA.EDU>
  4. Newsgroups: comp.lang.rexx
  5. Date:         Sat, 29 Aug 1992 14:14:39 PDT
  6. Sender:       REXX Programming discussion list <REXXLIST@UGA.BITNET>
  7. From:         Dave Gomberg <GOMBERG@UCSFVM.BITNET>
  8. Subject:      Re: compare a number with a stem
  9. In-Reply-To:  Message of Sat, 29 Aug 1992 22:38:03 MSZ from <LHINNER@DGOGWDG1>
  10. Lines: 10
  11.  
  12. Here is some very fast code for searching for how many in a sorted stem
  13. are bigger than a:
  14.  
  15.     $TOP=s.0+1; $BOT=1  -1;                          /* ABOVE HIGHEST  */
  16.     DO WHILE($TOP>$BOT+1);$MID=($TOP+$BOT)/2;        /* TILL NONE LEFT */
  17.         IF a   >=   s.$MID THEN $BOT=$MID; ELSE $TOP=$MID; END;
  18.     /*  Initially, s.$bot<=a<s.$top */
  19.     SAY (s.0-$top+1)/s.0*100 'percent of the values are greater than' a'.'
  20.  
  21. This is O(LN(S.0)).   Dave
  22.