LÖVE

Code: Select all

/*
    RANROT-B/32 PRNG
    Call with 1 or higher to set seed; call with 0 to fetch values.
    Robin Leffmann 2005 / <robin at stolendata dot net>
*/

#include <stdint.h>
static uint32_t rrbRand( uint32_t rrbSeed )
{
    static uint32_t rrbLo, rrbHi;
    if( rrbSeed != 0 )
    {
        rrbLo = rrbSeed;
        rrbHi = ~rrbSeed;
    }
    else
    {
        rrbHi = ( rrbHi << 16 ) + ( rrbHi >> 16 );
        rrbHi += rrbLo;
        rrbLo += rrbHi;
    }
    return rrbHi;
}

Code: Select all

local function checkBitImplementation(bit)
  local msg = 'Failed testing bitwise implementation'
  assert(bit.bnot ~= nil, msg)
  assert(bit.lshift ~= nil, msg)
  assert(bit.rshift ~= nil, msg)
  assert(bit.bnot(0) == 4294967295, msg)
  assert(bit.lshift(2, 16) == 131072, msg)
  assert(bit.rshift(2, 16) == 0, msg)
  return bit
end

local bit = checkBitImplementation(
   _VERSION:match('5.2') and bit32
	       or (jit ~= nil) and require ('numberlua').bit
	       or require 'numberlua'
)

-- Returns an iterator function
local function ranrotb(seed)
  seed = seed or os.time()
  local lo, hi = seed, bit.bnot(seed)
  return function()
    hi = bit.lshift(hi,16) + bit.rshift(hi, 16)
    hi = hi + lo
    lo = lo + hi
    return hi
  end
end

Code: Select all

-- Generates n random numbers betwen 1 and max
local function gen(n, max)
	local prng = ranrotb()
	local t = {}
	for i = 1, n do t[#t+1] = (prng() % max) end
	return t
end

-- Generates and print 100 random numbers between 1 and 10.
print(table.concat(gen(100, 10),'\n'))

Code: Select all

    hi = (bit.lshift(hi,16) + bit.rshift(hi, 16)) % 2^32
    hi = (hi + lo) % 2^32
    lo = (lo + hi) % 2^32

Code: Select all

local ranrotb_prng = require 'ranrotb_prng'

-- Taken from: https://github.com/Yonaba/Allen/blob/master/allen.lua#L279
function string_split(str,n)
  n = n or 1
  if not (#str > 0) then return nil end
  local _chopped = {}
  for w in str:gmatch(('.'):rep(n)) do table.insert(_chopped,w) end
  local s,e
  if _chopped and (#_chopped > 0) then
    s,e = str:find(_chopped[#_chopped])
    if e then
    local _end = str:sub(e+1)
      if _end~='' then table.insert(_chopped,_end) end
    end
  elseif #str<=n then _chopped = {str}
  end
  return _chopped
end

local function gen(n, max)
  local prng = ranrotb_prng()
  local t = {}
  for i = 1, n do t[#t+1] = (prng() % max) end
  return t
end

local cat = table.concat
local linemax = 80
local n, max, sep = 1000, 10, ' '
print(cat(string_split(cat(gen(n, max),sep), linemax), '\n'))