home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / fib < prev    next >
Encoding:
Text File  |  1987-12-30  |  280 b   |  13 lines
  1. Class Fib :Generator
  2. | lastNumber  nextToLastNumber |
  3. [
  4.      first
  5.           nextToLastNumber <- 0.
  6.           ^ lastNumber <- 1
  7. |
  8.      next           | sum |
  9.           sum <- nextToLastNumber + lastNumber.
  10.           nextToLastNumber <- lastNumber.
  11.           ^ lastNumber <- sum
  12. ]
  13.