test mods

master
Matthew Butterick 6 years ago
parent ecd2a403bf
commit 731aa5af9f

@ -17,7 +17,7 @@
#:break (set-member? sums last-sum)) #:break (set-member? sums last-sum))
(values (+ freq last-sum) (set-add sums last-sum)))) (values (+ freq last-sum) (set-add sums last-sum))))
(module+ main (module+ test
(require rackunit) (require rackunit)
(check-equal? (time ()) 454) (check-equal? (time ()) 454)
(check-equal? (time (★★)) 566)) (check-equal? (time (★★)) 566))

@ -31,7 +31,7 @@
#:when (differ-by-one? id id2)) #:when (differ-by-one? id id2))
(common-chars id id2)))) (common-chars id id2))))
(module+ main (module+ test
(require rackunit) (require rackunit)
(check-equal? (time ()) 6696) (check-equal? (time ()) 6696)
(check-equal? (time (★★)) "bvnfawcnyoeyudzrpgslimtkj")) (check-equal? (time (★★)) "bvnfawcnyoeyudzrpgslimtkj"))

@ -34,7 +34,7 @@
(= (length cidxs) 1))) (= (length cidxs) 1)))
cidx)) cidx))
(module+ main (module+ test
(require rackunit) (require rackunit)
(check-equal? (time ()) 110827) (check-equal? (time ()) 110827)
(check-equal? (time (★★)) 116)) (check-equal? (time (★★)) 116))

@ -6,7 +6,7 @@
#;(define (★★) #;(define (★★)
) )
#;(module+ main #;(module+ test
(require rackunit) (require rackunit)
(check-equal? (time ()) 454) (check-equal? (time ()) 454)
(check-equal? (time (★★)) 566)) (check-equal? (time (★★)) 566))