Base Frog Simulation
	Smalltalk Frog Simulation

frog.st

Verbose Frog Simulation

Object subclass: #Frog
    instanceVariableNames: 'croakCount'
    classVariableNames: ''
    poolDictionaries: ''
    category: nil !

Frog comment:
'I am a frog.  I can croak, and I remember how many times I have croaked.' !

!Frog class methodsFor: 'instance creation'!
new
     | r |

     r := super new.
     r init.
     ^r
!!

!Frog methodsFor: 'instance initialization'!
init
     croakCount := 0
!!

!Frog methodsFor: 'croaking'!
croak
     'ribBIT' printNl.
     croakCount := croakCount + 1
!!

!Frog methodsFor: 'croak count extraction'!
getCroakCount
     ^croakCount
!!

Verbose Frog Simulation