Запишите Аудио и Загрузку как Wav или MP3 к серверу

Я записал рекурсивную версию решения в шепелявости. Если длина списка больше, что 2 это разделяет список во вдвое менее лучшем, чем это может и затем пытаться объединить подсписки

    (defun concatenate-string(list)
       (cond ((= (length list) 1) (car list))
             ((= (length list) 2) (concatenate 'string (first list) "," (second list)))
             (t (let ((mid-point (floor (/ (- (length list) 1) 2))))
                   (concatenate 'string 
                                (concatenate-string (subseq list 0 mid-point))
                                ","
                                (concatenate-string (subseq list mid-point (length list))))))))



    (concatenate-string '("a" "b"))

, я пытался применить деление, и завоюйте стратегию к проблеме, но я предполагаю, что это не дает лучший результат, чем простое повторение. Сообщите мне возможно, ли это, было добито большего успеха.

я также выполнил анализ рекурсии, полученной алгоритмом, это доступно здесь .