|
|
@@ -49,10 +49,10 @@
|
|
|
; check mutation rate
|
|
|
; return the number of members that are different between pop1 and pop2
|
|
|
(define (mcheck pop1 pop2)
|
|
|
- (for/list ([i (length pop1)])
|
|
|
- (if (eq? (list-ref pop1 i) (list-ref pop2 i))
|
|
|
- 0
|
|
|
- 1)))
|
|
|
+ (for/list ([i (length pop1)])
|
|
|
+ (if (eq? (list-ref pop1 i) (list-ref pop2 i))
|
|
|
+ 0
|
|
|
+ 1)))
|
|
|
|
|
|
; testing/debugging code below
|
|
|
(define pop (initpop))
|
