11 lines
333 B
Text
11 lines
333 B
Text
(de repString (Str)
|
|
(let Lst (chop Str)
|
|
(for (N (/ (length Lst) 2) (gt0 N) (dec N))
|
|
(T
|
|
(use (Lst X)
|
|
(let H (cut N 'Lst)
|
|
(loop
|
|
(setq X (cut N 'Lst))
|
|
(NIL (head X H))
|
|
(NIL Lst T) ) ) )
|
|
N ) ) ) )
|