[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gforth] how to build a really working random seed ?
From: |
Francois Pussault |
Subject: |
[gforth] how to build a really working random seed ? |
Date: |
Sun, 16 Jul 2017 18:16:55 +0200 (CEST) |
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
address@hidden
- [gforth] how to build a really working random seed ?,
Francois Pussault <=