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

[molnij.livejournal.com]

капец, я почти понимаю написанное..

[victor bolshakov (from livejournal.com)]

Понимать несложно, сложно переключить мышление на другой принцып

[blackyblack.livejournal.com]

5 минут втыкал.

[metaclass.livejournal.com]

У меня по какой-то причине необходимость в этих двух функциях в опердени возникает постоянно.
Только сегодня придумал как идиоматически обобщить это дело.

[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]

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

[freiksenet.livejournal.com]

Если это надо объяснять то заинтересованные сотрудники не особо умны.

[blackyblack.livejournal.com]

Объяснять нужно. Ни из комментария, ни из определения функции не ясно, что будут первые элементы туплов с первыми объединены, а вторые со вторыми.

[freiksenet.livejournal.com]

То есть код читать нас не учили?

[blackyblack.livejournal.com]

Ну я прочитал. И гугл прочитал. Без примера и репла результат вообще не ясен.

[freiksenet.livejournal.com]

Это просто настолько стандартный пример с абсолютно стандартными функциями. Я помню даже на курсе по кложури в универе у нас такая задача была и я её именно так и решил.

[blackyblack.livejournal.com]

Дак написать это одно, а прочитать совсем другое. Я тоже на кложури когда писал - ставил кучу скобочек и всё понятно. А когда читать стал, понял, что чё-то непонятно где что.

[alexott.livejournal.com]

а в каком это университете кложуре учат?

[freiksenet.livejournal.com]

Университет Хельсники. Наша студенческая организация Lambda делала в тот раз (https://wiki.helsinki.fi/display/lambda/Clojure-kurssi), потом еще раз делали в Metropolia University of Applied Science.

Весной еще Хаскель и проект по нему были, тоже от лябмды.

[alexott.livejournal.com]

классно вам...

[metaclass.livejournal.com]

Ну вот я говорю, что это очевидно - а на меня орут всей работой, что я совсем охренел в своих штудиях и поехал крышей.

[freiksenet.livejournal.com]

Надо идти в контору которая не нанимает ебанашек. Идите к айседу.

[justy-tylor.livejournal.com]

Ребе, в функциональщине со статической типизацией map работает с одной секвенцией, в языках с динамической типизацией зипует секвенции в параметры, и эксклюзивно в лиспах типа кложури внезапно начинает транспонировать. Это нельзя понять, это можно только запомнить.

[metaclass.livejournal.com]

Почему нельзя понять, все понятно же.
Транспонирование здесь совершенно логичное следствие зипования.

[justy-tylor.livejournal.com]

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

[metaclass.livejournal.com]

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

[freiksenet.livejournal.com]

В лиспах всегда так.

[alexott.livejournal.com]

а сотрудникам выдай Орейлевскую книжку про кложуру - там доходчиво написано...

[metaclass.livejournal.com]

Уже выдал. И орейли, и Joy of Clojure.
Осталось заставить прочесть :)

[alexott.livejournal.com]

а, ну это самое тяжелое :-)

[nivanych.livejournal.com]

Наручниками к батарее пристёгивать пробовали?

[berezovsky.livejournal.com]

[nivanych.livejournal.com]

И не помогает?