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