Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 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