Benchfib.js 18 KB

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