| 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);
 |