Sorry your browser is not supported!

REM Project: Derren Brown heads
REM Created: 11/12/2013

Print " Flips in each of 25 trials (getting a run of 10)"
Print

Global highest=1
Global lowest=100000

Randomize Timer()

For trials = 1 To 25
  run=0
  flips=0

  Repeat
    flips=flips+1
    result = Rnd(1)+1
    If result=1 Then run=run+1
    If result=2 Then run=0
  Until run = 10
  Print flips

  If flips > highest Then highest = flips
  If flips < lowest Then lowest = flips
Next trials

Print
Print "lowest=  ",lowest
Print "highest= ",highest

Wait Key
End

DARKSDK int RndLL(int r) {
	int result = 0;
	if(r > 0){
		// leefix - 250604 - u54 - 0 to 22 million now
		if ( r > 1000 )  result += (rand() * 1000);
		if ( r > 100 )   result += (rand() * 100);
		if ( r > 10 )    result += (rand() * 10);
		result += rand();
		result %= r + 1;
	}
	return result;
}

REM Project: Derren Brown heads
REM Created: 11/12/2013

Print " Flips in each of 25 trials (getting a run of 10)"
Print

Global highest=1
Global lowest=100000

For trials = 1 To 25
  Randomize Timer()
  run=0
  flips=0

  Repeat
    flips=flips+1
    result = Rnd(1)+1
    If result=1 Then run=run+1
    If result=2 Then run=0
  Until run = 10
  Print flips

  If flips > highest Then highest = flips
  If flips < lowest Then lowest = flips
Next trials

Print
Print "lowest=  ",lowest
Print "highest= ",highest

Wait Key
End

REM Project: Derren Brown heads
REM Added alternative RNG implementation by Rudolpho
REM Created: 11/12/2013
REM Updated: 24/12/2013     » Merry Christmas!
#constant ole32             1
load dll "ole32.dll", ole32

Print " Flips in each of 25 trials (getting a run of 10)"
Print

Global highest=1
Global lowest=100000

Randomize Timer()

For trials = 1 To 25
  run=0
  flips=0

  Repeat
    flips=flips+1
    result = RandomUnsignedInteger(1)+1
    If result=1 Then run=run+1
    If result=2 Then run=0
  Until run = 10
  Print flips

  If flips > highest Then highest = flips
  If flips < lowest Then lowest = flips
Next trials

Print
Print "lowest=  ",lowest
Print "highest= ",highest

Wait Key
End


function RandomUnsignedInteger(maxValue as dword)
    if maxValue = 0 then exitfunction 0
    if maxValue = 1 then inc maxValue
    pGuid = alloc(16)
    if call dll(ole32, "CoCreateGuid", pGuid) <> 0
        rem Failure, this shouldn't normally happen
        free pGuid
        exitfunction -1     
    endif
    
    result = peek byte(pGuid + 2) << 24 || peek byte(pGuid + 6) << 16 || max((peek byte(pGuid + 4) + peek byte(pGuid + 1) + peek byte(pGuid + 11) / 3), 0xff) << 8 || peek byte(pGuid + 9)
    result = abs(result mod maxValue)   ` We don't want negative random numbers in this implementation
    free pGuid
endfunction result

REM Project: Derren Brown heads
REM Added alternative RNG implementation by Rudolpho
REM Created: 11/12/2013
REM Updated: 25/12/2013     » Merry Christmas!
#constant ole32             1
load dll "ole32.dll", ole32

Print " Flips in each of 25 trials (getting a run of 10)"
Print

Global highest  = 1
Global lowest   = 100000
Global Ptr
       Ptr      = make memory(16)

Randomize Timer()

For trials = 1 To 25
  run=0
  flips=0

  Repeat
    flips=flips+1
    result = RandomUnsignedInteger(1)+1
    If result=1 Then run=run+1
    If result=2 Then run=0
  Until run = 10
  Print flips

  If flips > highest Then highest = flips
  If flips < lowest Then lowest = flips
Next trials

Print
Print "lowest=  ",lowest
Print "highest= ",highest

Wait Key
delete memory Ptr
delete dll ole32
End


function RandomUnsignedInteger(maxValue as dword)
    if maxValue = 0 then exitfunction 0
    if maxValue = 1 then inc maxValue
    rem Use global memory block for faster processing
    pGuid = Ptr
    if call dll(ole32, "CoCreateGuid", pGuid) <> 0
        rem Failure, this shouldn't normally happen
        exitfunction -1     
    endif
    
    result = PeekByte(pGuid, 2) << 24 || PeekByte(pGuid, 6) << 16 || max((PeekByte(pGuid, 4) + PeekByte(pGuid, 1) + PeekByte(pGuid, 11) / 3), 0xff) << 8 || PeekByte(pGuid, 9)
    result = abs(result mod maxValue)   ` We don't want negative random numbers in this implementation
endfunction result


function PeekByte(ptr as dword, offset as integer)
    inc ptr, offset / 4
    bitOffset = (offset mod 4) * 8
    iValue = *ptr
    bValue = (iValue >> bitOffset) && 0x000000ff
endfunction bValue