I discovered partition-all and came up with this function:
(fn [l x] (concat (butlast l) (partition-all 2 (concat (last l)
[x]))))
user> ((fn [l x] (concat (butlast l) (partition-all 2 (concat (last l)
[x]))))
'()
10)
((10))
user> ((fn [l x] (concat (butlast l) (partition-all 2 (concat (last l)
[x]))))
'(( 1 2 ) ( 20 30) (40))
50)
((1 2) (20 30) (40 50))
user> ((fn [l x] (concat (butlast l) (partition-all 2 (concat (last l)
[x]))))
'(( 1 2 ) ( 20 30) (40 50))
60)
((1 2) (20 30) (40 50) (60))
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
