1
0

Benchfib.js 18 KB

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