remove fixed

This commit is contained in:
Jay McCarthy 2014-03-19 16:01:48 -06:00
parent 59353317a2
commit ef3ca65c8a
7 changed files with 3 additions and 81 deletions

View File

@ -10,10 +10,9 @@
< (balance (c t_1 n_2 (ins n_1 t_2))) < (balance (c t_1 n_2 (ins n_1 t_2)))
--- ---
> (c t_1 n_2 (ins n_1 t_2)) > (c t_1 n_2 (ins n_1 t_2))
301a302,307 301a302,306
> (define small-counter-example > (define small-counter-example
> (term (B (R E (num->n 0) E) > (term (B (R E (num->n 0) E)
> (num->n 2) > (num->n 2)
> E))) > E)))
> (test-equal (check small-counter-example) #f) > (test-equal (check small-counter-example) #f)
>

View File

@ -5,10 +5,9 @@
100,101d99 100,101d99
< [(balance (B (R (R t_1 n_1 t_2) n_2 t_3) n_3 t_4)) < [(balance (B (R (R t_1 n_1 t_2) n_2 t_3) n_3 t_4))
< (R (B t_1 n_1 t_2) n_2 (B t_3 n_3 t_4))] < (R (B t_1 n_1 t_2) n_2 (B t_3 n_3 t_4))]
301a300,305 301a300,304
> (define small-counter-example > (define small-counter-example
> (term (B (R E (num->n 1) E) > (term (B (R E (num->n 1) E)
> (num->n 2) > (num->n 2)
> E))) > E)))
> (test-equal (check small-counter-example) #f) > (test-equal (check small-counter-example) #f)
>

View File

@ -6,7 +6,7 @@
< [(rbt (B (c_1 t_11 n_1 t_12) n (c_2 t_21 n_2 t_22)) n_1min n_2max (s n_bd)) < [(rbt (B (c_1 t_11 n_1 t_12) n (c_2 t_21 n_2 t_22)) n_1min n_2max (s n_bd))
--- ---
> [(rbt (B (c_1 t_11 n_1 t_12) n (c_2 t_21 n_2 t_22)) n_1min n_2max n_bd) > [(rbt (B (c_1 t_11 n_1 t_12) n (c_2 t_21 n_2 t_22)) n_1min n_2max n_bd)
301a302,311 301a302,310
> (define small-counter-example > (define small-counter-example
> (term (B > (term (B
> (B > (B
@ -16,4 +16,3 @@
> (num->n 4) > (num->n 4)
> (R E (num->n 5) E)))) > (R E (num->n 5) E))))
> (test-equal (check small-counter-example) #f) > (test-equal (check small-counter-example) #f)
>

View File

@ -304,22 +304,3 @@
(num->n 2) (num->n 2)
E))) E)))
(test-equal (check small-counter-example) #f) (test-equal (check small-counter-example) #f)
(define fixed
(term
(;; 1 and 2
(B (R E (num->n 1) E)
(num->n 3)
E)
;; 3
(B
;;; size should be 1, but in 3 it's 0
(B
;; size is 0
(R E (num->n 1) E)
(num->n 2)
;; size is 0
(R E (num->n 3) E))
(num->n 5)
;; size is 0
(R E (num->n 10) E)))))

View File

@ -302,22 +302,3 @@
(num->n 2) (num->n 2)
E))) E)))
(test-equal (check small-counter-example) #f) (test-equal (check small-counter-example) #f)
(define fixed
(term
(;; 1 and 2
(B (R E (num->n 1) E)
(num->n 3)
E)
;; 3
(B
;;; size should be 1, but in 3 it's 0
(B
;; size is 0
(R E (num->n 1) E)
(num->n 2)
;; size is 0
(R E (num->n 3) E))
(num->n 5)
;; size is 0
(R E (num->n 10) E)))))

View File

@ -308,22 +308,3 @@
(num->n 4) (num->n 4)
(R E (num->n 5) E)))) (R E (num->n 5) E))))
(test-equal (check small-counter-example) #f) (test-equal (check small-counter-example) #f)
(define fixed
(term
(;; 1 and 2
(B (R E (num->n 1) E)
(num->n 3)
E)
;; 3
(B
;;; size should be 1, but in 3 it's 0
(B
;; size is 0
(R E (num->n 1) E)
(num->n 2)
;; size is 0
(R E (num->n 3) E))
(num->n 5)
;; size is 0
(R E (num->n 10) E)))))

View File

@ -299,21 +299,3 @@
(generate-term rbtrees t #:i-th index) (generate-term rbtrees t #:i-th index)
(set! index (add1 index)))))) (set! index (add1 index))))))
(define fixed
(term
(;; 1 and 2
(B (R E (num->n 1) E)
(num->n 3)
E)
;; 3
(B
;;; size should be 1, but in 3 it's 0
(B
;; size is 0
(R E (num->n 1) E)
(num->n 2)
;; size is 0
(R E (num->n 3) E))
(num->n 5)
;; size is 0
(R E (num->n 10) E)))))