LSL NSieve Bits Benchmark - Revision history

ObviousAltIsObvious Resident: tag to

2015-01-25T18:04:21Z

← Older revision		Revision as of 11:04, 25 January 2015
Line 1:		Line 1:
	{{LSL Header}}{{DEFAULTSORT:NSieve Bits}}		{{LSL Header}}{{DEFAULTSORT:NSieve Bits}}
	<~~lsl~~>		<source lang="lsl2">
	//		//
	// The Great Computer Language Shootout		// The Great Computer Language Shootout
Line 108:		Line 108:
	}		}
	}		}
	</~~lsl~~>		</source>

	{{LSLC\|Library}}		{{LSLC\|Library}}
	{{LSLC\|Benchmark}}		{{LSLC\|Benchmark}}

Strife Onizuka at 17:26, 23 May 2011

2011-05-23T17:26:52Z

← Older revision		Revision as of 10:26, 23 May 2011
Line 1:		Line 1:
			{{LSL Header}}{{DEFAULTSORT:NSieve Bits}}
	<lsl>		<lsl>
	//		//

Strife Onizuka at 17:11, 23 May 2011

2011-05-23T17:11:38Z

← Older revision		Revision as of 10:11, 23 May 2011
Line 110:		Line 110:

	{{LSLC\|Library}}		{{LSLC\|Library}}
			{{LSLC\|Benchmark}}

Void Singer: +library category

2011-05-21T17:57:06Z

+library category

← Older revision		Revision as of 10:57, 21 May 2011
Line 108:		Line 108:
	}		}
	</lsl>		</lsl>

			{{LSLC\|Library}}

Uzume Grigorovich: lsl code tagging

2008-04-14T05:18:37Z

lsl code tagging

← Older revision		Revision as of 22:18, 13 April 2008
Line 1:		Line 1:
	<~~pre~~>		<lsl>
	//		//
	// The Great Computer Language Shootout		// The Great Computer Language Shootout
Line 107:		Line 107:
	}		}
	}		}
	</~~pre~~>		</lsl>

Periapse Linden: New page:

 // // The Great Computer Language Shootout // http://shootout.alioth.debian.org/ // // contributed by Isaac Gouy // modified by Babbage Linden //  string hexc="0123456789ABCDEF";  st...

2007-11-06T23:33:29Z

New page: <pre> // // The Great Computer Language Shootout // http://shootout.alioth.debian.org/ // // contributed by Isaac Gouy // modified by Babbage Linden // string hexc="0123456789ABCDEF"; st...

New page

<pre>
//
// The Great Computer Language Shootout
// http://shootout.alioth.debian.org/
//
// contributed by Isaac Gouy
// modified by Babbage Linden
//

string hexc="0123456789ABCDEF";

string setBitArray(integer numbits)
{
string result = "";
integer i;
for(i = 0; i < numbits; i += 4)
{
result += "F";
}
result += "F";
return result;
}

string replace(string s, integer index, string char)
{
string result = "";
if(index >= 1)
{
result += llGetSubString(s, 0, index - 1);
}
result += char;
if(index < (llStringLength(s) - 1))
{
result += llGetSubString(s, index + 1, -1);
}
return result;
}

integer get(string s, integer index)
{
integer charIndex = index / 4;
integer bitIndex = index % 4;
integer bits = (integer)("0x" + llGetSubString(s, charIndex, charIndex));
return (bits & (1 << bitIndex));
}

string set(string s, integer index)
{
integer charIndex = index / 4;
integer bitIndex = index % 4;
integer bits = (integer)("0x" + llGetSubString(s, charIndex, charIndex));
bits = bits | (1 << bitIndex);
return replace(s, charIndex, llGetSubString(hexc, bits, bits));
}

string unset(string s, integer index)
{
integer charIndex = index / 4;
integer bitIndex = index % 4;
integer bits = (integer)("0x" + llGetSubString(s, charIndex, charIndex));
integer mask = 0xF & ~(1 << bitIndex);
bits = bits & mask;
return replace(s, charIndex, llGetSubString(hexc, bits, bits));
}

test()
{
integer m = 128;
string bits = setBitArray(m);
integer count = 0;

integer i;
for (i=2; i <= m; i++)
{
if(get(bits, i))
{
integer k;
for(k=i+i; k <= m; k+=i)
{
bits = unset(bits, k);
}
count++;
}
}
llSay(0, "Primes up to " + (string)m + " " + (string)count);
}

time()
{
llResetTime();
llSay(0, "Starting tests...");
test();
llSay(0, "Finished tests in " + (string)llGetTime() + "s");

}

default
{
state_entry()
{
time();
}

touch_start(integer num)
{
time();
}
}
</pre>