From 1fff319bb6cd2859c8f0689f8647746a31b4e542 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Fri, 7 Jun 2024 16:40:37 -0400 Subject: [PATCH] fix `random` bugs --- prelude.ld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/prelude.ld b/prelude.ld index 635cebf..764669e 100644 --- a/prelude.ld +++ b/prelude.ld @@ -910,8 +910,8 @@ fn dist { fn random { "Returns a random number. With zero arguments, returns a random number between 0 (inclusive) and 1 (exclusive). With one argument, returns a random number between 0 and n. With two arguments, returns a random number between m and n. Alternately, given a list, it returns a random member of that list." () -> base :random () - (n as :number) -> base :random (n) - (m as :number, n as :number) -> add (m, random (n)) + (n as :number) -> mult (n, random ()) + (m as :number, n as :number) -> add (m, random (sub (n, m))) (l as :list) -> { let i = do l > count > random > floor at (l, i)