@ -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))))
(check-equal? (time (★)) 6696)
(check-equal? (time (★★)) "bvnfawcnyoeyudzrpgslimtkj"))
@ -34,7 +34,7 @@
(= (length cidxs) 1)))
cidx))
(check-equal? (time (★)) 110827)
(check-equal? (time (★★)) 116))
@ -6,7 +6,7 @@
#;(define (★★)
)
#;(module+ main
#;(module+ test