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
13
Task/Rep-string/LFE/rep-string-1.lfe
Normal file
13
Task/Rep-string/LFE/rep-string-1.lfe
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
(defun get-reps (text)
|
||||
(lists:filtermap
|
||||
(lambda (x)
|
||||
(case (get-rep text (lists:split x text))
|
||||
('() 'false)
|
||||
(x `#(true ,x))))
|
||||
(lists:seq 1 (div (length text) 2))))
|
||||
|
||||
(defun get-rep
|
||||
((text `#(,head ,tail))
|
||||
(case (string:str text tail)
|
||||
(1 head)
|
||||
(_ '()))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue