Clojure.

[metaclass]

(defn concat-inner-seqs
  "concat inner sequencies in sequence of tuples"
  [seq-of-seqs]
  (apply (partial map concat) seq-of-seqs))


(println
 (concat-inner-seqs [[[1] [2] [:a]]
                     [[3] [4] [:b]] 
                     [[5] [6] [:c]]]))

; ((1 3 5) (2 4 6) (:a :b :c))

А теперь вот это придется объяснить всем заинтересованным сотрудникам.
PS: Версия с мапами вместо туплов:

(defn concat-maps-seq
  "concat inner sequencies in sequence of maps"
  [seq-of-maps]
  (apply (partial merge-with concat) seq-of-maps))

(def test-data-maps
     [
      {:F1 [1 "b" "3"] :F2 [2 'aa] :F3 [:a :e] :F4 [3333]}
      {:F1 [3] :F4 [4] :F6 [:b] :Pauk "abc"} 
      {:F1 [5] :F3 [6] :F2 [:c] :Pauk "def"}
     ])

(println test-data-maps)
(println (concat-maps-seq test-data-maps))

Сделана заменой map на merge-with. Можно использовать именованные поля и разное их количество.

Comments

[blackyblack.livejournal.com]

Я не могу понять, почему она их переворачивает. :) А вообще это называется инвертированием матрицы.

[metaclass.livejournal.com]

Оно их не переворачивает. Оно вложенные поля-последовательности туплов (или мапов во втором случае) конкатенирует. По всем туплам/мапам из переданной последовательности.
Т.е. структура данных тут не совсем матрица, а "последовательность туплов/мапов с последовательностями в качестве значений полей".

[blackyblack.livejournal.com]

Я не пойму, почему

(map concat [[1] [2] [:a]]
[[3] [4] [:b]]
[[5] [6] [:c]])

Даёт тот же результат, а в функции требует apply (partial *)

[metaclass.livejournal.com]

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

Поэтому я использую (apply fn seq) а fn создаю с помощью частичного применения map concat

[blackyblack.livejournal.com]

Сделай ещё обобщение этих двух функций. В одну передавай мап, в другую мердж.

[metaclass.livejournal.com]

Это уже излишество.
Вот если я найду целый класс функций типа map и merge-with и пойму, что в них общего и чем они мне будут полезны в опердени - тогда обобщу. Но частные реализации все равно оставлю - они нужны чаще всего.

[blackyblack.livejournal.com]

Частные реализуй через обобщенную. Обобщенную назови правильно и станет понятно, что вообще происходит. :)

[metaclass.livejournal.com]

У меня фантазии для имен долбаных функций и переменных уже не хватает.
Получается трэшатина типа коммон-лисповых caaaddddr

[blackyblack.livejournal.com]

Вот кстати, из инета:

(defn transpose [m] (apply (partial map list) m))

[metaclass.livejournal.com]

list на месте concat
интересненько. Значит общность с транспонированием действительно имеется.

[alexott.livejournal.com]

только в этом случае, использование list оставит элементы как есть, в виде отдельных векторов, в то время как при использовании map/concat они будут "раскрыты"

[palm-mute.livejournal.com]

транспонированием

[blackyblack.livejournal.com]

Лоханулся я :)