Aug. 3rd, 2012

Clojure.

Aug. 3rd, 2012 12:49 pm
metaclass: (Default)
(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)
Echo
В комментарии приглашаются [livejournal.com profile] aliaksei и [livejournal.com profile] kong_en_ge с критикой трудоголизма и энтузиазма наемных работников по отношению к "дяде", на которого они ебошат.

Profile

metaclass: (Default)
metaclass

April 2017

S M T W T F S
      1
2345678
9101112 131415
16171819202122
23242526272829
30      

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated Aug. 8th, 2025 08:02 pm
Powered by Dreamwidth Studios