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

Weight in random constraints now is not limited by 1

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-11-06 14:22:30 +03:00
parent f5977e41e1
commit f4d29094c9
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
embddr/random.scm
View File

@ -8,7 +8,7 @@
;;;
;;; Remove redundant (zero range) constraints.
;;; Limit weight in range (0..1]
;;; Limit the weight value in positive range
;;;
(define (clean-constraints constrs)
(remove (lambda (c)
@ -20,14 +20,11 @@
(map (lambda (c)
(let ((from (inexact->exact (round (car c))))
(to (inexact->exact (round (cadr c))))
(w (caddr c)))
(let ((w (cond
((< w 0) 0)
((> w 1) 1)
(else w))))
(w (let ((w (caddr c)))
(if (< w 0) 0 w))))
(if (> from to)
(list to from w)
(list from to w)))))
(list from to w))))
constrs)))
;;;
;;; Make constrained random number generator.