4 #include "base/cl_sysdep.h"
7 #include "cln/integer.h"
12 #include "base/random/cl_random_impl.h"
13 #include "integer/cl_I.h"
14 #include "base/digitseq/cl_DS.h"
18 const cl_I random_I (random_state& randomstate, const cl_I& n)
21 var const uintD* n_MSDptr;
23 var const uintD* n_LSDptr;
24 I_to_NDS_nocopy(n, n_MSDptr=,n_len=,n_LSDptr=,false,); // Digit sequence >0 zu n
26 var uintC len = n_len + ceiling(16,intDsize); // 16 Bits mehr
27 // neue UDS mit len Zufallsdigits bilden:
28 num_stack_alloc(len,MSDptr=,);
29 random_UDS(randomstate,MSDptr,len);
30 // und durch n dividieren:
33 UDS_divide(MSDptr,len,MSDptr mspop len, n_MSDptr,n_len,n_LSDptr, &q,&r);
34 // Rest in Integer umwandeln:
35 return NUDS_to_I(r.MSDptr,r.len);