home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / rexx / 833 < prev    next >
Encoding:
Text File  |  1992-08-30  |  1.0 KB  |  39 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!gatech!paladin.american.edu!auvm!DGOGWDG1.BITNET!LHINNER
  3. Message-ID: <REXXLIST%92082923045285@DEARN>
  4. Newsgroups: comp.lang.rexx
  5. Date:         Sat, 29 Aug 1992 22:38:03 MSZ
  6. Sender:       REXX Programming discussion list <REXXLIST@UGA.BITNET>
  7. From:         ludger hinners-tobraegel <LHINNER@DGOGWDG1.BITNET>
  8. Subject:      compare a number with a stem
  9. Lines: 28
  10.  
  11. subject: comparing a sorted stem with a given number
  12. platform: cms
  13.  
  14. hello rexxperts,
  15.  
  16. I hope my question will be only a little one.
  17.  
  18. I have a sorted stem. Its elements are numbers (floating point).
  19. Par example 1,000 numbers between 1 and 10.
  20. And I have a single variable, say a=7.
  21. Now I would like to know, how many (percent) of the stem's elements
  22. are bigger than the variable a.
  23.  
  24. Is there a quicker solution than the code posted below?
  25.  
  26. Thanks in advance!
  27.  
  28. Ludger Hinners
  29. Institute of agriculture economics
  30. University of Goettingen
  31. Germany
  32.  
  33.  
  34. cnt=0
  35. do i=s.0 to 1 by -1
  36.    if s.i>a then cnt=cnt+1
  37. end i
  38. say cnt
  39.