From aeae4fc3dcfbb4b5376515e5660134e79a4f54c3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 29 Jan 2022 00:06:19 -0800 Subject: New function: random-sample. Implements reservoir sampling. * rand.c (radom_float_impl): New static function, made out of random_float. Returns double, giving us access to the unboxed result (random_float): Now a wrapper around random_float_impl: boxes the result of random_float. (elrd, flrd, random_sample): New static functions. (rand_init): Register random-sample intrinsic. * txr.1: Documented. * stdlib/doc-syms.tl: Updated. --- stdlib/doc-syms.tl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'stdlib') diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 723ea9c2..71302389 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -175,7 +175,7 @@ ("blksize-t" "N-01153D9E") ("block" "D-006F") ("block*" "N-02F60DCE") - ("bool" "D-002D") + ("bool" "D-002C") ("boundp" "N-01FBF828") ("bracket" "N-02400F97") ("break-str" "N-00A9DB25") @@ -1085,7 +1085,7 @@ ("kill" "N-0386CCD5") ("krs" "N-02D33A4D") ("labels" "N-0209307D") - ("lambda" "D-002C") + ("lambda" "D-002D") ("lambda-match" "N-031E43FF") ("lambda-set" "N-02FEBA97") ("last" "D-0042") @@ -1547,6 +1547,7 @@ ("random-fixnum" "N-03A57C86") ("random-float" "N-0276C623") ("random-float-incl" "N-0276C623") + ("random-sample" "N-0107F246") ("random-state-get-vec" "N-005C0F98") ("random-state-p" "N-00C9A749") ("range" "N-033BE5A1") -- cgit v1.2.3