÷

 Step 1 : Are the Smalltalk VisualWorks programs faster? At a glance.

This chart shows 3 comparisons - Time-used, Memory-used and Code-used.

Each chart bar shows, for one unidentified benchmark, how much the fastest Smalltalk VisualWorks program used compared to the fastest Java 6 -server program.


 Step 2 : Are the Smalltalk VisualWorks programs faster? Approximately.

This table shows 3 comparisons - Time-used, Memory-used and Code-used.

Each table row shows, for one named benchmark, how much the fastest Smalltalk VisualWorks program used compared to the fastest Java 6 -server program.

 Smalltalk VisualWorks used what fraction? used how many times more? 
Benchmark Time Memory Code Reduced N
 chameneos-redux±
 binary-trees1/2±
 k-nucleotide± 2,500,000
 fasta±±
 spectral-norm±1/2
 fannkuch±±
 reverse-complement1/2±
 pidigits10×±
 regex-dna11×1/21/2
 n-body13×±±
 mandelbrot25×1/41/2

± read the measurements and then read the program source code.

 Step 3 : Are the Smalltalk VisualWorks programs faster? Measurements.

This table shows 5 measurements - CPU Time, Elapsed Time, Memory, Code and ~ CPU Load.

For each named benchmark, measurements of the fastest Smalltalk VisualWorks program are shown for comparison against measurements of the fastest Java 6 -server program.

Program Source Code CPU secs Elapsed secs Memory KB Code B ~ CPU Load
 chameneos-redux 
Smalltalk VisualWorks60.9260.9112,7722515  0% 0% 0% 100%
Java 6 -server12.4512.4717,8761429  0% 0% 0% 100%
 binary-trees 
Smalltalk VisualWorks146.17146.17121,992722  0% 0% 0% 100%
Java 6 -server28.2128.35255,460603  0% 0% 0% 99%
 k-nucleotide N = 2,500,000 reduced workload 
Smalltalk VisualWorks30.3230.32164,6961191  0% 0% 0% 100%
Java 6 -server5.515.5570,0481602  0% 0% 0% 99%
 fasta 
Smalltalk VisualWorks47.4547.4512,7561171  0% 0% 0% 100%
Java 6 -server7.507.5112,2481240  0% 0% 0% 100%
 spectral-norm 
Smalltalk VisualWorks112.19112.1814,524438  0% 0% 0% 100%
Java 6 -server15.9115.9312,564950  0% 0% 0% 100%
 fannkuch 
Smalltalk VisualWorks589.38589.3412,724772  0% 0% 0% 100%
Java 6 -server66.7966.8313,7961150  0% 0% 0% 100%
 reverse-complement 
Smalltalk VisualWorks26.6326.62289,900754  0% 0% 0% 100%
Java 6 -server2.862.90473,280592  0% 1% 0% 99%
 pidigits 
Smalltalk VisualWorks56.8456.8432,936899  0% 0% 0% 100%
Java 6 -server5.475.4714,828938  1% 3% 0% 100%
 regex-dna 
Smalltalk VisualWorks317.68317.67296,396584  0% 0% 0% 100%
Java 6 -server29.3529.37689,108929  0% 0% 0% 100%
 n-body 
Smalltalk VisualWorks324.46324.4412,8001652  0% 0% 0% 100%
Java 6 -server25.0525.0812,4121424  1% 0% 0% 100%
 mandelbrot 
Smalltalk VisualWorks1,053.681,053.6212,736467  0% 0% 0% 100%
Java 6 -server41.5641.5748,900903  0% 0% 0% 100%

 Measurements for all the accepted programs

 Smalltalk VisualWorks : uniform reflective environment - real live objects 

Code size measurements are misleading for Smalltalk because source files are usually only used to archive or transfer code. Smalltalk code is created, stored and run in a Smalltalk image. We show Smalltalk source code in a verbose chunk file format used to archive or transfer source code between Smalltalk images.

"Design Principles Behind Smalltalk" by Daniel Ingalls

VisualWorks(R) 7.6 Feb 14 2008

Home Page: Cincom Smalltalk™ VisualWorksl® Environment Data Sheet

Download: VisualWorksl® Non-Commercial


We've made the Smalltalk code a little more generic by abstracting out these implementation specific details:

Object subclass: #Tests
   instanceVariableNames: ''
   classVariableNames: ''
   poolDictionaries: ''
   category: 'Shootout'!


!Tests class methodsFor: 'platform'!
arg
   ^CEnvironment commandLine last asNumber! !

!Tests class methodsFor: 'platform'!
stdin
   ^Stdin! !


!Tests class methodsFor: 'platform'!
stdinSpecial
   ^ExternalReadStream on:
      (ExternalConnection ioAccessor: (UnixDiskFileAccessor new handle: 0))! !


!Tests class methodsFor: 'platform'!
stdout
   ^Stdout! !


!Tests class methodsFor: 'platform'!
stdoutSpecial
   ^ExternalWriteStream on:
      (ExternalConnection ioAccessor: (UnixDiskFileAccessor new handle: 1))! !


!Stream methodsFor: 'platform'!
nl
   self nextPut: Character lf! !


!Stream methodsFor: 'platform'!
print: number digits: decimalPlaces
   self nextPutAll:
      ((number asFixedPoint: decimalPlaces) printString copyWithout: $s)! !


!Stream methodsFor: 'platform'!
print: number paddedTo: width
   number printOn: self paddedWith: $  to: width base: 10! !


!Integer methodsFor: 'platform'!
asFloatD
   ^self asDouble! !

Revised BSD license