Difference between revisions of "LSL Partial Sums Benchmark"
Jump to navigation
Jump to search
m |
m (<lsl> tag to <source>) |
||
| (One intermediate revision by one other user not shown) | |||
| Line 1: | Line 1: | ||
< | {{LSL Header}}{{DEFAULTSORT:Partial Sums}} | ||
<source lang="lsl2"> | |||
// | // | ||
// The Computer Language Shootout | // The Computer Language Shootout | ||
| Line 77: | Line 78: | ||
} | } | ||
} | } | ||
</ | </source> | ||
{{LSLC|Library}} | {{LSLC|Library}} | ||
{{LSLC|Benchmark}} | {{LSLC|Benchmark}} | ||
Latest revision as of 10:04, 25 January 2015
| LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
//
// The Computer Language Shootout
// http://shootout.alioth.debian.org/
//
// contributed by Isaac Gouy
// modified by Babbage Linden
//
test()
{
integer n = 250;
float twothirds = 2.0/3.0;
float a1 = 0.0;
float a2 = 0.0;
float a3 = 0.0;
float a4 = 0.0;
float a5 = 0.0;
float a6 = 0.0;
float a7 = 0.0;
float a8 = 0.0;
float a9 = 0.0;
float alt = -1.0;
integer k=0;
while (n >= (++k))
{
float k2 = llPow(k,2);
float k3 = k2*k;
float sk = llSin(k);
float ck = llCos(k);
alt = -alt;
a1 += llPow(twothirds,k-1);
a2 += llPow(k,-0.5);
a3 += 1.0/(k*(k+1.0));
a4 += 1.0/(k3 * sk*sk);
a5 += 1.0/(k3 * ck*ck);
a6 += 1.0/k;
a7 += 1.0/k2;
a8 += alt/k;
a9 += alt/(2.0*k -1.0);
}
llSay(0, (string)a1 + " (2/3)^k");
llSay(0, (string)a2 + " k^-0.5");
llSay(0, (string)a3 + " 1/k(k+1)");
llSay(0, (string)a4 + " Flint Hills");
llSay(0, (string)a5 + " Cookson Hills");
llSay(0, (string)a6 + " Harmonic");
llSay(0, (string)a7 + " Riemann Zeta");
llSay(0, (string)a8 + " Alternating Harmonic");
llSay(0, (string)a9 + " Gregory");
}
time()
{
llResetTime();
llSay(0, "Starting tests...");
test();
llSay(0, "Finished tests in " + (string)llGetTime() + "s");
}
default
{
state_entry()
{
time();
}
touch_start(integer num)
{
time();
}
}