32 lines
620 B
Racket
32 lines
620 B
Racket
|
#lang racket
|
||
|
|
; https://codegolf.stackexchange.com/questions/277441/distinct-characters-and-distinct-sizes?answertab=modifieddesc#tab-top
|
||
|
|
|
||
|
|
(define solve
|
||
|
|
(λ(s'set-count,list->set)[apply +',s{set->list,(map length [group-by(λ(x)x){sort s <}])}])
|
||
|
|
)
|
||
|
|
|
||
|
|
(define tests
|
||
|
|
(hash
|
||
|
|
"" 0
|
||
|
|
"a" 2
|
||
|
|
"aa" 3
|
||
|
|
"aaa" 4
|
||
|
|
"ab" 3
|
||
|
|
"aab" 5
|
||
|
|
"aaab" 6
|
||
|
|
"abab" 4
|
||
|
|
"abc" 4
|
||
|
|
"abccbcb" 7
|
||
|
|
"abaccac" 7
|
||
|
|
"abcaaccac" 8
|
||
|
|
"emmmmmmmm" 11
|
||
|
|
"abcc" 6
|
||
|
|
"aabcc" 6
|
||
|
|
"aabbcc" 5))
|
||
|
|
|
||
|
|
(define ez-solve (compose solve bytes->list string->bytes/utf-8))
|
||
|
|
|
||
|
|
(require rackunit)
|
||
|
|
(for ([(in out) tests])
|
||
|
|
(check-equal? (ez-solve in) out in))
|