1
0

Benchfib.js 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236
  1. smalltalk.addPackage('Benchfib', {});
  2. smalltalk.addClass('Benchfib', smalltalk.Object, [], 'Benchfib');
  3. smalltalk.addMethod(
  4. "_main",
  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) { result=_st((0))._tinyBenchmarks();
  12. _st(console)._log_(_st("0 tinyBenchmarks => ").__comma(result));
  13. return self}, function($ctx1) {$ctx1.fill(self,"main",{result:result}, smalltalk.Benchfib.klass)})},
  14. args: [],
  15. source: "main\x0a\x0a\x09| result |\x0a\x09result := 0 tinyBenchmarks.\x0a\x09console log: '0 tinyBenchmarks => ' , result",
  16. messageSends: ["tinyBenchmarks", "log:", ","],
  17. referencedClasses: []
  18. }),
  19. smalltalk.Benchfib.klass);
  20. smalltalk.addMethod(
  21. "_benchFib",
  22. smalltalk.method({
  23. selector: "benchFib",
  24. category: '*Benchfib',
  25. fn: function (){
  26. var self=this;
  27. return smalltalk.withContext(function($ctx1) { var $2,$1;
  28. $2=_st(self).__lt((2));
  29. if(smalltalk.assert($2)){
  30. $1=(1);
  31. } else {
  32. $1=_st(_st(_st(_st(self).__minus((1)))._benchFib()).__plus(_st(_st(self).__minus((2)))._benchFib())).__plus((1));
  33. };
  34. return $1;
  35. }, function($ctx1) {$ctx1.fill(self,"benchFib",{}, smalltalk.Number)})},
  36. args: [],
  37. source: "benchFib \x0a\x09\x22Handy send-heavy benchmark\x22\x0a\x09\x22(result // seconds to run) = approx calls per second\x22\x0a\x09\x22 | r t |\x0a\x09 t := Time millisecondsToRun: [r := 26 benchFib].\x0a\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]",
  38. messageSends: ["ifTrue:ifFalse:", "+", "benchFib", "-", "<"],
  39. referencedClasses: []
  40. }),
  41. smalltalk.Number);
  42. smalltalk.addMethod(
  43. "_benchmark",
  44. smalltalk.method({
  45. selector: "benchmark",
  46. category: '*Benchfib',
  47. fn: function (){
  48. var self=this;
  49. var size,flags,prime,k,count;
  50. return smalltalk.withContext(function($ctx1) { var $1,$3,$5,$4,$2,$6;
  51. size=(8190);
  52. $1=self;
  53. $2=(function(iter){
  54. return smalltalk.withContext(function($ctx2) { count=(0);
  55. count;
  56. flags=_st((smalltalk.Array || Array))._new();
  57. flags;
  58. _st(size)._timesRepeat_((function(){
  59. return smalltalk.withContext(function($ctx3) { return _st(flags)._add_(true);
  60. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  61. $3=size;
  62. $4=(function(i){
  63. return smalltalk.withContext(function($ctx3) { $5=_st(flags)._at_(i);
  64. if(smalltalk.assert($5)){
  65. prime=_st(i).__plus((1));
  66. prime;
  67. k=_st(i).__plus(prime);
  68. k;
  69. _st((function(){
  70. return smalltalk.withContext(function($ctx4) { return _st(k).__lt_eq(size);
  71. }, function($ctx4) {$ctx4.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  72. return smalltalk.withContext(function($ctx4) { _st(flags)._at_put_(k,false);
  73. k=_st(k).__plus(prime);
  74. return k;
  75. }, function($ctx4) {$ctx4.fillBlock({},$ctx1)})}));
  76. count=_st(count).__plus((1));
  77. return count;
  78. };
  79. }, function($ctx3) {$ctx3.fillBlock({i:i},$ctx1)})});
  80. return _st((1))._to_do_($3,$4);
  81. }, function($ctx2) {$ctx2.fillBlock({iter:iter},$ctx1)})});
  82. _st((1))._to_do_($1,$2);
  83. $6=count;
  84. return $6;
  85. }, function($ctx1) {$ctx1.fill(self,"benchmark",{size:size,flags:flags,prime:prime,k:k,count:count}, smalltalk.Number)})},
  86. args: [],
  87. 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 | size flags prime k count |\x0a size := 8190.\x0a 1 to: self do:\x0a [:iter |\x0a count := 0.\x0a flags := Array new.\x0a size timesRepeat: [ flags add: true].\x0a 1 to: size do:\x0a [:i | (flags at: i) ifTrue:\x0a [prime := i+1.\x0a k := i + prime.\x0a [k <= size] whileTrue:\x0a [flags at: k put: false.\x0a k := k + prime].\x0a count := count + 1]]].\x0a ^ count",
  88. messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "+", "whileTrue:", "at:put:", "<=", "at:"],
  89. referencedClasses: ["Array"]
  90. }),
  91. smalltalk.Number);
  92. smalltalk.addMethod(
  93. "_jsbenchFib",
  94. smalltalk.method({
  95. selector: "jsbenchFib",
  96. category: '*Benchfib',
  97. fn: function (){
  98. var self=this;
  99. return smalltalk.withContext(function($ctx1) { if (this < 2) {
  100. return 1;
  101. } else {
  102. return (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;};
  103. return self}, function($ctx1) {$ctx1.fill(self,"jsbenchFib",{}, smalltalk.Number)})},
  104. args: [],
  105. source: "jsbenchFib\x0a \x0a\x09<if (this < 2) {\x0areturn 1;\x0a} else {\x0areturn (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;}>",
  106. messageSends: [],
  107. referencedClasses: []
  108. }),
  109. smalltalk.Number);
  110. smalltalk.addMethod(
  111. "_jsbenchmark",
  112. smalltalk.method({
  113. selector: "jsbenchmark",
  114. category: '*Benchfib',
  115. fn: function (){
  116. var self=this;
  117. return smalltalk.withContext(function($ctx1) {
  118. var size = 8190;
  119. var count;
  120. for (var z=0;z<this;z++) {
  121. count = 0;
  122. var flags = new Array();
  123. for (var p=0; p<size; p++) {
  124. flags[p] = true;
  125. }
  126. for (var i=1;i<=size;i++) {
  127. if (flags[i-1]) {
  128. var prime = i+1;
  129. var k = i + prime;
  130. while (k <= size) {
  131. flags[k-1] = false;
  132. k = k + prime;
  133. }
  134. count = count + 1;
  135. }
  136. }
  137. }
  138. return count;
  139. return self}, function($ctx1) {$ctx1.fill(self,"jsbenchmark",{}, smalltalk.Number)})},
  140. args: [],
  141. source: "jsbenchmark\x0a\x0a<\x0avar size = 8190;\x0avar count;\x0afor (var z=0;z<this;z++) {\x0a count = 0;\x0a var flags = new Array();\x0a for (var p=0; p<size; p++) {\x0a flags[p] = true;\x0a }\x0a for (var i=1;i<=size;i++) {\x0a if (flags[i-1]) {\x0a var prime = i+1;\x0a var k = i + prime;\x0a while (k <= size) {\x0a flags[k-1] = false;\x0a k = k + prime;\x0a }\x0a count = count + 1;\x0a }\x0a }\x0a}\x0areturn count>",
  142. messageSends: [],
  143. referencedClasses: []
  144. }),
  145. smalltalk.Number);
  146. smalltalk.addMethod(
  147. "_jstinyBenchmarks",
  148. smalltalk.method({
  149. selector: "jstinyBenchmarks",
  150. category: '*Benchfib',
  151. fn: function (){
  152. var self=this;
  153. var t1,t2,r,n1,n2;
  154. return smalltalk.withContext(function($ctx1) { var $1;
  155. n1=(1);
  156. _st((function(){
  157. return smalltalk.withContext(function($ctx2) { t1=_st((smalltalk.Date || Date))._millisecondsToRun_((function(){
  158. return smalltalk.withContext(function($ctx3) { return _st(n1)._jsbenchmark();
  159. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  160. t1;
  161. return _st(t1).__lt((1000));
  162. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  163. return smalltalk.withContext(function($ctx2) { n1=_st(n1).__star((2));
  164. return n1;
  165. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  166. n2=(28);
  167. _st((function(){
  168. return smalltalk.withContext(function($ctx2) { t2=_st((smalltalk.Date || Date))._millisecondsToRun_((function(){
  169. return smalltalk.withContext(function($ctx3) { r=_st(n2)._jsbenchFib();
  170. return r;
  171. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  172. t2;
  173. return _st(t2).__lt((1000));
  174. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  175. return smalltalk.withContext(function($ctx2) { n2=_st(n2).__plus((1));
  176. return n2;
  177. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  178. $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");
  179. return $1;
  180. }, function($ctx1) {$ctx1.fill(self,"jstinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2}, smalltalk.Number)})},
  181. args: [],
  182. 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 ((r * 1000) / t2) printString, ' sends/sec'",
  183. messageSends: ["whileTrue:", "*", "millisecondsToRun:", "jsbenchmark", "<", "+", "jsbenchFib", ",", "printString", "/"],
  184. referencedClasses: ["Date"]
  185. }),
  186. smalltalk.Number);
  187. smalltalk.addMethod(
  188. "_tinyBenchmarks",
  189. smalltalk.method({
  190. selector: "tinyBenchmarks",
  191. category: '*Benchfib',
  192. fn: function (){
  193. var self=this;
  194. var t1,t2,r,n1,n2;
  195. return smalltalk.withContext(function($ctx1) { var $1;
  196. n1=(1);
  197. _st((function(){
  198. return smalltalk.withContext(function($ctx2) { t1=_st((smalltalk.Date || Date))._millisecondsToRun_((function(){
  199. return smalltalk.withContext(function($ctx3) { return _st(n1)._benchmark();
  200. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  201. t1;
  202. return _st(t1).__lt((1000));
  203. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  204. return smalltalk.withContext(function($ctx2) { n1=_st(n1).__star((2));
  205. return n1;
  206. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  207. n2=(16);
  208. _st((function(){
  209. return smalltalk.withContext(function($ctx2) { t2=_st((smalltalk.Date || Date))._millisecondsToRun_((function(){
  210. return smalltalk.withContext(function($ctx3) { r=_st(n2)._benchFib();
  211. return r;
  212. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  213. t2;
  214. return _st(t2).__lt((1000));
  215. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  216. return smalltalk.withContext(function($ctx2) { n2=_st(n2).__plus((1));
  217. return n2;
  218. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  219. $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");
  220. return $1;
  221. }, function($ctx1) {$ctx1.fill(self,"tinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2}, smalltalk.Number)})},
  222. args: [],
  223. 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 ((r * 1000) / t2) printString, ' sends/sec'",
  224. messageSends: ["whileTrue:", "*", "millisecondsToRun:", "benchmark", "<", "+", "benchFib", ",", "printString", "/"],
  225. referencedClasses: ["Date"]
  226. }),
  227. smalltalk.Number);