[gforth] how to build a really working random seed ?

[Francois Pussault]

Hello guys

I found a procedure : 

variable (rnd)
variable got
\ random seed
: randomize
        time&date  * + - * * (rnd) ! \ seed
;
: rnd ( -- n)
        (rnd) @ dup 13 lshift xor
        dup 17 rshift xor
        dup DUP 5 lshift xor (rnd) !
; 
But what I need is a -1/0 ending state (on/off)
so if I make a loop I got 

: rnd  
  (rnd) @ dup 13 lshift xor dup 17 rshift xor dup dup 5 lshift xor (rnd) ! ; ok
(rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok
rnd (rnd) @ . 0  ok

this fucking bullshit procédure make only zero's ....But what I need is a -1/0 
ending state (on/off) or similar
what I misunderstood ?





Cordialement
Francois Pussault
10 chemin de négo saoumos
apt 202 - bat 2
31300 Toulouse
+33 6 17 230 820 
fpussa...@contactoffice.fr