11 lines
308 B
Plaintext
11 lines
308 B
Plaintext
(defun report
|
|
((`#(,text ()))
|
|
(io:format "~p has no repeating characters.~n" `(,text)))
|
|
((`#(,text (,head . ,_)))
|
|
(io:format "~p repeats ~p every ~p character(s).~n" `(,text ,head ,(length head))))
|
|
((data)
|
|
(lists:map
|
|
#'report/1
|
|
(lists:zip data (lists:map #'get-reps/1 data)))
|
|
'ok))
|