2
0

Benchfib.js 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489
  1. define("amber_core/Benchfib", ["amber/boot", "amber_core/Kernel-Objects"], function($boot){
  2. var smalltalk=$boot.vm,nil=$boot.nil,_st=$boot.asReceiver,globals=$boot.globals;
  3. smalltalk.addPackage('Benchfib');
  4. smalltalk.packages["Benchfib"].transport = {"type":"amd","amdNamespace":"amber_core"};
  5. smalltalk.addClass('Benchfib', globals.Object, [], 'Benchfib');
  6. smalltalk.addMethod(
  7. smalltalk.method({
  8. selector: "main",
  9. protocol: 'not yet classified',
  10. fn: function (){
  11. var self=this;
  12. var result;
  13. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  14. return smalltalk.withContext(function($ctx1) {
  15. //>>excludeEnd("ctx");
  16. result=(0)._tinyBenchmarks();
  17. _st(console)._log_("0 tinyBenchmarks => ".__comma(result));
  18. return self;
  19. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  20. }, function($ctx1) {$ctx1.fill(self,"main",{result:result},globals.Benchfib.klass)});
  21. //>>excludeEnd("ctx");
  22. },
  23. messageSends: ["tinyBenchmarks", "log:", ","],
  24. //>>excludeStart("ide", pragmas.excludeIdeData);
  25. args: [],
  26. source: "main\x0a\x0a\x09| result |\x0a\x09result := 0 tinyBenchmarks.\x0a\x09console log: '0 tinyBenchmarks => ' , result",
  27. referencedClasses: []
  28. //>>excludeEnd("ide");
  29. }),
  30. globals.Benchfib.klass);
  31. smalltalk.addMethod(
  32. smalltalk.method({
  33. selector: "benchFib",
  34. protocol: '*Benchfib',
  35. fn: function (){
  36. var self=this;
  37. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  38. return smalltalk.withContext(function($ctx1) {
  39. //>>excludeEnd("ctx");
  40. var $2,$5,$4,$3,$1;
  41. $2=self.__lt((2));
  42. if(smalltalk.assert($2)){
  43. $1=(1);
  44. } else {
  45. $5=self.__minus((1));
  46. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  47. $ctx1.sendIdx["-"]=1;
  48. //>>excludeEnd("ctx");
  49. $4=_st($5)._benchFib();
  50. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  51. $ctx1.sendIdx["benchFib"]=1;
  52. //>>excludeEnd("ctx");
  53. $3=_st($4).__plus(_st(self.__minus((2)))._benchFib());
  54. $1=_st($3).__plus((1));
  55. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  56. $ctx1.sendIdx["+"]=1;
  57. //>>excludeEnd("ctx");
  58. };
  59. return $1;
  60. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  61. }, function($ctx1) {$ctx1.fill(self,"benchFib",{},globals.Number)});
  62. //>>excludeEnd("ctx");
  63. },
  64. messageSends: ["ifTrue:ifFalse:", "<", "+", "benchFib", "-"],
  65. //>>excludeStart("ide", pragmas.excludeIdeData);
  66. args: [],
  67. 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]",
  68. referencedClasses: []
  69. //>>excludeEnd("ide");
  70. }),
  71. globals.Number);
  72. smalltalk.addMethod(
  73. smalltalk.method({
  74. selector: "benchmark",
  75. protocol: '*Benchfib',
  76. fn: function (){
  77. var self=this;
  78. var size,flags,prime,k,count;
  79. function $Array(){return globals.Array||(typeof Array=="undefined"?nil:Array)}
  80. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  81. return smalltalk.withContext(function($ctx1) {
  82. //>>excludeEnd("ctx");
  83. var $1,$2;
  84. size=(8190);
  85. (1)._to_do_(self,(function(iter){
  86. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  87. return smalltalk.withContext(function($ctx2) {
  88. //>>excludeEnd("ctx");
  89. count=(0);
  90. count;
  91. flags=_st($Array())._new();
  92. flags;
  93. _st(size)._timesRepeat_((function(){
  94. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  95. return smalltalk.withContext(function($ctx3) {
  96. //>>excludeEnd("ctx");
  97. return _st(flags)._add_(true);
  98. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  99. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  100. //>>excludeEnd("ctx");
  101. }));
  102. return (1)._to_do_(size,(function(i){
  103. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  104. return smalltalk.withContext(function($ctx3) {
  105. //>>excludeEnd("ctx");
  106. $1=_st(flags)._at_(i);
  107. if(smalltalk.assert($1)){
  108. prime=_st(i).__plus((1));
  109. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  110. $ctx3.sendIdx["+"]=1;
  111. //>>excludeEnd("ctx");
  112. prime;
  113. k=_st(i).__plus(prime);
  114. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  115. $ctx3.sendIdx["+"]=2;
  116. //>>excludeEnd("ctx");
  117. k;
  118. _st((function(){
  119. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  120. return smalltalk.withContext(function($ctx4) {
  121. //>>excludeEnd("ctx");
  122. return _st(k).__lt_eq(size);
  123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  124. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)});
  125. //>>excludeEnd("ctx");
  126. }))._whileTrue_((function(){
  127. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  128. return smalltalk.withContext(function($ctx4) {
  129. //>>excludeEnd("ctx");
  130. _st(flags)._at_put_(k,false);
  131. k=_st(k).__plus(prime);
  132. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  133. $ctx4.sendIdx["+"]=3;
  134. //>>excludeEnd("ctx");
  135. return k;
  136. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  137. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)});
  138. //>>excludeEnd("ctx");
  139. }));
  140. count=_st(count).__plus((1));
  141. return count;
  142. };
  143. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  144. }, function($ctx3) {$ctx3.fillBlock({i:i},$ctx2,3)});
  145. //>>excludeEnd("ctx");
  146. }));
  147. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  148. }, function($ctx2) {$ctx2.fillBlock({iter:iter},$ctx1,1)});
  149. //>>excludeEnd("ctx");
  150. }));
  151. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  152. $ctx1.sendIdx["to:do:"]=1;
  153. //>>excludeEnd("ctx");
  154. $2=count;
  155. return $2;
  156. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  157. }, function($ctx1) {$ctx1.fill(self,"benchmark",{size:size,flags:flags,prime:prime,k:k,count:count},globals.Number)});
  158. //>>excludeEnd("ctx");
  159. },
  160. messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "at:", "+", "whileTrue:", "<=", "at:put:"],
  161. //>>excludeStart("ide", pragmas.excludeIdeData);
  162. args: [],
  163. 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",
  164. referencedClasses: ["Array"]
  165. //>>excludeEnd("ide");
  166. }),
  167. globals.Number);
  168. smalltalk.addMethod(
  169. smalltalk.method({
  170. selector: "jsbenchFib",
  171. protocol: '*Benchfib',
  172. fn: function (){
  173. var self=this;
  174. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  175. return smalltalk.withContext(function($ctx1) {
  176. //>>excludeEnd("ctx");
  177. if (this < 2) {
  178. return 1;
  179. } else {
  180. return (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;};
  181. return self;
  182. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  183. }, function($ctx1) {$ctx1.fill(self,"jsbenchFib",{},globals.Number)});
  184. //>>excludeEnd("ctx");
  185. },
  186. messageSends: [],
  187. //>>excludeStart("ide", pragmas.excludeIdeData);
  188. args: [],
  189. source: "jsbenchFib\x0a\x0a\x09<if (this < 2) {\x0areturn 1;\x0a} else {\x0areturn (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;}>",
  190. referencedClasses: []
  191. //>>excludeEnd("ide");
  192. }),
  193. globals.Number);
  194. smalltalk.addMethod(
  195. smalltalk.method({
  196. selector: "jsbenchmark",
  197. protocol: '*Benchfib',
  198. fn: function (){
  199. var self=this;
  200. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  201. return smalltalk.withContext(function($ctx1) {
  202. //>>excludeEnd("ctx");
  203. var size = 8190;
  204. var count;
  205. for (var z=0;z<this;z++) {
  206. count = 0;
  207. var flags = new Array();
  208. for (var p=0; p<size; p++) {
  209. flags[p] = true;
  210. }
  211. for (var i=1;i<=size;i++) {
  212. if (flags[i-1]) {
  213. var prime = i+1;
  214. var k = i + prime;
  215. while (k <= size) {
  216. flags[k-1] = false;
  217. k = k + prime;
  218. }
  219. count = count + 1;
  220. }
  221. }
  222. }
  223. return count;
  224. return self;
  225. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  226. }, function($ctx1) {$ctx1.fill(self,"jsbenchmark",{},globals.Number)});
  227. //>>excludeEnd("ctx");
  228. },
  229. messageSends: [],
  230. //>>excludeStart("ide", pragmas.excludeIdeData);
  231. args: [],
  232. 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>",
  233. referencedClasses: []
  234. //>>excludeEnd("ide");
  235. }),
  236. globals.Number);
  237. smalltalk.addMethod(
  238. smalltalk.method({
  239. selector: "jstinyBenchmarks",
  240. protocol: '*Benchfib',
  241. fn: function (){
  242. var self=this;
  243. var t1,t2,r,n1,n2;
  244. function $Date(){return globals.Date||(typeof Date=="undefined"?nil:Date)}
  245. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  246. return smalltalk.withContext(function($ctx1) {
  247. //>>excludeEnd("ctx");
  248. var $7,$6,$5,$4,$3,$2,$1;
  249. n1=(1);
  250. _st((function(){
  251. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  252. return smalltalk.withContext(function($ctx2) {
  253. //>>excludeEnd("ctx");
  254. t1=_st($Date())._millisecondsToRun_((function(){
  255. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  256. return smalltalk.withContext(function($ctx3) {
  257. //>>excludeEnd("ctx");
  258. return _st(n1)._jsbenchmark();
  259. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  260. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  261. //>>excludeEnd("ctx");
  262. }));
  263. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  264. $ctx2.sendIdx["millisecondsToRun:"]=1;
  265. //>>excludeEnd("ctx");
  266. t1;
  267. return _st(t1).__lt((1000));
  268. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  269. $ctx2.sendIdx["<"]=1;
  270. //>>excludeEnd("ctx");
  271. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  272. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  273. //>>excludeEnd("ctx");
  274. }))._whileTrue_((function(){
  275. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  276. return smalltalk.withContext(function($ctx2) {
  277. //>>excludeEnd("ctx");
  278. n1=_st(n1).__star((2));
  279. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  280. $ctx2.sendIdx["*"]=1;
  281. //>>excludeEnd("ctx");
  282. return n1;
  283. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  284. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  285. //>>excludeEnd("ctx");
  286. }));
  287. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  288. $ctx1.sendIdx["whileTrue:"]=1;
  289. //>>excludeEnd("ctx");
  290. n2=(28);
  291. _st((function(){
  292. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  293. return smalltalk.withContext(function($ctx2) {
  294. //>>excludeEnd("ctx");
  295. t2=_st($Date())._millisecondsToRun_((function(){
  296. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  297. return smalltalk.withContext(function($ctx3) {
  298. //>>excludeEnd("ctx");
  299. r=_st(n2)._jsbenchFib();
  300. return r;
  301. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  302. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)});
  303. //>>excludeEnd("ctx");
  304. }));
  305. t2;
  306. return _st(t2).__lt((1000));
  307. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  308. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)});
  309. //>>excludeEnd("ctx");
  310. }))._whileTrue_((function(){
  311. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  312. return smalltalk.withContext(function($ctx2) {
  313. //>>excludeEnd("ctx");
  314. n2=_st(n2).__plus((1));
  315. return n2;
  316. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  317. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)});
  318. //>>excludeEnd("ctx");
  319. }));
  320. $7=_st(n1).__star((500000));
  321. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  322. $ctx1.sendIdx["*"]=3;
  323. //>>excludeEnd("ctx");
  324. $6=_st($7).__star((1000));
  325. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  326. $ctx1.sendIdx["*"]=2;
  327. //>>excludeEnd("ctx");
  328. $5=_st($6).__slash(t1);
  329. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  330. $ctx1.sendIdx["/"]=1;
  331. //>>excludeEnd("ctx");
  332. $4=_st($5)._printString();
  333. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  334. $ctx1.sendIdx["printString"]=1;
  335. //>>excludeEnd("ctx");
  336. $3=_st($4).__comma(" bytecodes/sec; ");
  337. $2=_st($3).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString());
  338. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  339. $ctx1.sendIdx[","]=2;
  340. //>>excludeEnd("ctx");
  341. $1=_st($2).__comma(" sends/sec");
  342. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  343. $ctx1.sendIdx[","]=1;
  344. //>>excludeEnd("ctx");
  345. return $1;
  346. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  347. }, function($ctx1) {$ctx1.fill(self,"jstinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},globals.Number)});
  348. //>>excludeEnd("ctx");
  349. },
  350. messageSends: ["whileTrue:", "millisecondsToRun:", "jsbenchmark", "<", "*", "jsbenchFib", "+", ",", "printString", "/"],
  351. //>>excludeStart("ide", pragmas.excludeIdeData);
  352. args: [],
  353. 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'",
  354. referencedClasses: ["Date"]
  355. //>>excludeEnd("ide");
  356. }),
  357. globals.Number);
  358. smalltalk.addMethod(
  359. smalltalk.method({
  360. selector: "tinyBenchmarks",
  361. protocol: '*Benchfib',
  362. fn: function (){
  363. var self=this;
  364. var t1,t2,r,n1,n2;
  365. function $Date(){return globals.Date||(typeof Date=="undefined"?nil:Date)}
  366. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  367. return smalltalk.withContext(function($ctx1) {
  368. //>>excludeEnd("ctx");
  369. var $7,$6,$5,$4,$3,$2,$1;
  370. n1=(1);
  371. _st((function(){
  372. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  373. return smalltalk.withContext(function($ctx2) {
  374. //>>excludeEnd("ctx");
  375. t1=_st($Date())._millisecondsToRun_((function(){
  376. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  377. return smalltalk.withContext(function($ctx3) {
  378. //>>excludeEnd("ctx");
  379. return _st(n1)._benchmark();
  380. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  381. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  382. //>>excludeEnd("ctx");
  383. }));
  384. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  385. $ctx2.sendIdx["millisecondsToRun:"]=1;
  386. //>>excludeEnd("ctx");
  387. t1;
  388. return _st(t1).__lt((1000));
  389. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  390. $ctx2.sendIdx["<"]=1;
  391. //>>excludeEnd("ctx");
  392. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  393. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  394. //>>excludeEnd("ctx");
  395. }))._whileTrue_((function(){
  396. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  397. return smalltalk.withContext(function($ctx2) {
  398. //>>excludeEnd("ctx");
  399. n1=_st(n1).__star((2));
  400. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  401. $ctx2.sendIdx["*"]=1;
  402. //>>excludeEnd("ctx");
  403. return n1;
  404. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  405. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  406. //>>excludeEnd("ctx");
  407. }));
  408. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  409. $ctx1.sendIdx["whileTrue:"]=1;
  410. //>>excludeEnd("ctx");
  411. n2=(16);
  412. _st((function(){
  413. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  414. return smalltalk.withContext(function($ctx2) {
  415. //>>excludeEnd("ctx");
  416. t2=_st($Date())._millisecondsToRun_((function(){
  417. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  418. return smalltalk.withContext(function($ctx3) {
  419. //>>excludeEnd("ctx");
  420. r=_st(n2)._benchFib();
  421. return r;
  422. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  423. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)});
  424. //>>excludeEnd("ctx");
  425. }));
  426. t2;
  427. return _st(t2).__lt((1000));
  428. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  429. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)});
  430. //>>excludeEnd("ctx");
  431. }))._whileTrue_((function(){
  432. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  433. return smalltalk.withContext(function($ctx2) {
  434. //>>excludeEnd("ctx");
  435. n2=_st(n2).__plus((1));
  436. return n2;
  437. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  438. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)});
  439. //>>excludeEnd("ctx");
  440. }));
  441. $7=_st(n1).__star((500000));
  442. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  443. $ctx1.sendIdx["*"]=3;
  444. //>>excludeEnd("ctx");
  445. $6=_st($7).__star((1000));
  446. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  447. $ctx1.sendIdx["*"]=2;
  448. //>>excludeEnd("ctx");
  449. $5=_st($6).__slash(t1);
  450. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  451. $ctx1.sendIdx["/"]=1;
  452. //>>excludeEnd("ctx");
  453. $4=_st($5)._printString();
  454. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  455. $ctx1.sendIdx["printString"]=1;
  456. //>>excludeEnd("ctx");
  457. $3=_st($4).__comma(" bytecodes/sec; ");
  458. $2=_st($3).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString());
  459. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  460. $ctx1.sendIdx[","]=2;
  461. //>>excludeEnd("ctx");
  462. $1=_st($2).__comma(" sends/sec");
  463. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  464. $ctx1.sendIdx[","]=1;
  465. //>>excludeEnd("ctx");
  466. return $1;
  467. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  468. }, function($ctx1) {$ctx1.fill(self,"tinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},globals.Number)});
  469. //>>excludeEnd("ctx");
  470. },
  471. messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", "<", "*", "benchFib", "+", ",", "printString", "/"],
  472. //>>excludeStart("ide", pragmas.excludeIdeData);
  473. args: [],
  474. 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'",
  475. referencedClasses: ["Date"]
  476. //>>excludeEnd("ide");
  477. }),
  478. globals.Number);
  479. });