Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; Helper functions
- (defn save-blog-links
- [map-of-blogs-to-links]
- (doseq [[blog-name links] map-of-blogs-to-links]
- (println (str "Blog is " (name blog-name) " with links " links))))
- (defn save-blog-buttons
- [map-of-blogs-to-buttons]
- (doseq [[blog-name buttons] map-of-blogs-to-buttons]
- (println (str "Blog is " (name blog-name) " with buttons " buttons))))
- ;; Main processing function for your data structure
- (defn save-blog-data
- [blog-data]
- (doseq [[timestamp {:keys [links buttons] :as datum}] blog-data]
- (save-blog-links links)
- (save-blog-buttons buttons))
Add Comment
Please, Sign In to add comment