File tree Expand file tree Collapse file tree 1 file changed +2
-4
lines changed Expand file tree Collapse file tree 1 file changed +2
-4
lines changed Original file line number Diff line number Diff line change 12081208 (if (hash-has-key? duplicatesHash expr)
12091209 (set! duplicates (cons expr duplicates))
12101210 (hash-set! duplicatesHash expr 0 )))
1211- ;(displayln (format "duplicates:~a" duplicates))
12121211 (remove-duplicates exprs)
1213-
12141212 (define (run-rival pts)
12151213 (for ([pt pts])
12161214 ;(displayln pt)
12711269 ; Checks both status and val-points
12721270 (when (and (equal? (cdr val-point) (cdr val-point2))
12731271 (not (equal? (car val-point) (car val-point2))))
1274- (displayln "__________________ " )
1272+ #| (displayln "__________________")
12751273 (display "prog:")
12761274 (displayln prog)
12771275 (display "diff:")
1278- (displayln diff)
1276+ (displayln diff) |#
12791277 (when (not (equal? diff #f ))
12801278 (if (equal? (first diff) -0.0 )
12811279 (format "Expr 1: ~a Expr 2: ~a " (car val-point) (car val-point2));insert match statement to check for patterns ex- x+0 -> x
You can’t perform that action at this time.
0 commit comments