Verbose Frog Simulation
	Smalltalk Frog Simulation

Base Frog Simulation

vfrog.st

Frog Chorus Simulation

Frog subclass: #VerboseFrog
    instanceVariableNames: ''
    classVariableNames: ''
    poolDictionaries: ''
    category: nil !

VerboseFrog comment: 'I am a verbose frog.  A croak more'!

!VerboseFrog methodsFor: 'croaking'!
croak: N
     (N > 0) ifTrue: [ | n | self croak . n := N - 1 . self croak: n ]
!!

Base Frog Simulation

Frog Chorus Simulation