compute-list-of-occurrences

(defun compute-list-of-occurrences (string-of-digits)

(loop for i from 0 to 9 collect

(count (coerce (write-to-string i) 'character)

string-of-digits)))

Previous slide

Next slide

Back to first slide

View graphic version