Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
10
Task/Rep-string/LFE/rep-string-2.lfe
Normal file
10
Task/Rep-string/LFE/rep-string-2.lfe
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
(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))
|
||||
Loading…
Add table
Add a link
Reference in a new issue