################################################################

This source is not to gather the result of benchmark, but one
result of learning Smalltalk-80 or Squeak.

Here is Modified for Squeak of STones80 benchmark.
Original version made by Bruce Samuelson, at
http://st-www.cs.uiuc.edu/ftp/pub/Smalltalk/st80_r41/STones80.st
for pre R4.0, R4.0, R4.1, ST/V.

File-in this source and 2 classes are made in Public Domain-Benchmarks category.
1) SlopstoneBenchmark
2) SmopstoneBenchmark

To run this banchmark, evaluate:
SlopstoneBenchmark run
SmopstoneBenchmark run

2 test of this benchmark is intended to test the efficiency 
of recursively calling a block, that is not supported by non Jitter VM.
If you run this test on on non Jitter VM, so the result would be fairly pointless.

Tested on version 1.31 only.

################################################################

このソースは、ベンチマークを集めるためのものではなく、Smalltalk-80 or
Squeak の学習の成果物とお考えください。

Bruce Samuelson 氏作の、STones80 ベンチマークを Squeak に移植しました。
オリジナルは pre R4.0, R4.0, R4.1, ST/V で動くように作成されており、
http://st-www.cs.uiuc.edu/ftp/pub/Smalltalk/st80_r41/STones80.st
から入手することが可能です。

このソースをファイルインすると、
1) SlopstoneBenchmark
2) SmopstoneBenchmark
Public Domain-Benchmarks というカテゴリに
上記 2 つのファイルが作成されます。

ベンチマークを走らせるには、
SlopstoneBenchmark run
SmopstoneBenchmark run
を評価してください。

このベンチマークのうち 2 つのテストにおいて、再帰ブロックのテストを
必要としています。Jitter 版でない仮想マシンは、再帰ブロックをサポート
していません。よって、non Jitter 版で走らせた場合、結果はいささか
ポイントを外している可能性があります。
(non Jitter 版では、再帰ブロックは、再帰メソッドとループに書き換えられています)

なお、 version 1.31 でのみ、テストしています。

################################################################

see http://www.urban.ne.jp/home/nishis/SmalltalkAgents/Squeak.html