Benchfib.js 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254
  1. (function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Benchfib');
  3. smalltalk.addClass('Benchfib', smalltalk.Object, [], 'Benchfib');
  4. smalltalk.addMethod(
  5. smalltalk.method({
  6. selector: "main",
  7. category: 'not yet classified',
  8. fn: function (){
  9. var self=this;
  10. var result;
  11. return smalltalk.withContext(function($ctx1) {
  12. result=(0)._tinyBenchmarks();
  13. _st(console)._log_("0 tinyBenchmarks => ".__comma(result));
  14. return self}, function($ctx1) {$ctx1.fill(self,"main",{result:result},smalltalk.Benchfib.klass)})},
  15. args: [],
  16. source: "main\x0a\x0a\x09| result |\x0a\x09result := 0 tinyBenchmarks.\x0a\x09console log: '0 tinyBenchmarks => ' , result",
  17. messageSends: ["tinyBenchmarks", "log:", ","],
  18. referencedClasses: []
  19. }),
  20. smalltalk.Benchfib.klass);
  21. smalltalk.addMethod(
  22. smalltalk.method({
  23. selector: "benchFib",
  24. category: '*Benchfib',
  25. fn: function (){
  26. var self=this;
  27. return smalltalk.withContext(function($ctx1) {
  28. var $2,$1;
  29. $2=self.__lt((2));
  30. if(smalltalk.assert($2)){
  31. $1=(1);
  32. } else {
  33. $1=_st(_st(_st(self.__minus((1)))._benchFib()).__plus(_st(self.__minus((2)))._benchFib())).__plus((1));
  34. };
  35. return $1;
  36. }, function($ctx1) {$ctx1.fill(self,"benchFib",{},smalltalk.Number)})},
  37. args: [],
  38. source: "benchFib\x0a\x09\x22Handy send-heavy benchmark\x22\x0a\x09\x22(result // seconds to run) = approx calls per second\x22\x0a\x09\x22\x09| r t |\x0a\x09\x09t := Time millisecondsToRun: [r := 26 benchFib].\x0a\x09\x09(r * 1000) // t\x22\x0a\x09\x22138000 on a Mac 8100/100\x22\x0a\x09^ self < 2\x0a\x09\x09ifTrue: [1]\x0a\x09\x09ifFalse: [(self-1) benchFib + (self-2) benchFib + 1]",
  39. messageSends: ["ifTrue:ifFalse:", "<", "+", "benchFib", "-"],
  40. referencedClasses: []
  41. }),
  42. smalltalk.Number);
  43. smalltalk.addMethod(
  44. smalltalk.method({
  45. selector: "benchmark",
  46. category: '*Benchfib',
  47. fn: function (){
  48. var self=this;
  49. var size,flags,prime,k,count;
  50. function $Array(){return smalltalk.Array||(typeof Array=="undefined"?nil:Array)}
  51. return smalltalk.withContext(function($ctx1) {
  52. var $1,$2;
  53. size=(8190);
  54. (1)._to_do_(self,(function(iter){
  55. return smalltalk.withContext(function($ctx2) {
  56. count=(0);
  57. count;
  58. flags=_st($Array())._new();
  59. flags;
  60. _st(size)._timesRepeat_((function(){
  61. return smalltalk.withContext(function($ctx3) {
  62. return _st(flags)._add_(true);
  63. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
  64. return (1)._to_do_(size,(function(i){
  65. return smalltalk.withContext(function($ctx3) {
  66. $1=_st(flags)._at_(i);
  67. if(smalltalk.assert($1)){
  68. prime=_st(i).__plus((1));
  69. prime;
  70. k=_st(i).__plus(prime);
  71. k;
  72. _st((function(){
  73. return smalltalk.withContext(function($ctx4) {
  74. return _st(k).__lt_eq(size);
  75. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)})}))._whileTrue_((function(){
  76. return smalltalk.withContext(function($ctx4) {
  77. _st(flags)._at_put_(k,false);
  78. k=_st(k).__plus(prime);
  79. return k;
  80. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)})}));
  81. count=_st(count).__plus((1));
  82. return count;
  83. };
  84. }, function($ctx3) {$ctx3.fillBlock({i:i},$ctx2,3)})}));
  85. }, function($ctx2) {$ctx2.fillBlock({iter:iter},$ctx1,1)})}));
  86. $2=count;
  87. return $2;
  88. }, function($ctx1) {$ctx1.fill(self,"benchmark",{size:size,flags:flags,prime:prime,k:k,count:count},smalltalk.Number)})},
  89. args: [],
  90. source: "benchmark\x0a\x09\x22Handy bytecode-heavy benchmark\x22\x0a\x09\x22(500000 // time to run) = approx bytecodes per second\x22\x0a\x09\x225000000 // (Time millisecondsToRun: [10 benchmark]) * 1000\x22\x0a\x09\x223059000 on a Mac 8100/100\x22\x0a\x09| size flags prime k count |\x0a\x09size := 8190.\x0a\x091 to: self do:\x0a\x09\x09[:iter |\x0a\x09\x09count := 0.\x0a\x09\x09flags := Array new.\x0a\x09\x09size timesRepeat: [ flags add: true].\x0a\x09\x091 to: size do:\x0a\x09\x09\x09[:i | (flags at: i) ifTrue:\x0a\x09\x09\x09\x09[prime := i+1.\x0a\x09\x09\x09\x09k := i + prime.\x0a\x09\x09\x09\x09[k <= size] whileTrue:\x0a\x09\x09\x09\x09\x09[flags at: k put: false.\x0a\x09\x09\x09\x09\x09k := k + prime].\x0a\x09\x09\x09\x09count := count + 1]]].\x0a\x09^ count",
  91. messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "at:", "+", "whileTrue:", "<=", "at:put:"],
  92. referencedClasses: ["Array"]
  93. }),
  94. smalltalk.Number);
  95. smalltalk.addMethod(
  96. smalltalk.method({
  97. selector: "jsbenchFib",
  98. category: '*Benchfib',
  99. fn: function (){
  100. var self=this;
  101. return smalltalk.withContext(function($ctx1) {
  102. if (this < 2) {
  103. return 1;
  104. } else {
  105. return (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;};
  106. return self}, function($ctx1) {$ctx1.fill(self,"jsbenchFib",{},smalltalk.Number)})},
  107. args: [],
  108. source: "jsbenchFib\x0a\x0a\x09<if (this < 2) {\x0areturn 1;\x0a} else {\x0areturn (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;}>",
  109. messageSends: [],
  110. referencedClasses: []
  111. }),
  112. smalltalk.Number);
  113. smalltalk.addMethod(
  114. smalltalk.method({
  115. selector: "jsbenchmark",
  116. category: '*Benchfib',
  117. fn: function (){
  118. var self=this;
  119. return smalltalk.withContext(function($ctx1) {
  120. var size = 8190;
  121. var count;
  122. for (var z=0;z<this;z++) {
  123. count = 0;
  124. var flags = new Array();
  125. for (var p=0; p<size; p++) {
  126. flags[p] = true;
  127. }
  128. for (var i=1;i<=size;i++) {
  129. if (flags[i-1]) {
  130. var prime = i+1;
  131. var k = i + prime;
  132. while (k <= size) {
  133. flags[k-1] = false;
  134. k = k + prime;
  135. }
  136. count = count + 1;
  137. }
  138. }
  139. }
  140. return count;
  141. return self}, function($ctx1) {$ctx1.fill(self,"jsbenchmark",{},smalltalk.Number)})},
  142. args: [],
  143. source: "jsbenchmark\x0a\x0a<\x0avar size = 8190;\x0avar count;\x0afor (var z=0;z<this;z++) {\x0a\x09count = 0;\x0a\x09var flags = new Array();\x0a\x09for (var p=0; p<size; p++) {\x0a\x09flags[p] = true;\x0a\x09}\x0a\x09for (var i=1;i<=size;i++) {\x0a\x09\x09if (flags[i-1]) {\x0a\x09\x09\x09var prime = i+1;\x0a\x09\x09\x09var k = i + prime;\x0a\x09\x09\x09while (k <= size) {\x0a\x09\x09\x09\x09flags[k-1] = false;\x0a\x09\x09\x09\x09k = k + prime;\x0a\x09\x09\x09}\x0a\x09\x09\x09count = count + 1;\x0a\x09\x09}\x0a\x09}\x0a}\x0areturn count>",
  144. messageSends: [],
  145. referencedClasses: []
  146. }),
  147. smalltalk.Number);
  148. smalltalk.addMethod(
  149. smalltalk.method({
  150. selector: "jstinyBenchmarks",
  151. category: '*Benchfib',
  152. fn: function (){
  153. var self=this;
  154. var t1,t2,r,n1,n2;
  155. function $Date(){return smalltalk.Date||(typeof Date=="undefined"?nil:Date)}
  156. return smalltalk.withContext(function($ctx1) {
  157. var $1;
  158. n1=(1);
  159. _st((function(){
  160. return smalltalk.withContext(function($ctx2) {
  161. t1=_st($Date())._millisecondsToRun_((function(){
  162. return smalltalk.withContext(function($ctx3) {
  163. return _st(n1)._jsbenchmark();
  164. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
  165. t1;
  166. return _st(t1).__lt((1000));
  167. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._whileTrue_((function(){
  168. return smalltalk.withContext(function($ctx2) {
  169. n1=_st(n1).__star((2));
  170. return n1;
  171. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
  172. n2=(28);
  173. _st((function(){
  174. return smalltalk.withContext(function($ctx2) {
  175. t2=_st($Date())._millisecondsToRun_((function(){
  176. return smalltalk.withContext(function($ctx3) {
  177. r=_st(n2)._jsbenchFib();
  178. return r;
  179. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)})}));
  180. t2;
  181. return _st(t2).__lt((1000));
  182. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}))._whileTrue_((function(){
  183. return smalltalk.withContext(function($ctx2) {
  184. n2=_st(n2).__plus((1));
  185. return n2;
  186. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})}));
  187. $1=_st(_st(_st(_st(_st(_st(_st(n1).__star((500000))).__star((1000))).__slash(t1))._printString()).__comma(" bytecodes/sec; ")).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString())).__comma(" sends/sec");
  188. return $1;
  189. }, function($ctx1) {$ctx1.fill(self,"jstinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},smalltalk.Number)})},
  190. args: [],
  191. source: "jstinyBenchmarks\x0a\x09\x220 jstinyBenchmarks\x22\x0a\x0a\x09| t1 t2 r n1 n2 |\x0a\x09n1 := 1.\x0a\x09[t1 := Date millisecondsToRun: [n1 jsbenchmark].\x0a\x09t1 < 1000] whileTrue:[n1 := n1 * 2]. \x22Note: #benchmark's runtime is about O(n)\x22\x0a\x0a\x09n2 := 28.\x0a\x09[t2 := Date millisecondsToRun: [r := n2 jsbenchFib].\x0a\x09t2 < 1000] whileTrue:[n2 := n2 + 1].\x0a\x09\x22Note: #jsbenchFib's runtime is about O(k^n),\x0a\x09\x09where k is the golden number = (1 + 5 sqrt) / 2 = 1.618....\x22\x0a\x0a\x09^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',\x0a\x09\x09((r * 1000) / t2) printString, ' sends/sec'",
  192. messageSends: ["whileTrue:", "millisecondsToRun:", "jsbenchmark", "<", "*", "jsbenchFib", "+", ",", "printString", "/"],
  193. referencedClasses: ["Date"]
  194. }),
  195. smalltalk.Number);
  196. smalltalk.addMethod(
  197. smalltalk.method({
  198. selector: "tinyBenchmarks",
  199. category: '*Benchfib',
  200. fn: function (){
  201. var self=this;
  202. var t1,t2,r,n1,n2;
  203. function $Date(){return smalltalk.Date||(typeof Date=="undefined"?nil:Date)}
  204. return smalltalk.withContext(function($ctx1) {
  205. var $1;
  206. n1=(1);
  207. _st((function(){
  208. return smalltalk.withContext(function($ctx2) {
  209. t1=_st($Date())._millisecondsToRun_((function(){
  210. return smalltalk.withContext(function($ctx3) {
  211. return _st(n1)._benchmark();
  212. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
  213. t1;
  214. return _st(t1).__lt((1000));
  215. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._whileTrue_((function(){
  216. return smalltalk.withContext(function($ctx2) {
  217. n1=_st(n1).__star((2));
  218. return n1;
  219. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
  220. n2=(16);
  221. _st((function(){
  222. return smalltalk.withContext(function($ctx2) {
  223. t2=_st($Date())._millisecondsToRun_((function(){
  224. return smalltalk.withContext(function($ctx3) {
  225. r=_st(n2)._benchFib();
  226. return r;
  227. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)})}));
  228. t2;
  229. return _st(t2).__lt((1000));
  230. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}))._whileTrue_((function(){
  231. return smalltalk.withContext(function($ctx2) {
  232. n2=_st(n2).__plus((1));
  233. return n2;
  234. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})}));
  235. $1=_st(_st(_st(_st(_st(_st(_st(n1).__star((500000))).__star((1000))).__slash(t1))._printString()).__comma(" bytecodes/sec; ")).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString())).__comma(" sends/sec");
  236. return $1;
  237. }, function($ctx1) {$ctx1.fill(self,"tinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},smalltalk.Number)})},
  238. args: [],
  239. source: "tinyBenchmarks\x0a\x09\x22Report the results of running the two tiny Squeak benchmarks.\x0a\x09ar 9/10/1999: Adjusted to run at least 1 sec to get more stable results\x22\x0a\x09\x220 tinyBenchmarks\x22\x0a\x09\x22On a 292 MHz G3 Mac: 22727272 bytecodes/sec; 984169 sends/sec\x22\x0a\x09\x22On a 400 MHz PII/Win98: 18028169 bytecodes/sec; 1081272 sends/sec\x22\x0a\x09| t1 t2 r n1 n2 |\x0a\x09n1 := 1.\x0a\x09[t1 := Date millisecondsToRun: [n1 benchmark].\x0a\x09t1 < 1000] whileTrue:[n1 := n1 * 2]. \x22Note: #benchmark's runtime is about O(n)\x22\x0a\x0a\x09n2 := 16.\x0a\x09[t2 := Date millisecondsToRun: [r := n2 benchFib].\x0a\x09t2 < 1000] whileTrue:[n2 := n2 + 1].\x0a\x09\x22Note: #benchFib's runtime is about O(k^n),\x0a\x09\x09where k is the golden number = (1 + 5 sqrt) / 2 = 1.618....\x22\x0a\x0a\x09^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',\x0a\x09\x09((r * 1000) / t2) printString, ' sends/sec'",
  240. messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", "<", "*", "benchFib", "+", ",", "printString", "/"],
  241. referencedClasses: ["Date"]
  242. }),
  243. smalltalk.Number);
  244. })(global_smalltalk,global_nil,global__st);