From d31744f0cc6c33ed24786aca8a01b8916aa82bbf Mon Sep 17 00:00:00 2001 From: Daniel Cerqueira Date: Sat, 12 Jul 2025 09:00:30 +0100 Subject: improve C of random --- liblali.c | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/liblali.c b/liblali.c index b54aeb8..674df77 100644 --- a/liblali.c +++ b/liblali.c @@ -948,15 +948,17 @@ Object *primitiveTime(Object **args, GC_PARAM) { } Object *primitiveRandom(Object **args, GC_PARAM) { - srandom((unsigned int)(seed + time(NULL))); - long nrandom = random(); - seed = (unsigned int)nrandom; - char string[22]; + srandom((unsigned int) (seed + time(NULL))); + long int nrandom = random(); + seed = (unsigned int) nrandom; + char string[22]; // 22 if (*args == nil) - sprintf(string, "+%ld", nrandom); + sprintf(string, "+%ld", (long int) nrandom); else - sprintf(string, "+%ld", nrandom % (atol((*args)->car->string) + 1)); + sprintf(string, "+%ld", + (long int) + (nrandom % (long int) (atol((*args)->car->string) + 1))); return newNumber(string, GC_ROOTS); } -- cgit