42 lines
657 B
Plaintext
42 lines
657 B
Plaintext
|
/*
|
||
|
|
*Random number function from The Great Computer Language shootout
|
||
|
|
*converted to a generator func
|
||
|
|
*/
|
||
|
|
|
||
|
|
function gen_random(max) {
|
||
|
|
local last=42
|
||
|
|
local IM = 139968;
|
||
|
|
local IA = 3877;
|
||
|
|
local IC = 29573;
|
||
|
|
for(;;){ //loops forever
|
||
|
|
yield (max * (last = (last * IA + IC) % IM) / IM);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
local randtor=gen_random(100);
|
||
|
|
|
||
|
|
print("RAND NUMBERS \n")
|
||
|
|
|
||
|
|
for(local i=0;i<10;i+=1)
|
||
|
|
print(">"+resume randtor+"\n");
|
||
|
|
|
||
|
|
print("FIBONACCI \n")
|
||
|
|
function fiboz(n)
|
||
|
|
{
|
||
|
|
local prev=0;
|
||
|
|
local curr=1;
|
||
|
|
yield 1;
|
||
|
|
|
||
|
|
for(local i=0;i<n-1;i+=1)
|
||
|
|
{
|
||
|
|
local res=prev+curr;
|
||
|
|
prev=curr;
|
||
|
|
yield curr=res;
|
||
|
|
}
|
||
|
|
return prev+curr;
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach(val in fiboz(10))
|
||
|
|
{
|
||
|
|
::print(">"+val+"\n");
|
||
|
|
}
|