Profit testing
P | N


| profit aCount |

profit := Profit new.

aCount := IntegerCount new.

profit initialize: aCount.

10 timesRepeat: [aCount increment].

Transcript cr; show: 'Profit so-far: ', profit total printString.


Previous | Next


Last modified at 7/8/97; 10:04:49 AM
Other Links of Interest
College of Computing | EduTech Institute | GVU Center
Mark Guzdial | Papers | CS 2390 Spring '97 Home Page | STABLE | MMC-CaMILE