Rep-string: Difference between revisions

=={{header|PicoLisp}}==

<lang PicoLisp>(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 ) ) ) )</lang>

Test:

<lang PicoLisp>(test 5 (repString "1001110011"))

(test 4 (repString "1110111011"))

(test 3 (repString "0010010010"))

(test 4 (repString "1010101010"))

(test 5 (repString "1111111111"))

(test NIL (repString "0100101101"))

(test 3 (repString "0100100"))

(test NIL (repString "101"))

(test 1 (repString "11"))

(test 1 (repString "00"))

(test NIL (repString "1"))

(test NIL (repString "0100101"))</lang>