123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201 |
- smalltalk.addPackage('Benchfib', {});
- smalltalk.addClass('Benchfib', smalltalk.Object, [], 'Benchfib');
- smalltalk.addMethod(
- "_main",
- smalltalk.method({
- selector: "main",
- fn: function (){
- var self=this;
- var result;
- return smalltalk.withContext(function($ctx1) {
result=_st((0))._tinyBenchmarks();
- _st(console)._log_(_st("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(
- "_benchFib",
- smalltalk.method({
- selector: "benchFib",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
var $2,$1;
- $2=_st(self).__lt((2));
- if(smalltalk.assert($2)){
- $1=(1);
- } else {
- $1=_st(_st(_st(_st(self).__minus((1)))._benchFib()).__plus(_st(_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(
- "_benchmark",
- smalltalk.method({
- selector: "benchmark",
- fn: function (){
- var self=this;
- var size,flags,prime,k,count;
- return smalltalk.withContext(function($ctx1) {
var $1,$3,$5,$4,$2,$6;
- size=(8190);
- $1=self;
- $2=(function(iter){
- return smalltalk.withContext(function($ctx2) {
count=(0);
- count;
- flags=_st((smalltalk.Array || Array))._new();
- flags;
- _st(size)._timesRepeat_((function(){
- return smalltalk.withContext(function($ctx3) {
return _st(flags)._add_(true);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- $3=size;
- $4=(function(i){
- return smalltalk.withContext(function($ctx3) {
$5=_st(flags)._at_(i);
- if(smalltalk.assert($5)){
- 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({},$ctx1)})}))._whileTrue_((function(){
- return smalltalk.withContext(function($ctx4) {
_st(flags)._at_put_(k,false);
- k=_st(k).__plus(prime);
- return k;
- }, function($ctx4) {$ctx4.fillBlock({},$ctx1)})}));
- count=_st(count).__plus((1));
- return count;
- };
- }, function($ctx3) {$ctx3.fillBlock({i:i},$ctx1)})});
- return _st((1))._to_do_($3,$4);
- }, function($ctx2) {$ctx2.fillBlock({iter:iter},$ctx1)})});
- _st((1))._to_do_($1,$2);
- $6=count;
- return $6;
- }, 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(
- "_jsbenchFib",
- 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(
- "_jsbenchmark",
- 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(
- "_jstinyBenchmarks",
- smalltalk.method({
- selector: "jstinyBenchmarks",
- fn: function (){
- var self=this;
- var t1,t2,r,n1,n2;
- return smalltalk.withContext(function($ctx1) {
var $1;
- n1=(1);
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
t1=_st((smalltalk.Date || Date))._millisecondsToRun_((function(){
- return smalltalk.withContext(function($ctx3) {
return _st(n1)._jsbenchmark();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- 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((smalltalk.Date || Date))._millisecondsToRun_((function(){
- return smalltalk.withContext(function($ctx3) {
r=_st(n2)._jsbenchFib();
- return r;
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- 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(
- "_tinyBenchmarks",
- smalltalk.method({
- selector: "tinyBenchmarks",
- fn: function (){
- var self=this;
- var t1,t2,r,n1,n2;
- return smalltalk.withContext(function($ctx1) {
var $1;
- n1=(1);
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
t1=_st((smalltalk.Date || Date))._millisecondsToRun_((function(){
- return smalltalk.withContext(function($ctx3) {
return _st(n1)._benchmark();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- 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((smalltalk.Date || Date))._millisecondsToRun_((function(){
- return smalltalk.withContext(function($ctx3) {
r=_st(n2)._benchFib();
- return r;
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- 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);
|