From f4d29094c9bb5089dd4dd5663625637c891079e2 Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Sun, 6 Nov 2022 14:22:30 +0300 Subject: [PATCH] Weight in random constraints now is not limited by 1 --- embddr/random.scm | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/embddr/random.scm b/embddr/random.scm index 2ac65c3..c53f711 100644 --- a/embddr/random.scm +++ b/embddr/random.scm @@ -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)))) - (if (> from to) - (list to from w) - (list from to w))))) + (w (let ((w (caddr c))) + (if (< w 0) 0 w)))) + (if (> from to) + (list to from w) + (list from to w)))) constrs))) ;;; ;;; Make constrained random number generator.