home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / diverses / leda / man / prog / sortseq.pro < prev   
Encoding:
Text File  |  1991-11-15  |  829 b   |  27 lines
  1. Using a sorted sequence to list all elements in a sequence of strings lying
  2. lexicographically between two given search strings.
  3.  
  4. \#include $<$LEDA/sortseq.h$>$
  5. \medskip
  6. {\bf declare2}(sortseq,string,int);
  7. \medskip
  8. \cleartabs
  9. \+main()\cr
  10. \+$\{$\ \ 
  11.     &sortseq(string,int) $S$;\cr
  12. \+  &string $s,s1,s2$;\cr
  13. \smallskip
  14. \+  &\While ( cin $>>$ $s$ \&\&  $s$ != ``stop'' )  $S$.insert($s,0$);\cr
  15. \smallskip
  16. \+  &\While ( cin $>>$ $s1$ $>>$ $s2$ )\cr
  17. \+  &\ \ \ &$\{$\ \ 
  18.                  &seq\_item $it1 = S$.locate($s1$);\cr
  19. \+  &      &     &seq\_item $it2 = S$.locate($s2$);\cr
  20. \smallskip
  21. \+  &      &     &\While ($it1 != it2$)\cr
  22. \+  &      &     &\ \ \ &$\{$ &cout $<<$ $S$.key($it1$) $<<$ ``\n"; \cr
  23. \+  &      &     &      &     &$it1 = S$.succ($it1$);\cr
  24. \+  &      &     &      &\ $\}$\cr
  25. \+  &      &\ $\}$\cr
  26. \+\ $\}$\cr
  27.