home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / collect < prev    next >
Encoding:
Text File  |  1987-12-30  |  1.1 KB  |  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.