2012-08-03

metaclass: (Default)
2012-08-03 12:49 pm
Entry tags:

Clojure.

(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: Версия с мапами вместо туплов: Read more... )
Сделана заменой map на merge-with. Можно использовать именованные поля и разное их количество.
metaclass: (Default)
2012-08-03 09:17 pm

Правильный русско-американский стартап

Echo
В комментарии приглашаются [livejournal.com profile] aliaksei и [livejournal.com profile] kong_en_ge с критикой трудоголизма и энтузиазма наемных работников по отношению к "дяде", на которого они ебошат.