test mods

master
Matthew Butterick 5 years ago
parent ecd2a403bf
commit 731aa5af9f

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

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

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

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