2016 Update
This commit is contained in:
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
15
Task/Rep-string/Common-Lisp/rep-string-2.lisp
Normal file
15
Task/Rep-string/Common-Lisp/rep-string-2.lisp
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
(setf test-strings '("1001110011"
|
||||
"1110111011"
|
||||
"0010010010"
|
||||
"1010101010"
|
||||
"1111111111"
|
||||
"0100101101"
|
||||
"0100100"
|
||||
"101"
|
||||
"11"
|
||||
"00"
|
||||
"1"
|
||||
))
|
||||
|
||||
(loop for item in test-strings
|
||||
collecting (cons item (rep-stringv item)))
|
||||
Loading…
Add table
Add a link
Reference in a new issue