define("amber_core/Benchfib", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Kernel-Objects"], function(smalltalk,nil,_st){ smalltalk.addPackage('Benchfib'); smalltalk.packages["Benchfib"].transport = {"type":"amd","amdNamespace":"amber_core"}; smalltalk.addClass('Benchfib', smalltalk.Object, [], 'Benchfib'); smalltalk.addMethod( smalltalk.method({ selector: "main", category: 'not yet classified', fn: function (){ var self=this; var result; return smalltalk.withContext(function($ctx1) { result=(0)._tinyBenchmarks(); _st(console)._log_("0 tinyBenchmarks => ".__comma(result)); return self}, function($ctx1) {$ctx1.fill(self,"main",{result:result},smalltalk.Benchfib.klass)})}, args: [], source: "main\x0a\x0a\x09| result |\x0a\x09result := 0 tinyBenchmarks.\x0a\x09console log: '0 tinyBenchmarks => ' , result", messageSends: ["tinyBenchmarks", "log:", ","], referencedClasses: [] }), smalltalk.Benchfib.klass); smalltalk.addMethod( smalltalk.method({ selector: "benchFib", category: '*Benchfib', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$5,$4,$3,$1; $2=self.__lt((2)); if(smalltalk.assert($2)){ $1=(1); } else { $5=self.__minus((1)); $ctx1.sendIdx["-"]=1; $4=_st($5)._benchFib(); $ctx1.sendIdx["benchFib"]=1; $3=_st($4).__plus(_st(self.__minus((2)))._benchFib()); $1=_st($3).__plus((1)); $ctx1.sendIdx["+"]=1; }; return $1; }, function($ctx1) {$ctx1.fill(self,"benchFib",{},smalltalk.Number)})}, args: [], 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]", messageSends: ["ifTrue:ifFalse:", "<", "+", "benchFib", "-"], referencedClasses: [] }), smalltalk.Number); smalltalk.addMethod( smalltalk.method({ selector: "benchmark", category: '*Benchfib', fn: function (){ var self=this; var size,flags,prime,k,count; function $Array(){return smalltalk.Array||(typeof Array=="undefined"?nil:Array)} return smalltalk.withContext(function($ctx1) { var $1,$2; size=(8190); (1)._to_do_(self,(function(iter){ return smalltalk.withContext(function($ctx2) { count=(0); count; flags=_st($Array())._new(); flags; _st(size)._timesRepeat_((function(){ return smalltalk.withContext(function($ctx3) { return _st(flags)._add_(true); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})})); return (1)._to_do_(size,(function(i){ return smalltalk.withContext(function($ctx3) { $1=_st(flags)._at_(i); if(smalltalk.assert($1)){ prime=_st(i).__plus((1)); $ctx3.sendIdx["+"]=1; prime; k=_st(i).__plus(prime); $ctx3.sendIdx["+"]=2; k; _st((function(){ return smalltalk.withContext(function($ctx4) { return _st(k).__lt_eq(size); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)})}))._whileTrue_((function(){ return smalltalk.withContext(function($ctx4) { _st(flags)._at_put_(k,false); k=_st(k).__plus(prime); $ctx4.sendIdx["+"]=3; return k; }, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)})})); count=_st(count).__plus((1)); return count; }; }, function($ctx3) {$ctx3.fillBlock({i:i},$ctx2,3)})})); }, function($ctx2) {$ctx2.fillBlock({iter:iter},$ctx1,1)})})); $ctx1.sendIdx["to:do:"]=1; $2=count; return $2; }, function($ctx1) {$ctx1.fill(self,"benchmark",{size:size,flags:flags,prime:prime,k:k,count:count},smalltalk.Number)})}, args: [], 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", messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "at:", "+", "whileTrue:", "<=", "at:put:"], referencedClasses: ["Array"] }), smalltalk.Number); smalltalk.addMethod( smalltalk.method({ selector: "jsbenchFib", category: '*Benchfib', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { if (this < 2) { return 1; } else { return (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;}; return self}, function($ctx1) {$ctx1.fill(self,"jsbenchFib",{},smalltalk.Number)})}, args: [], source: "jsbenchFib\x0a\x0a\x09", messageSends: [], referencedClasses: [] }), smalltalk.Number); smalltalk.addMethod( smalltalk.method({ selector: "jsbenchmark", category: '*Benchfib', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var size = 8190; var count; for (var z=0;z", messageSends: [], referencedClasses: [] }), smalltalk.Number); smalltalk.addMethod( smalltalk.method({ selector: "jstinyBenchmarks", category: '*Benchfib', fn: function (){ var self=this; var t1,t2,r,n1,n2; function $Date(){return smalltalk.Date||(typeof Date=="undefined"?nil:Date)} return smalltalk.withContext(function($ctx1) { var $7,$6,$5,$4,$3,$2,$1; n1=(1); _st((function(){ return smalltalk.withContext(function($ctx2) { t1=_st($Date())._millisecondsToRun_((function(){ return smalltalk.withContext(function($ctx3) { return _st(n1)._jsbenchmark(); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})})); $ctx2.sendIdx["millisecondsToRun:"]=1; t1; return _st(t1).__lt((1000)); $ctx2.sendIdx["<"]=1; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._whileTrue_((function(){ return smalltalk.withContext(function($ctx2) { n1=_st(n1).__star((2)); $ctx2.sendIdx["*"]=1; return n1; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})})); $ctx1.sendIdx["whileTrue:"]=1; n2=(28); _st((function(){ return smalltalk.withContext(function($ctx2) { t2=_st($Date())._millisecondsToRun_((function(){ return smalltalk.withContext(function($ctx3) { r=_st(n2)._jsbenchFib(); return r; }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)})})); t2; return _st(t2).__lt((1000)); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}))._whileTrue_((function(){ return smalltalk.withContext(function($ctx2) { n2=_st(n2).__plus((1)); return n2; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})})); $7=_st(n1).__star((500000)); $ctx1.sendIdx["*"]=3; $6=_st($7).__star((1000)); $ctx1.sendIdx["*"]=2; $5=_st($6).__slash(t1); $ctx1.sendIdx["/"]=1; $4=_st($5)._printString(); $ctx1.sendIdx["printString"]=1; $3=_st($4).__comma(" bytecodes/sec; "); $2=_st($3).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString()); $ctx1.sendIdx[","]=2; $1=_st($2).__comma(" sends/sec"); $ctx1.sendIdx[","]=1; return $1; }, function($ctx1) {$ctx1.fill(self,"jstinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},smalltalk.Number)})}, args: [], 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'", messageSends: ["whileTrue:", "millisecondsToRun:", "jsbenchmark", "<", "*", "jsbenchFib", "+", ",", "printString", "/"], referencedClasses: ["Date"] }), smalltalk.Number); smalltalk.addMethod( smalltalk.method({ selector: "tinyBenchmarks", category: '*Benchfib', fn: function (){ var self=this; var t1,t2,r,n1,n2; function $Date(){return smalltalk.Date||(typeof Date=="undefined"?nil:Date)} return smalltalk.withContext(function($ctx1) { var $7,$6,$5,$4,$3,$2,$1; n1=(1); _st((function(){ return smalltalk.withContext(function($ctx2) { t1=_st($Date())._millisecondsToRun_((function(){ return smalltalk.withContext(function($ctx3) { return _st(n1)._benchmark(); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})})); $ctx2.sendIdx["millisecondsToRun:"]=1; t1; return _st(t1).__lt((1000)); $ctx2.sendIdx["<"]=1; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._whileTrue_((function(){ return smalltalk.withContext(function($ctx2) { n1=_st(n1).__star((2)); $ctx2.sendIdx["*"]=1; return n1; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})})); $ctx1.sendIdx["whileTrue:"]=1; n2=(16); _st((function(){ return smalltalk.withContext(function($ctx2) { t2=_st($Date())._millisecondsToRun_((function(){ return smalltalk.withContext(function($ctx3) { r=_st(n2)._benchFib(); return r; }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)})})); t2; return _st(t2).__lt((1000)); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}))._whileTrue_((function(){ return smalltalk.withContext(function($ctx2) { n2=_st(n2).__plus((1)); return n2; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})})); $7=_st(n1).__star((500000)); $ctx1.sendIdx["*"]=3; $6=_st($7).__star((1000)); $ctx1.sendIdx["*"]=2; $5=_st($6).__slash(t1); $ctx1.sendIdx["/"]=1; $4=_st($5)._printString(); $ctx1.sendIdx["printString"]=1; $3=_st($4).__comma(" bytecodes/sec; "); $2=_st($3).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString()); $ctx1.sendIdx[","]=2; $1=_st($2).__comma(" sends/sec"); $ctx1.sendIdx[","]=1; return $1; }, function($ctx1) {$ctx1.fill(self,"tinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},smalltalk.Number)})}, args: [], 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'", messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", "<", "*", "benchFib", "+", ",", "printString", "/"], referencedClasses: ["Date"] }), smalltalk.Number); });