mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* random.c, random.h (scm_i_make_rstate): New function: Makes

Browse source 
scm_rstate from seed.
(scm_copy_random_state, scm_seed_to_random_state): New functions.
(scm_make_random_state): Removed.
This commit is contained in:
Mikael Djurfeldt 1999-01-21 09:20:52 +00:00
parent 5ee11b7cc0
commit eccc856618
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/random.h
View file

@ -92,6 +92,7 @@ extern scm_i_rstate *scm_i_copy_rstate (scm_i_rstate *);
/* /*
* Random number library functions * Random number library functions
*/ */
extern scm_rstate *scm_i_make_rstate (char *, int);
extern double scm_i_uniform01 (scm_rstate *); extern double scm_i_uniform01 (scm_rstate *);
extern double scm_i_normal01 (scm_rstate *); extern double scm_i_normal01 (scm_rstate *);
extern double scm_i_exp1 (scm_rstate *); extern double scm_i_exp1 (scm_rstate *);
@ -110,7 +111,8 @@ extern unsigned char scm_masktab[256];
extern SCM scm_var_random_state; extern SCM scm_var_random_state;
extern SCM scm_random (SCM n, SCM state); extern SCM scm_random (SCM n, SCM state);
extern SCM scm_make_random_state (SCM state); extern SCM scm_copy_random_state (SCM state);
extern SCM scm_seed_to_random_state (SCM seed);
extern SCM scm_random_uniform (SCM state); extern SCM scm_random_uniform (SCM state);
extern SCM scm_random_solid_sphere_x (SCM v, SCM state); extern SCM scm_random_solid_sphere_x (SCM v, SCM state);
extern SCM scm_random_hollow_sphere_x (SCM v, SCM state); extern SCM scm_random_hollow_sphere_x (SCM v, SCM state);