Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
(define (countrepeat lst) (count((1) (lst))) ) (define (count s lst) (cond ((null? list) '()) ((null? (cdr lst)) '()) ((equal? (car lst)(car(cdr lst))) (count(+1 cdr lst))) (else (list s(list(car lst)))) ))