| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221 | define("amber/Benchfib", ["amber_vm/smalltalk","amber_vm/nil","amber_vm/_st"], function(smalltalk,nil,_st){smalltalk.addPackage('Benchfib');smalltalk.packages["Benchfib"].transport = {"type":"amd","amdNamespace":"amber"};smalltalk.addClass('Benchfib', smalltalk.Object, [], 'Benchfib');smalltalk.addMethod(smalltalk.method({selector: "main",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)})},messageSends: ["tinyBenchmarks", "log:", ","]}),smalltalk.Benchfib.klass);smalltalk.addMethod(smalltalk.method({selector: "benchFib",fn: function (){var self=this;return smalltalk.withContext(function($ctx1) { var $2,$1;$2=self.__lt((2));if(smalltalk.assert($2)){$1=(1);} else {$1=_st(_st(_st(self.__minus((1)))._benchFib()).__plus(_st(self.__minus((2)))._benchFib())).__plus((1));};return $1;}, function($ctx1) {$ctx1.fill(self,"benchFib",{},smalltalk.Number)})},messageSends: ["ifTrue:ifFalse:", "+", "benchFib", "-", "<"]}),smalltalk.Number);smalltalk.addMethod(smalltalk.method({selector: "benchmark",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)})}));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));prime;k=_st(i).__plus(prime);k;_st((function(){return smalltalk.withContext(function($ctx4) {return _st(k).__lt_eq(size);}, function($ctx4) {$ctx4.fillBlock({},$ctx3)})}))._whileTrue_((function(){return smalltalk.withContext(function($ctx4) {_st(flags)._at_put_(k,false);k=_st(k).__plus(prime);return k;}, function($ctx4) {$ctx4.fillBlock({},$ctx3)})}));count=_st(count).__plus((1));return count;};}, function($ctx3) {$ctx3.fillBlock({i:i},$ctx2)})}));}, function($ctx2) {$ctx2.fillBlock({iter:iter},$ctx1)})}));$2=count;return $2;}, function($ctx1) {$ctx1.fill(self,"benchmark",{size:size,flags:flags,prime:prime,k:k,count:count},smalltalk.Number)})},messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "+", "whileTrue:", "at:put:", "<=", "at:"]}),smalltalk.Number);smalltalk.addMethod(smalltalk.method({selector: "jsbenchFib",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)})},messageSends: []}),smalltalk.Number);smalltalk.addMethod(smalltalk.method({selector: "jsbenchmark",fn: function (){var self=this;return smalltalk.withContext(function($ctx1) { var size = 8190;var count;for (var z=0;z<this;z++) {	count = 0;	var flags = new Array();	for (var p=0; p<size; p++) {	flags[p] = true;	}	for (var i=1;i<=size;i++) {		if (flags[i-1]) {			var prime = i+1;			var k = i + prime;			while (k <= size) {				flags[k-1] = false;				k = k + prime;			}			count = count + 1;		}	}}return count;return self}, function($ctx1) {$ctx1.fill(self,"jsbenchmark",{},smalltalk.Number)})},messageSends: []}),smalltalk.Number);smalltalk.addMethod(smalltalk.method({selector: "jstinyBenchmarks",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 $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)})}));t1;return _st(t1).__lt((1000));}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){return smalltalk.withContext(function($ctx2) {n1=_st(n1).__star((2));return n1;}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));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)})}));t2;return _st(t2).__lt((1000));}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){return smalltalk.withContext(function($ctx2) {n2=_st(n2).__plus((1));return n2;}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));$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");return $1;}, function($ctx1) {$ctx1.fill(self,"jstinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},smalltalk.Number)})},messageSends: ["whileTrue:", "*", "millisecondsToRun:", "jsbenchmark", "<", "+", "jsbenchFib", ",", "printString", "/"]}),smalltalk.Number);smalltalk.addMethod(smalltalk.method({selector: "tinyBenchmarks",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 $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)})}));t1;return _st(t1).__lt((1000));}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){return smalltalk.withContext(function($ctx2) {n1=_st(n1).__star((2));return n1;}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));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)})}));t2;return _st(t2).__lt((1000));}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){return smalltalk.withContext(function($ctx2) {n2=_st(n2).__plus((1));return n2;}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));$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");return $1;}, function($ctx1) {$ctx1.fill(self,"tinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},smalltalk.Number)})},messageSends: ["whileTrue:", "*", "millisecondsToRun:", "benchmark", "<", "+", "benchFib", ",", "printString", "/"]}),smalltalk.Number);});
 |