np/embddr-scheme-library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add comment

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-11-05 21:23:12 +03:00
parent fef9a58275
commit 98bd8f0430
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
embddr/random.scm
View File

@ -31,7 +31,9 @@
constrs))) constrs)))
;;; ;;;
;;; Make constrained random number generator. ;;; Make constrained random number generator.
;;; Constraints is list of '(from to weight) ;;; Constraints is list of '(from to weight), where
;;; 'from' - inclusive bottom limit, 'to' - exclusive
;;; top limit or random range.
;;; ;;;
(define (constrained-random-generator constrs) (define (constrained-random-generator constrs)
(let ((constrs (clean-constraints constrs))) (let ((constrs (clean-constraints constrs)))