LSL Recursion Benchmark - Revision history

ObviousAltIsObvious Resident: tag to

2015-01-25T18:06:14Z

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

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

Strife Onizuka at 17:26, 23 May 2011

2011-05-23T17:26:34Z

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

Strife Onizuka at 17:10, 23 May 2011

2011-05-23T17:10:44Z

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

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

Void Singer: +library category

2011-05-21T17:55:20Z

+library category

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

			{{LSLC\|Library}}

Strife Onizuka at 17:31, 14 April 2008

2008-04-14T17:31:19Z

← Older revision		Revision as of 10:31, 14 April 2008
Line 15:		Line 15:
	}		}

	if(y ~~\| 0~~)		if(y)
	{		{
	return ack(x - 1, ack(x, y - 1));		return ack(x - 1, ack(x, y - 1));

Uzume Grigorovich: lsl code tagging

2008-04-14T00:27:30Z

lsl code tagging

← Older revision		Revision as of 17:27, 13 April 2008
Line 1:		Line 1:
	<~~pre~~>		<lsl>
	//		//
	// The Computer Language Shootout		// The Computer Language Shootout
Line 94:		Line 94:
	}		}
	}		}
	</~~pre~~>		</lsl>

Periapse Linden: New page:

 // // The Computer Language Shootout // http://shootout.alioth.debian.org/ // // contributed by bearophile, Jan 24 2006 // modified by Babbage Linden, Oct 10 2007 //  integer ack(int...

2007-11-06T23:29:09Z

New page: <pre> // // The Computer Language Shootout // http://shootout.alioth.debian.org/ // // contributed by bearophile, Jan 24 2006 // modified by Babbage Linden, Oct 10 2007 // integer ack(int...

New page

<pre>
//
// The Computer Language Shootout
// http://shootout.alioth.debian.org/
//
// contributed by bearophile, Jan 24 2006
// modified by Babbage Linden, Oct 10 2007
//

integer ack(integer x, integer y)
{
if(x == 0)
{
return y + 1;
}

if(y | 0)
{
return ack(x - 1, ack(x, y - 1));
}
else
{
return ack(x - 1, 1);
}
}

integer fib(integer n)
{
if (n < 2)
{
return 1;
}
return fib(n - 2) + fib(n - 1);
}

float fibFP(float n)
{
if (n < 2.0)
{
return 1.0;
}
return fibFP(n - 2.0) + fibFP(n - 1.0);
}

integer tak(integer x, integer y, integer z)
{
if (y < x)
{
return tak(tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y));
}
return z;
}

float takFP(float x, float y, float z)
{
if (y < x)
{
return takFP( takFP(x-1.0, y, z), takFP(y-1.0, z, x), takFP(z-1.0, x, y) );
}
return z;
}

test()
{
integer n = 3;
llSay(0, "Ack(3," + (string)(n+1) + "): " + (string)(ack(3, n+1)));
//llSay(0, "Fib("+ (string)(28.0 + n) + "): " + (string)(fibFP(28.0+n)));

llSay(0, "Tak(" + (string)(3 * n) + "," + (string)(2 * n) + "," + (string)n + "): " + (string)tak(3*n, 2*n, n));

llSay(0, "Fib(3): " + (string)fib(3));
llSay(0, "Tak(3.0,2.0,1.0): " + (string)takFP(3.0, 2.0, 1.0));
}

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>