home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 310_01 / collect.st < prev    next >
Text File  |  1990-04-20  |  873b  |  42 lines
  1. Class Main
  2. | i |
  3. [
  4.     main
  5.         self test1.
  6.         self test2.
  7.         self test3
  8. |
  9.     test1        | j |
  10.         (i <- 'example') print.
  11.         i size print.
  12.         i asArray print.
  13.         (i occurrencesOf: $e) print.
  14.         i asBag print.
  15.         (j <- i asSet) print.
  16.         j asString reversed print.
  17.         i asDictionary print.
  18.         (j <- i asList) print.
  19.         j addFirst: 2 / 3.
  20.         j addAllLast: (12.5 to: 15 by: 0.75).
  21.         j print.
  22.         j removeLast print.
  23.         (j , #($a 7) ) print.
  24.         (i reject: [:x | x isVowel] ) print.
  25.         (i copyWithout: $e) print.
  26.         i sort print.
  27.         (i sort: [:x :y | y < x]) print.
  28.         i keys print.
  29.         i values print.
  30.         (i atAll: (1 to: 7 by: 2) put: $x) print
  31. |
  32.     test2            | j |
  33.         i <- (1 to: 6) asBag print.
  34.         i size print.
  35.         (i select: [:x | (x \\ 2) strictlyPositive] ) print.
  36.         (j <- (i collect: [:x | x \\ 3]) asSet ) print.
  37.         j size print
  38. |
  39.     test3
  40.         ('bead' at: 1 put: $r) print
  41. ]
  42.