[Лиспер]

Подскажите, а то что-то голова совсем не варит (говорю сразу - даже не могу представить, по каким критериям поиск выполнять, поэтму смотрел все подряд, и, естественно, не углядел похожего решения).
Есть список вида

Код:

[Выделить все]

(setq source-lst '(("a" "b" "c" <...>) ("d" "e" "f" <...>) ("g" "h" "i" <...>) <...>))

Количество подсписков в source-lst и количество элементов в каждом подсписке заранее неизвестно. Можно гарантировать только одно - длина всех подсписков одинакова. Вопрос: как объединить этот список в один наподобие:

Код:

[Выделить все]

'("adg<...>" "beh<...>" "cfi<...>" <...>)

Никак сообразить не могу. Моя благодарность не будет знать границ в пределах разумного

[Do$]

Код:

[Выделить все]

(mapcar 'strcat source-lst)

[Лиспер]

Не-а:

Код:

[Выделить все]

_$ (setq source-lst '(("a" "b" "c") ("d" "e" "f") ("g" "h" "i")))
(("a" "b" "c") ("d" "e" "f") ("g" "h" "i"))
_$ (mapcar 'strcat source-lst)
; error: bad argument type: stringp ("a" "b" "c")

[Do$]

Пардон

Код:

[Выделить все]

(apply 'mapcar (cons 'strcat source-lst))

[Лиспер]

Йокъ! Спасибо Куда и что высылать?
---
P.S. А можно обнаглеть? А если список, допустим, будет таким:

Код:

[Выделить все]

(setq source-lst '(("a" "" "c") ("d" "e" "") ("g" "h" "i")))

Результатом должно быть:

Код:

[Выделить все]

'("a - d - g" "e - h" "c - i")

Исходный список преобразовывать и подставлять в №4 или как? Пока прошу только подсказки Может, мозги все-таки включатся в работу.

[Do$]

За это "спасибо" вполне достаточно

[Лиспер]

Сообщение от Do$ За это "спасибо" вполне достаточно

Моему чувству справедливости - недостаточно По №5 вроде как домыслил, если получится, выложу на суд профессионалов.
Добавлено: не, не получается. Неужели исходный список все же анализировать надо и подставлять измененный??

[Do$]

Можно в коде из #4 strcat заменить на list и потом с результатом играться.

[Лиспер]

Do$, проверь, пожалуйста: все верно или я где-то ошибку допускаю?

Код:

[Выделить все]

(mapcar
  (function
    (lambda (x)
      (strcat
        (car (setq x (mapcar
                       (function
                         (lambda (a) (vl-string-trim " " a))
                         ) ;_ end of function
                       (vl-remove "" x)
                       ) ;_ end of mapcar
                   ) ;_ end of setq
             ) ;_ end of car
        (apply
          (function strcat)
          (mapcar
            (function
              (lambda (a)
                (strcat " - " a)
                ) ;_ end of lambda
              ) ;_ end of function
            (cdr x)
            ) ;_ end of mapcar
          ) ;_ end of apply
        ) ;_ end of strcat
      ) ;_ end of lambda
    ) ;_ end of function
  (apply
    (function mapcar)
    (cons 'list source-lst)
    ) ;_ end of apply
  ) ;_ end of mapcar

Может, есть методы укоротить код и, возможно, ускорить его? Спасибо.

[Do$]

Сообщение от Лиспер проверь, пожалуйста

Я ж не знаю, какие списки могут быть... Но вот такой не переварился:

Код:

[Выделить все]

(("a1" "" "c1" "d1" "e1" "f1") ("a2" "" "" "d2" "" "f2") ("a3" "" "c3" "d3" "" "f3"))

А можешь объяснить, зачем обработка вот этой функцией?:

Код:

[Выделить все]

(lambda (a) (vl-string-trim " " a))

Ps Я понял так: в списке могут быть элементы с пробелами спереди и сзади, их подчищаем.
То есть список может быть таким:

Код:

[Выделить все]

(("a1" "" " c1" "d1" "e1" "f1") ("a2 " "" "" "d2" "" "f2") ("a3" "" "c3" "d3" "" "   f3 "))

[Лиспер]

Понял, добавлю обработку. Я почему просил-то - посмотрел тему про обучение, увидел, сколько моментов не видно вопрошающему, да и понял, что сам в таком же положении...
P.S. пробелы обрубаю, чтобы корректно обрабатывались строки типа

Код:

[Выделить все]

"       йокылымыны        "

[Дима_]

Сообщение от Лиспер Результатом должно быть: Код: '("a - d - g" "e - h" "c - i")

Сейчас автокада под рукой нет, но ИХМО так должно работать:

Код:

[Выделить все]

(defune test (lst)
  (mapcar '(lambda (x)
             (apply 'strcat (cons (car x)
                                  (mapcar '(lambda (s) (if (= s "") s (strcat " - " s)))
                                          (cdr x)))))
          (apply 'mapcar (cons 'list lst))))

[Лиспер]

Дима_, у меня аналогичный код получился Спасибо